Перевести программу из паскаль турбо в паскаль - вопрос №941103000 от pingvik86 01.06.2023 07:07

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.

pingvik86 · Answer

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.

Перевести программу из паскаль турбо в паскаль абс ; uses graphabc; var x0,y0,gd,gm,i: integer; begi

Перевести программу из паскаль турбо в паскаль абс ; 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.

Перевести программу из паскаль турбо в паскаль абс ; 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-i10,y0-i10,x0+i10,y0+i10); readln; closegraph end.