Начало
СоревнованияПодразделы
Другие разделы
Дата и время
29/04/2024 10:01:03
1. Черно-белая графика
Простая задача на технику программирования.
Так как во входных данных значения для пикселов изображений не разделены пробелами, то проще использовать тип string для хранения строк изображений. Аналогично можно поступить с информацией о логической операции. Описание переменных и ввод выглядит так:
var
p1,p2:array[1..100]of string; { Изображения }
op:string; { Логическая операция }
w,h,i,j:integer; { Размеры и переменные цикла }
...
{Ввод}
for i:=1 to h do
readln(p1[i]);
for i:=1 to h do
readln(p2[i]);
readln(op);
Вычисление результата можно совместить с выводом. Для перевода символа c в число используется выражение ord(c)-ord('0').
for i:=1 to h do
begin
for j:=1 to w do
write(op[(ord(p1[i][j])-ord('0'))*2+(ord(p2[i][j])-ord('0'))+1]);
writeln;
end;
