дол - жен ре - шать за - да - чу для про - из - воль - но - го раз - ме - ра поля и лю - бо - го до - пу - сти - мо - го рас - по - ло - же - ния стен.
Алгоритм может быть вы - пол - нен в среде фор - маль - но - го ис - пол - ни - те - ля или за - пи - сан в тек - сто - вом редакторе.
Задание 3
Определите какую из предложенных задач решает данная программа
нц
пока не снизу свободно
закрасить
вправо
кц
нц
пока снизу свободно
вправо
кц
нц
пока спра - ва свободно
закрасить
вправо
кц
нц
пока не спра - ва сво - бод - но
закрасить
вверх
кц
нц
пока справа сво - бод - но
вверх
кц
нц
пока не спра - ва сво - бод - но
закрасить
вверх
кц
А
Б
В
3 группа
Задание 4
Найдите ошибки в следующих программах
Programrt;
Vara,b,c:real;
a:0. 1;
c:ab0. 78;
b:3. 4;
Write (c);
Program pr1;
Var
b, c : integer;
Begin
writeln(Введите числа a, b, c);
readln(a,b,c);
if (ac)
then
begin
b:a;
c:a;
end
else
begin
a:-a;
b:-b;
c:-c;
end
writeln(a,b,c);
readln;
End.
Program a;
Vara,b. c:integer;
Begin
a:1. 12;
b:-34. 09;
c:ab;
Write (c)
End.
Vara,b,c:real;
Begin
A1 mad 7;
B3/415. 7;
С:ab0. 78
Write (c)
End.
3 группа
Задание 5
Постройте блок-схему, напишите программу на языке Pascal
вычисления yab,если a52b, если а0a3/b, если 0
Страницы: << < 1 | 2 | 3