uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.
1.В видео памяти, то есть в оперативной памяти видеокарты – хранятся данные, которые выводятся на экран. Это могут быть как готовые кадры для отображения на экран, так и какие-то их части (полигоны, кусочки картинок и т.п.).
2.Двухцветный - 2 в первой степени следовательно 1 бит
Четырехцветный - 2 во второй степени следовательно два бита
Восьмицветный - 2 в 3 степени следовательно 3 бита
3. Красный, синий и зеленый – это цветовая гамма RGB, которая наиболее популярна на данный момент во многих графических редакторах и других программах. При смешивании:
Красного (Red) и синего (Blue) цвета получается пурпурный (Magenta)
Красного и зеленого (G) – желтый (Yellow)
Синего и зеленого - циановый (Cyan – “цвет морской волны”, ядовито-синий).
Пурпурный, желтый и циановый – основные компоненты цветовой модели CMYK, где K – черный.
4. 2 во второй степени следовательно - четыре цвета
5. 256 это 2 в 8 следовательно у нас есть 8 бит то есть 8 ячеек, нам нужно три цвета( зеленый,синий и красный) остальные можно получить смешивая эти цвета.
Используя цветовую модель RGB в 8-бит цвета кодируются следующим образом :
Первые 2 бита – синий, следующие 3 бита – зеленый и последние 3 бита – красный.
Под синий используются 2 бита, так как считается, что люди менее чувствительны к оттенкам синего.
6.16 это 2 в 4 = 4 бита на пиксель
1 байт =8 бит
1024 байт =1 кбайт
640*480*4=1228800 бит=1200 байт =1 кбайт
нач
целтаб Dat[1:10]
цел к, s
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 5
Dat[5] := 6
Dat[6] := 7
Dat[7] := 9
Dat[8] := 8
Dat[9] := 6
Dat[10] := 9
s: = 0
нц для к от 1 до 10
s:= s + Dat[k]
все
КЦ
вывод s
КОН
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76
2.
DIM Dat(10) AS INTEGER
DIM k,m,n AS INTEGER
Dat[1] = 7
Dat[2] = 9
Dat[3] = 10
Dat[4] = 5
Dat[5] = 6
Dat[6] = 7
Dat[7] = 9
Dat[8] = 8
Dat[9] = 6
Dat[10] = 9
s = 0
FOR k := 1 TO 10
IF Dat(k) < m THEN
s:= s + Dat[k]
ENDIF
NEXT k
PRINT s
В программе не задано значение переменной m. Если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=0
3.
Var k, m, n: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s: = 0;
for k := 1 to 10 do
s:= s + Dat[k];
writeln(s);
End.
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76