1. По сторонам треугольника найти его периметр, площадь, высоты и радиус вписанного и описаного кругов.

+ 0 -

Никита124

23 февр. 2015 г., 23:19:20 (9 лет назад)

var
  a,b,c,p,p2,s,h1,h2,h3,r,rv:real;
begin
readln(a,b,c);
p:=a+b+c;
p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
h1:=2*s/a;
h2:=2*s/b;
h3:=2*s/c;
r:=a*b*c/4/s;
rv:=s/p2;
writeln('p=',p);
writeln('s=',s);
writeln('Высоты: ',h1,' ',h2,' ',h3);
writeln('Радиус вписанной окружности: ',rv);
writeln('Радиус описанной окружности: ',r);
end.

var
  a,b,c,max:real;
begin
readln(a);
max:=a;
readln(b);
if b>max then max:=b;
readln(c);
if c>max then max:=c;
writeln('Наибольшее: ',max);
end.

var
  i:integer;
  a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(-10,10);
  write(a[i],' ');
  end;
writeln;
writeln('Измененный массив:');
for i:=1 to 10 do
  begin
  if a[i]>0 then a[i]:=a[i]-7;
  write(a[i],' ');
  end;
 end.