Var a:array[0..100] of integer; i,n:integer; begin read(n); for i:=0 to n-1 do begin read(a[i]); if i mod 2=0 then a[i]:=1 else a[i]:=i mod 5; end; for i:=0 to n-1 do write(a[i],' '); end.
Растровое изображение представляет из себя: ✔ мозаику из очень мелких элементов — пикселей; сочетание примитивов (это про векторное изображение); палитру цветов.
Растровое графическое изображение формируется из: линий ✔ пикселей графических примитивов (это про векторное изображение)
В векторной графике изображения строятся из: пикселей (это про растровую графику); ✔ примитивов; рисунков.
Эффективно представляет изображения фотографического качества: векторная графика; ✔ растровая графика.
Относительно небольшой объём памяти занимают: ✔ векторные рисунки; (это как правило верно. Но если пытаться делать изображения фотографического качества в векторной графике, файлы будут получаться огромными) растровые изображения.
Могут быть легко масштабированы без потери качества: ✔ векторные рисунки; растровые изображения.
Растровое графическое изображение получается: ✔ в процессе сканирования (в остальных случаях - векторная) при работе с системами компьютерного черчения при создании рисунка в MS Word
Какой тип графического изображения вы будете использовать при редактировании цифровой фотографии? ✔ растровое изображение векторное изображение
Что можно отнести к достоинствам растровой графики по сравнению с векторной? Малый объём графических файлов. (это про векторную) ✔ Фотографическое качество изображения. Возможность просмотра изображения на экране графического дисплея. (это верно для любой компьютерной графики) Возможность масштабирования изображения без изменения его качества. (это про векторную)
Файлы, с какой графикой имеют наибольший размер? ✔ Растровой. Векторной. Трёхмерной. (обычно простенькая трехмерная графика составляется из примитивов и имеет небольшой размер. Но опять-таки, если ставить целью добиться максимальной естественности изображения, то здесь будет максимальный размер)
Изображения, какой графики состоят из массива точек (пикселей)? ✔ Растровой. Векторной Трёхмерной
Для хранения растрового изображения размером 64 на 64 пикселя отвели 512 байтов памяти. Каково максимально возможное число цветов в палитре изображения? Всего пикселей 64 * 64 = 2^12, на них отводится 512 байт = 2^9 байт = 2^12 бит. Тогда на 1 пиксель отводится всего 1 бит, и в палитре не больше 2^1 = 2 цветов.
В процессе преобразования растрового графического файла количество цветов уменьшилось с 512 до 8. Во сколько раз уменьшился информационный объем файла? 512 = 2^9, 8 = 2^3. В первом случае на 1 пиксель отводится 9 бит, во втором - 3 бита. Размер уменьшился в 3 раза.
1. "Традиционный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: longint): longint; begin while a <> b do if a > b then a := a - b else b := b - a; NOD := a end;
var f: Text; tNOD: longint;
begin Assign(f, 'input.txt'); Reset(f); if not Eof(f) then Readln(f, tNOD); var n: longint := 1; while (not Eof(f)) and (n > 0) and (tNOD > 1) do begin Readln(f, n); if n <> 0 then tNOD := NOD(tNOD, n) end; Close(f); Assign(f, 'output.txt'); Rewrite(f); Writeln(f,tNOD); Close(f) end.
2. "Современный" вариант //PascalABC.Net 3.0, сборка 1052 function NOD(a, b: integer): integer; begin while a <> b do if a > b then a -= b else b -= a; Result := a end;
var tNOD: integer := 0; n: integer;
begin foreach var sn in Readlines('input.txt') do begin n := StrToInt(sn); if tNOD = 0 then tNOD := n else if n = 0 then break else tNOD := NOD(tNOD, n); end; WriteAllText('output.txt', IntToSTR(tNOD)); end.
Пример файла input.txt находится во вложении, контрольный результат 4096
i,n:integer;
begin
read(n);
for i:=0 to n-1 do begin read(a[i]);
if i mod 2=0 then a[i]:=1 else
a[i]:=i mod 5;
end;
for i:=0 to n-1 do write(a[i],' ');
end.