Question

Задание 1. Разберите и выполните на компьютере программу, кото- рая рисует несколько одинаковых горизонтально расположенных квадратов (рис. 3.16). 0 100 100 End. 200 begin end; конструкции «повторение» 200 300 Рис. 3.16 Rectangle(x, y, x+50, y+50); x:=x+100; Uses GraphABC; Var x,y: integer; Begin Setwindowsize(600,200) ; SetPenColor(elred);SetPenWidth(4); x:=50; y:=50; 400 500 Задание 2. Составьте программу посТРОЕНИЯ 600​

Answer 1

Відповідь:

Это выглядит как код на Pascal для рисования нескольких одинаковых горизонтально расположенных квадратов.

В первом задании вам необходимо разобрать и выполнить эту программу на компьютере. Во втором задании вам необходимо составить программу для построения чего-то другого.

Вы можете использовать среду разработки, такую как Turbo Pascal, для написания и выполнения этих программ.

Пояснення: