Pascal - problema con codice uttilizzando la grafca;

Forum - Pascal - problema con codice uttilizzando la grafca;

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

non riesco dopo aver fatto partire il programma a tornare alla prima pagina visualizzata, dopo aver fatto la prima o la seconda scelta... Help!!

Codice sorgente - presumibilmente Delphi

program disegno;
uses crt,graph;          
var grdriver,grmode:integer;
    a,b:integer;
 
procedure grafica;
begin
grdriver:=detect;
initgraph(grdriver,grmode,'c:\tp\bgi');
rectangle(0,0,getmaxx,getmaxy);
floodfill(1,1,white);
end;
 
 
begin
 
{dovrei metterci un ciclo??}
clrscr;
writeln('Se vuoi visualizzare il primo disegno premi 1, altrimenti 2');
readln(a);
if a=1
  then
begin
grafica;
 textcolor(red);
 outtextxy(2,10,'Questo Š un disegno creato dalla 4 C informatica!!');
 setcolor(black);
 circle(310,230,100);
 arc(300,280,250,800,50);
 arc(300,180,810,280,50);
 circle(320,180,25);
 circle(300,280,25);
 setfillstyle(1,black);
 floodfill(320,180,black);
 floodfill(300,240,black);
end
 else
  grafica;
  setcolor(black);
  circle(310,230,100);
  repeat
  until keypressed;
end.