Всем, начертить этот смайл на pascal и разрисовать его в желтый(кожу). заранее !
273
317
Ответы на вопрос:
Const max_length = 10; type arr = array [0..max_length, 0..max_length] of byte; var a: arr; i, j, n, m, k, x, y: byte; c: char; f: text; //procedure printmatrix(a: arr); //begin // for var i : = 0 to max_length do // begin // writeln; // for var j : = 0 to max_length do // write(a[i, j], ' '); // end; // writeln; //end; procedure labirint(i, j: byte); begin if (i < = n) and (i > = 0) and (j < = m) and (j > = 0) and (a[i, j] = 0) then begin a[i, j] : = 1; k : = k + 1; labirint(i, j - 1); labirint(i, j + 1); labirint(i - 1, j); labirint(i + 1, j); end; end; begin assign(f, 'input.txt'); reset(f); readln(f, n, m); for i : = 0 to n do begin for j : = 0 to m do begin read(f, c); case c of 'x': a[i, j] : = 2; '.': a[i, j] : = 0; '+': begin x : = i; y : = j; a[i, j] : = 0; end; end; end; readln(f); end; close(f); // printmatrix(a); labirint(x, y); writeln(k); // printmatrix(a); end. инструментарий для дебага оставила. проверяйте значение символов перед стартом
Популярно: Информатика
-
Айхан111111111116.04.2021 23:38
-
TanNam12312.12.2021 06:36
-
anikeevae13.11.2022 09:10
-
LadybugfromParis18.03.2022 21:14
-
sofiaivkina8404.01.2022 15:18
-
katyakiseleva310.06.2020 11:04
-
shevchal27.03.2023 21:15
-
малинка2017718.12.2022 14:04
-
liliakhalilova03.05.2023 09:46
-
sychewaya831017.12.2021 12:17