Предмет: Информатика, автор: akkauntnaprodazu49

Помогите решить, только пожалуйста напишите на бумаге, и главное чтобы все было написано начиная от '' program a1'' заканчивая' 'end.' ' ДАЮ 50 БАЛЛОВ! Тшько пожалуйста пусть будет все понятно. Задания 4 и 5 ПОЖАЛУЙСТА ​

Приложения:

gfhjkmgfhjkm20: Задания 3 на картинке не видно. Как выглядит процедура Square2?
gfhjkmgfhjkm20: Как выглядит процедура Square2? Произвольно?
gfhjkmgfhjkm20: Обе программы должны начинаться program a1?
gfhjkmgfhjkm20: Может процедура Square2 отличаться для 4 и 5 заданий?

Ответы

Автор ответа: gfhjkmgfhjkm20
3

Ответ:

4.

program p3;

uses Robot;

procedure Square2;

begin

right;

paint;

down;

paint;

left;

paint;

up;

paint

end;

var i,j:integer;

begin

Task('p3');

for i := 1 to 6 do

begin

Square2;

if i<=5 then

begin

for j := 1 to 2 do left;

for j := 1 to 2 do up      

end

end

end.

5.

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

var i:integer;

begin

Task('p4');

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end.

Объяснение:

Второй вариант 5-го задания с двумя процедурами

program p4;

uses Robot;

procedure Square2;

begin

paint;

right;

paint;

down;

paint;

left;

paint;

up

end;

procedure Square;

var i:integer;

begin

Square2;

for i:= 1 to 2 do right;

Square2;

for i:= 1 to 2 do down;    

Square2;

for i:= 1 to 2 do left;    

Square2;

for i:= 1 to 2 do up

end;

begin

Task('p4');

Square

end.


akkauntnaprodazu49: спасибо большое вам
Похожие вопросы
Предмет: Українська література, автор: seregabessmertniy
Предмет: Геометрия, автор: viktoriaviktoriaua