Question

Napisałam program w trybie graficznym na narysowanie prostokąta program odnajduje ścieżkę pliki Grapg.Tpu ale jak próbuję skompilować program to automatycznie mi go zamyka

o to kod:

program prostokat;
uses Graph, Crt;
var tryb, karta : Integer;
begin
karta:=0;
tryb:=0;
InitGraph(tryb, karta, 'C:\tp\Bgi')
SetColor(4);
Rectangle(100, 100, 500, 250);
repeat until keypressed;
CloseGraph; end.

Answer 1

O to kod:

program prostokat;
uses Graph, Crt;
var tryb, karta : Integer;
begin
karta:=0;
tryb:=0;
InitGraph(tryb, karta, 'C:\tp\Bgi')
SetColor(4);
Rectangle(100, 100, 500, 250);
repeat until keypressed;
CloseGraph;
delay (10000);
END.



Na pascalu sie nie znam, ale powinno byc ok, program automatycznie zamknie sie po 10sekundach NIE TESTOWALEM!