Program Exp_1;
Var
a:array[1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 5 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
Readln;
End.
Program Exp_2;
Var
a:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
for i:=6 to 10 do
write(a[i]*5,' ');
Readln;
End.
Program Exp_3;
Const
n=10;
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
begin
a[i]:=5;
write(a[i]:3);
read;
end;
End.
1. Растровая
2. Векторная
3. 3D графика
5. Фрактальная
Объяснение:
1. Видим обычное изображение, снятое на камеру. Сплошное, образованное набором пикселей. Растровая графика
2. Видим изображение, образованное набором геометрических примитив (фигур). Выглядит как логотип. Векторная графика
3. Видим изображение трехмерных объектов. Скорее всего использовалась 3D графика для описания объектов и источников света, а затем был произведен рендер на плоскость изображения.
4. Видим рекурсивный узор, построенный с фрактала. Фрактальная графика
