Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 69 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

Вариант решение предыдущей задачи , предложенный
студентом ВГТУ Щераковым Вадимом
{
- Щербаков Вадим Юрьевич
- ВГТУ
- Московский проспект 14
- Факультет Автоматики Электромеханики
- Управление и Информатика в Технических Системах
- дневная форма
Задача 2
}
var field:array[0..11,0..11] of byte;
procedure readall;
var i,j,num,temp:integer;
f:text;
begin
for i:=0 to 11 do
for j:=0 to 11 do
field[i,j]:=0;
assign(f,'input.txt');
reset(f);
read(f,num);
for temp:=1 to num do
begin
read(f,i);
readln(f,j);
field[i,j]:=1;
end;
close(f);
end;
function GetCount(x,y:byte):byte;
var i,res:byte;
begin
if (field[x+1,y]=0)and(field[x,y+1]=0)then res:=1
else if (field[x+1,y]=1) then res:=res+GetCount(x+1,y)
else if (field[x,y+1]=1) then res:=res+GetCount(x,y+1);
field[x,y]:=0;

Страницы