Информатика

Йегане

5 января, 17:31

Нужно переделать эту программу на паскале для нахождения треугольника с самой большой площадью, образованным всеми вариантами точек

uses crt, graphABC;

var

x, y:array[1 ... 100] of integer;

maxR, R, i, j:integer;

begin

randomize;

for i:=1 to 100 do

begin

x[i]:=random (600) + 10;

y[i]:=random (360) + 10;

circle (x[i], y[i],2) ;

end;

maxR:=0;

for i:=1 to 99 do

for j: = i+1 to 100 do

begin

R:=sqr (x[i]-x[j]) + sqr (y[i]-y[j]) ;

if R>maxR then maxR:=R;

end;

readln;

setpencolor (clred) ;

for i:=1 to 99 do

for j:=i+1 to 100 do

begin

R:=sqr (x[i]-x[j]) + sqr (y[i]-y[j]) ;

if R=maxR then line (x[i], y[i], x[j], y[j]) ;

if R=maxR then writeln (x[i],' ', y[i],' ', x[j],' ', y[j]) ;

end;

end.