Напишите пожалуйста программу (Фото)

0 голосов
36 просмотров

Напишите пожалуйста программу (Фото)


image

Информатика (29 баллов) | 36 просмотров
0

Прогу рисования, на каком языке?

0

Английский

0

Pascal, Basic, Pythot, КуМир ?

0

Pascal

0

Turbo, Free, ABC.net ?

0

ABC.net

Дан 1 ответ
0 голосов
Правильный ответ

Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;


A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);

A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);

A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);

Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.

(34.0k баллов)