1.a) Из объектов 2.b) Растровое изображение 3. c) Увеличить растровое изображение 4. c) Теряются мелкие детали 5.b) Векторный 6. a) Точка 7. c) От яркости цветов на изображении 8.a) Количество цветов в палитре 9.b) Microsoft Paintc) Adobe Photoshop 10.b) Изменение размера происходит без потери качества 11.b) Растровое изображение 12.c) RGB модель 13.a) принтерe) дисплейf) графопостроитель (плоттер) 14.b) Corel Draw 15.b) растровой графики. 16.c) зеленый 17.a) JPEG c) GIF d) TIF e) PNG f) BMP h) PCD 18.b) 256 19.a) HSB 20.b) частота дискретизации
// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,k,s:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if Odd(a[i,j]) then Inc(k) end; Writeln end; if k>5 then begin Writeln('Средние арифметические отрицательных элементов по строкам'); for i:=1 to m do begin s:=0; k:=0; for j:=1 to n do if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end; if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000'); end end else begin Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end; Writeln end end end.
2.b) Растровое изображение
3. c) Увеличить растровое изображение
4. c) Теряются мелкие детали
5.b) Векторный
6. a) Точка
7. c) От яркости цветов на изображении
8.a) Количество цветов в палитре
9.b) Microsoft Paintc) Adobe Photoshop
10.b) Изменение размера происходит без потери качества
11.b) Растровое изображение
12.c) RGB модель
13.a) принтерe) дисплейf) графопостроитель (плоттер)
14.b) Corel Draw
15.b) растровой графики.
16.c) зеленый
17.a) JPEG c) GIF d) TIF e) PNG f) BMP h) PCD
18.b) 256
19.a) HSB
20.b) частота дискретизации
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,k,s:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4);
if Odd(a[i,j]) then Inc(k)
end;
Writeln
end;
if k>5 then begin
Writeln('Средние арифметические отрицательных элементов по строкам');
for i:=1 to m do begin
s:=0; k:=0;
for j:=1 to n do
if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
if k>0 then Writeln(s/k:9:5) else Writeln(' 0.00000');
end
end
else begin
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
Writeln
end
end
end.
Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
-16 -8 -1 24 -22 1
-9 -20 -25 13 -11 10
-15 10 -12 20 -22 3
-6 25 -3 25 -14 22
24 -4 24 17 -4 -17
-23 -9 -22 1 -18 -13
-12 13 6 -16 2 -13
19 8 -22 14 -3 4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
-7.66667
-8.33333
-17.00000
-13.66667
-12.50000
Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
3 24 -21 -22 -8
-21 14 -22 0 -22
15 -16 -2 6 22
*** Результирующий массив ***
6 48 -42 -44 -16
-42 28 -44 0 -44
30 -32 -4 12 44