help!!!

Baron_Piotr [ Chor��y ]

help!!!

potrzebuje programu w tp ktory bedzie na podstawie to nizej programu rysował Trojkaty.
program nazwa;
uses
crt,graph;
var
ile:integer;
skok:integer;
min:integer;
karta,tryb:integer;
i,x,y:integer;
wielkosc:integer;

begin
clrscr;
writeln('podaj ilosc kwadratow ');
readln(ile);

detectgraph(karta,tryb);
initgraph(karta,tryb,'');

x:=0;
y:=0;
wielkosc:=getmaxy;

min:=round(getmaxy*0.05);

skok:=round((getmaxy-min)/(ile-1));


while wielkosc>=min
do
begin
rectangle(x,y,x+wielkosc,y+wielkosc);
wielkosc:=wielkosc-skok;
y:=y+skok div 2;
end;


readkey;

closegraph;

end.

03.06.2008

22:23

[2]

kutikulamama [ Pretorianin ]

Logo Komeniusz :D