Пуантилизм-направление в живописи, которое характеризуется созданием картин при помощи точечного нанесения краски на холст . Мозаика - точечное нанесение элементов, из которых будет состоять мозаика (кусочки стекла, бусины, камешки и т.д.). На экране монитора формируется изображение, состоящее из упорядоченных точек-пикселей (растр).
Общее - состоит из большого количества точек.
Разница - мозаика и техника пуантилизма - "хаотичное", неупорядоченное нанесение "точек"
Так вроде уже решал подобную задачу.
Задание 1
5*10³+3*10²+4*10¹+1*10⁰
Задание 2
2*8¹+5*8⁰+3*8⁻¹+4*8⁻²+1*8⁻³
Задание 3
2*6⁻¹+5*6⁻²+3*6⁻³+4*6⁻⁴+1*6⁻⁵
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.