Question

Napisz program w turbo pascalu używając funkcji graficznej który narysuje prostokąt na cały ekran a w nim równoległe linie. Jeżeli wyświetli się trzecia linia to tamte poprzednie będą znikać. to ma być taka animacja.
Funkcja graficzna wygląda tak:

program kursor;
uses Crt,Graph;
var
r,t :smallint;
s:string;
begin
{inicjowanie trybu graficznego}
r:=detect;
t:=0;
initgraph(r,t,s);
if graphresult<>grok then
begin
writeln('Nie powiodlo sie zainicjowanie grafiki');
end
else
repeat
until KeyPressed;
{zamknięcie trybu graficznego}
CloseGraph;
writeln(r);
end.

proszę o szybką odpowiedź

Answer 1

Troche się namęczyłem ale mam to co chciałeś w programie masz stałą o nazwie sciezka musisz ją zmienić tak aby odwoływała ona do twojego folderu gdzie masz unit graph.tpu to by było na tyle;)

link do pliku:
http://w439.wrzuta.pl/sr/f/2nkqLCNjcyO/domek