Пожалуйста!
Найдем количество бит на пиксель:
160*1024*8 : 1024*256 = 5
<span>А 5 битами можно закодировать 32 цвета (2 в 5 степени) . Вот и всё!</span>
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.
Программа может выглядеть такЖ
uses crt;
const n=4;
type Mas=array [1..n] of real;
Var A: Mas;
i: integer;
Sum, Sred: real;
Begin
ClrScr;
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
Sum:=Sum+A[i];
end;
Sred:=Sum/n;
WriteLn ('Sred = ', Sred:5:2);
ReadLn;
end.
Обычный массив: берем список покупок. Допустим, нужно купить молоко, хлеб, яйца, чай и мороженое. Всего покупок: 5. И мы перебираем каждую покупку. В массиве можно записать как: array [1..5], так как 5 покупок. То же молоко под цифрой 1, значит это 1 элемент массива. Чай будет 4 элементом массива.
Двухмерный массив: берем многоквартирный дом. В доме 3 этажа, на каждом этаже 4 квартиры. Соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. Если в доме 3x4=12 этажей, то получается 12 элементов массива.
Так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (Пример: дан массив с двумя элементами. Первый элемент равен 5, второй 33)
Создать массив в Pascal:
В var напишите x:array [y..z] of what
x - название массива
y - начальная цифра массива (обычно 1, так и представим)
x - последняя цифра массива (представим как 10)
what - тип (integer, real и т.д.)
Найти значение массива и редактировать его:
a:=x[4]
Данным действием мы присваиваем 4 элемент массива для a.
x[4]:=b
Данным действием мы присваиваем b для 4 элемента массива.
Если что-то непонятно, задайте вопрос в комментарий. Постараюсь объяснить именно то, что вам непонятно.