2° Liceo - Grafica in Pascal

informatica - Lun Lug 04, 22:23:20
Oggetto: Grafica in Pascal
program Project1;
uses Graph,Crt;
Var Driver,Modo : smallint;
Begin
Driver:=Detect;
initgraph(Driver,Modo,' ');
Line(100,100,600,600);
Rectangle(600,100,900,900);
CIRCLE(1600,500,200);
LineTo(1800,100); LineTo(1600,700);
Outtextxy(300,300,' Sto lavorando in modalità grafica ');
Bar3D(400,250,300,300,25,TopOn);
readln;
end.
Tutti i fusi orari sono GMT + 1 ora
Powered by phpBB2 Plus based on phpBB