Помогите перевести программу из паскаль турбо в паскаль абс ; uses graphabc; var...

Question

Помогите перевести программу из паскаль турбо в паскаль абс ; uses graphabc; var x0,y0,gd,gm,i:integer; begin gd:=0; initgraph(gd,gm,''); x0:=getmaxX div 2; y0:=getmaxY div 2; for i:=1 to 6 do rectangle(x0-i*10,y0-i*10,x0+i*10,y0+i*10); readln; closegraph end.

Comments

У меня нет Pascal ABC, этот проект закрыт 10 лет назад могу написать в PascalABC.NET.

---

lf

---

да

---

спасибо

---

пожалуйста

---

Сравнив тексты программ, Вы можете догадаться, почему проект Pascal ABC, фактически дублирующий Турбо Паскаль, был закрыт.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin

 var (x0, y0) := (Window.Width div 2, Window.Height div 2);

 for var i := 1 to 6 do

   DrawRectangle(x0 - i * 10, y0 - i * 10, x0 + i * 10, y0 + i * 10);

end.

---