Подразделы

Другие разделы

Дата и время

14/11/2024 10:37:18

Авторизация

Имя:
Пароль:
Зарегистрироваться
Восстановить пароль
 

print1. Черно-белая графика

Простая задача на технику программирования.
Так как во входных данных значения для пикселов изображений не разделены пробелами, то проще использовать тип 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;
loading