1. По сторонам треугольника найти его периметр, площадь, высоты и радиус вписанного и описаного кругов.
10-11 класс
|
2. Найти больше из трех данных чисел.
3. В одномерном массиве положительные элементы меншиты на 7.
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.
Другие вопросы из категории
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
пользователем, выделены полужирным шрифтом).
Вычисление объема параллелепипеда.
Введите исходные данные:
Длинна (см): 9
Ширина (см): 7.5
Высота (см): 5
Читайте также
даны катеты прямоугольного треугольника.найти его гипотенузу