pro25

disegnare con turbo pascal

program pro25;
uses crt,graph;
var sc,tp:integer;
    drive:string;
    a,b,c,d:integer;
begin
clrscr;
sc:=0;
tp:=0;
(* indica ove trovare GRAPH *)
drive:='c:\tp\bgi';
initgraph(sc,tp,drive);
a:=10;
b:=10;
c:=100;
d:=100;
rectangle(a,b,c,d);
bar(10,120,200,200);
readln;
end.

run per visualizzare

inizio