Вычисление площади треугольника и сравнение их

Четверг, 10 Сен 2009

Даны координаты вершин двух треугольников. Определить, какой из них имеет меньшую площадь.

program minploshad;
var xa1,ya1,xb1,yb1,xz1,yz1,
xa2,ya2,xb2,yb2,xz2,yz2,
s1,s2: real;
procedure S(xa,ya,xb,yb,xz,yz:real;
var stre: real);
var a,b,c,p:real;
begin
a:=sqrt(sqr(xa-xb)+sqr(ya-yb));
b:=sqrt(sqr(xb-xz)+sqr(yb-yz));
c:=sqrt(sqr(xz-xa)+sqr(yz-ya));
p:=(a+b+c)/2;
stre:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
BEGIN
writeln(’Vvedite koordinati 1-go treugolnika’);
writeln(’xa1 ya1 xb1 yb1 xz1 yz1′);
read(xa1,ya1,xb1,yb1,xz1,yz1);
writeln(’Vvedite koordinati 2-go treugolnika’);
writeln(’xa2 ya2 xb2 yb2 xz2 yz2′);
read(xa2,ya2,xb2,yb2,xz2,yz2);
S(xa1,ya1,xb1,yb1,xz1,yz1,s1);
S(xa2,ya2,xb2,yb2,xz2,yz2,s2);
writeln(’Ploshad 1 treugolnika=’,s1:5:2);
writeln(’Ploshad 2 treugolnika=’,s2:5:2);
if s1<s2 then writeln(’1 treugolnik menshe 2′)
else
begin
if s1=s2 then writeln(’1 treugolnik = 2′)
else writeln(’2 treugolnik menshe 1′);
end;
writeln;
readln;
end.

Рубрика: Вычисления | Comments Off

Поближе к началу массива

Среда, 09 Сен 2009

Дан массив целых чисел. Найти элемент с максимальным или с минимальным значением, который находится ближе к началу массива.

Program beginmax;
const n=10;
var
A:array [1..n] of integer;
i,nmin,nmax:integer;
begin
writeln();
nmin:=1;
nmax:=1;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[nmin]>a[i] then nmin:=i;
if a[nmax]<a[i] then nmax:=i;
end;
writeln();
if nmax>nmin then writeln(’min’);
if nmin>nmax then writeln(’max’);
if nmax=nmin then writeln(’vsw elementi ravni’);
end.

Рубрика: Массив | Comments Off

12»