Регистрация
русскийязык150
14.01.2022 12:53
Информатика
Есть ответ 👍

Составьте программу для рисования звёздочек(8 штук в ряд,между ними небольшое расстояние)в паскаль

168
497
Посмотреть ответы 2

Ответы на вопрос:

Lisonьka124
Lisonьka124
4,5(12 оценок)

uses GraphABC;

begin

 SetWindowSize(1000,100);

 var x := 0;

 for var i := 1 to 8 do begin

   MoveTo(50+x,0);

   lineto(0+x,100);

   lineto(100+x,50);

   lineto(0+x,50);

   lineto(100+x,100);

   lineto(50+x,0);

   x+=125;

 end;

end.

//Вообщем вот так получилось, если не нравятся звезды можешь подкорректировать их координаты.

gfyyfyftd
gfyyfyftd
4,8(24 оценок)

Rbrx7rx7jxurxeuurcurcrcjurjcurcju

Популярно: Информатика