Можно либо циклы в общем цикле (коротко и красиво):
использовать Робот
алг
нач
нц пока снизу свободно
вниз
нц пока справа свободно
вправо
кц
нц пока снизу свободно
вниз
кц
нц пока слева свободно
влево
кц
кц
кон
То же самое ещё понятнее и короче выглядит, если малые циклы в строчку записать:
использовать Робот
алг
нач
нц пока снизу свободно
вниз
нц пока справа свободно; вправо кц
нц пока снизу свободно; вниз кц
нц пока слева свободно; влево кц
кц
кон
Либо просто несколько циклов друг за другом (длинно и уныло):
использовать Робот
алг
нач
нц пока справа свободно
вправо
кц
нц пока снизу свободно
вниз
кц
нц пока слева свободно
влево
кц
вниз
нц пока справа свободно
вправо
кц
нц пока снизу свободно
вниз
кц
нц пока слева свободно
влево
кц
кон
PROGRAM Privet;
VAR
x:real;
BEGIN
writeln('Который час?'); read(x);
if x > 24 then
writeln('Введенное число не является временем ' )
else
begin
if (x>=8) and (x<12) then writeln('Доброе утро!');
if (x>=12) and (x<17) then writeln('Добрый день!');
if(x>=17) and (x<23) then writeln('Добрый вечер!');
if(x>=23) or (x<8) then writeln('Доброй ночи!');
end;
end.
//вторая программа
var
x,x1,x2,y,y1,y2:real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then
writeln('Точка принадлежит заданной области')
else
writeln('Точка не принадлежит заданной области');
end.
