Катя решает следующую задачу.
Дано: Робот в клетке А (см. рисунок).
Получить: Робот в клетке Б, закрашены все помеченные клетки.
Она составила основной алгоритм ;
ОСНОВНОЙ АЛГОРИТМ
использовать Робот
алг из А в Б с закрашиванием
дано | Робот в клетке А
надо | Робот в клетке Б, закрашены все помеченные клетки
нач
закрашивание блока
обход стены
закрашивание блока
обход стены
закрашивание блока
кон
Затем вс алгоритм закрашивание блока:
ВС АЛГОРИТМ "ЗАКРАШИВАНИЕ БЛОКА"
алг закрашивание блока
нач
нц 4 раз
закрасить вправо; закрасить; вправо; закрасить
влево; влево; вниз
кц
закрасить; вправо; закрасить; вправо; закрасить
кон
Ей осталось доделать вс алгоритм обход стены:
ВС АЛГОРИТМ "ОБХОД СТЕНЫ"
алг обход стены
нач
нц ? раз
влево
кц
нц ?? раз
вверх
кц
нц ??? раз
вправо
кц
вниз
вниз
вправо
кон
Подскажите Кате, какие числа нужно поставить вместо знаков во Менять саму структуру алгоритма нельзя.)
Напишите, какое число нужно поставить вместо "?".
Напишите, какое число нужно поставить вместо "??".
Напишите, какое число нужно поставить вместо "???".
var
a,b,c,d,n:integer;
begin
writeln('введите число.(0-юноша,1-девушка).');
readln(n);
if n=0 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=110 then begin
if a<=b then writeln('юноша принят.');
end;
if a>b then writeln('не подходит по весу.');
if b<>110 then writeln('не подходит по росту.');
end;
if n=1 then begin
writeln('введите вес');
readln(a);
writeln('введите рост');
readln(b);
if b=115 then begin
if a<=b then writeln('девушка принята.');
end;
if a>b then writeln('не подходит по весу.');
if b<>115 then writeln('не подходит по росту.');
end;
end.