TIBIA forum :: Przegląd tematu

Wysłany: Czw 15:22, 08 Mar 2007 Temat postu:

fajna masz stara

Wysłany: Pon 10:54, 22 Sty 2007 Temat postu: Stara

program losoweodcinki;

uses
Crt, Graph;

var
n,i:integer ;
l,suma,max,min,srednia:real;
xp,yp,xk,yk:integer;
Tryb : integer;
Driver : Integer;

begin
writeln('podaj ilosc odcinkow');
readln(n);
randomize;
i:=1;
suma:=0;
max:=0;
min:=getmaxx;
Driver := Detect;
InitGraph(Driver, Tryb, '');

for i:=1 to n do
begin
xp:=random(getmaxx+1);
yp:=random(getmaxy+1);
xk:=random(getmaxx+1);
yk:=random(getmaxy+1);
l:=sqrt((xp-xk)*(xp-xk)+(yp-yk)*(yp-yk));
suma:=suma+l;
if l>300 then
Line(xp,yp,xk,yk);
if l>max then
max:=l;
if l<min then
min:=l;
end;
Repeat until KeyPressed;
CloseGraph;
readln;
writeln('najdluzszy odcinek wynosi ',max:6:1);
writeln('najkrotszy odcinek wynosi ',min:6:1);
srednia:=suma/n;
writeln('sredniadlugosc odcinka wynosi ',srednia:6:1);
readln ;

end.