Паскаль Нужно было написать такую программу: 1) Площадь треугольника корень кв. из p(p-a)(p-b)(p-c), где p=a+b+c/2
5-9 класс
|
Написал программу следующим образом:
program ABD;
var a,b,c:integer;
p,S:real;
begin
writeln ('a,b,c');
readln (a,b,c);
p:=(a+b+c)/2;S:= sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('S=',S:2:1);
end.
Это программа к первой задаче
Другие вопросы из категории
Кол-во страниц 8
кол-во строк на странице 31
кол-во символов в строке 55
мощность алфавита 16
Читайте также
Входные данные длины сторон треугольника.
Выходные данные периметр треугольника, площадь треугольника.
S=a*h/2;
S=1/2*a*b*sin C;
S=sqr(p(p-a)*(p-b)*(p-c));
На вход получает N - количество элементов последовательности чисел.
Затем следуют элементы последовательности.
Программа должна вывести все отрицательные элементы последовательности, чьи квадраты не превосходят 7000, в порядке, обратном порядку их ввода.
Например на вход идут:
4
-3
6
-7
-99
На выходе получаем:
-7
-3
Я предлагаю такое начало программы:
program num9;
const N = 5;
var a : array [1..N] of integer;
i, m : integer;
begin for i := 1 to N do
readln (a[i]);
m := a[i];
if (m < 0) and (m*m < 7000) then
Как следует поступить дальше?
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***
секунд.
3)Составте программу вычисления площади треугольника с основанием а и высотой h. Значение a и h введите с клавиатуры.