Решите пожалуйста на Паскале задачу.Отыскать площади N-треугольников, для каждого из которых
Решите пожалуйста на Паскале задачу.
Найти площади N-треугольников, для каждого из которых знамениты длины сторон. N-ввести с клавиатуры, использовать процедуду, для вычисления площади треугольника по формуле Герона( для тех кто не знает формулу Герона вот: S=(р(р-a)(р-b)(p-c))))))
Аринка Пахлеванян
Правильного много-угольника?
Звеняцкий
Михон
N-треугольника
Никита
А, сообразил...
Юшков
Денис
Т.е N - кол-во треугольников? коварно выдумано..
Руслан Лахмоткин
Нет, ко-во углов.
Амина Исурина
Я вас не разумею! У треугольника только 3 угла.
Илья Позднышов
Желая... да вы правы. нам учитель ничего не растолковал..
1 ответ
Алёна Васильева-Платонова
program Area;
var
a,b,c,p,S: real;
i,N: integer;
begin
WriteLn('Введите число треугольников:' );
ReadLn(N);
i := 1;
while i lt;= N do
begin
Write('Введите сторону a треугольника ' , i , ': ');
ReadLn(a);
Write('Введите сторону b треугольника ' , i , ': ');
ReadLn(b);
Write('Введите сторону c треугольника ' , i , ': ');
ReadLn(c);
p := (a+b+c)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn('S_',N, ' = ',S);
i := i+1
end;
end.
var
a,b,c,p,S: real;
i,N: integer;
begin
WriteLn('Введите число треугольников:' );
ReadLn(N);
i := 1;
while i lt;= N do
begin
Write('Введите сторону a треугольника ' , i , ': ');
ReadLn(a);
Write('Введите сторону b треугольника ' , i , ': ');
ReadLn(b);
Write('Введите сторону c треугольника ' , i , ': ');
ReadLn(c);
p := (a+b+c)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
WriteLn('S_',N, ' = ',S);
i := i+1
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов