Const n=10; var a:array[1..n] of integer; i,s1,s2:integer; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(51)-25; write(a[i]:4); end; writeln; s1:=0; s2:=0; for i:=1 to n do if a[i]<0 then s1:=s1+a[i] else s2:=s2+a[i]; writeln('s1 = ',s1,' s2 = ',s2); if abs(s1)>s2 then writeln('Yes, |',s1,'| > ',s2) else writeln('No, |',s1,'| <= ',s2); 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 раза.
КОРМИЛИЦЫНА
15.12.2020
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Верно ли, что сумма всех отрицательных членов заданного массива по модулю больше, чем сумма всех положительных членов. составить программу
var a:array[1..n] of integer;
i,s1,s2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s1:=0; s2:=0;
for i:=1 to n do
if a[i]<0 then s1:=s1+a[i] else s2:=s2+a[i];
writeln('s1 = ',s1,' s2 = ',s2);
if abs(s1)>s2
then writeln('Yes, |',s1,'| > ',s2)
else writeln('No, |',s1,'| <= ',s2);
end.
Пример:
Массив A:
-3 16 5 -14 -14 -4 -13 -25 13 16
s1 = -73 s2 = 50
Yes, |-73| > 50