Перевести программу из паскаль турбо в паскаль абс - вопрос №009410353 от Александра24х4 11.12.2022 23:52

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.

Александра24х4 · 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.