Pascal ABC. Ввести с клавиатуры число линий штриховки и построить произвольную фигуру (к примеру, квадрат), залив области разным цветом.

Ответы:
Yana Plotnikova
06-03-2019 11:02

//Pascal ABC.NET v3.1 сборка 1219 uses graphabc; Const h=300; Var n,k,i:integer; begin maximizewindow; readln(n); n:=n+1; line(h,h,h*2,h); line(h*2,h,h*2,h*2); line(h*2,h*2,h,h*2); line(h,h*2,h,h); k:=h div n; for i:=1 to n do begin sleep(100); line(h+i*k,h,h+i*k,h*2); floodfill(h+i*k-1,h+1,rgb(random(255),random(255),random(255))); end; floodfill(h*2-1,h+3,rgb(random(255),random(255),random(255))); end.

Картинка с текстом вопроса от пользователя АЛЛА СМОТРИЧ

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Pascal ABC. Ввести с клавиатуры число линий штриховки и построить произвольную фигуру (к примеру, квадрат), залив области разным цветом. » от пользователя АЛЛА СМОТРИЧ в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!