Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 88160
22.05.2007, 23:48
0.00 руб.
0 1 1
Компьютеры Программирование
здравствуйте, что-то у меня запарка с прогой, не могли бы вы помочь,
задача: задать с клавиатуры 3 стороны треугольника;
определить: вид треугольника: разносторонний, равносторонний, равнобедренный, не треугольник;
Вычислить: площадь треугольника по формуле Герона
S=sqrt(p*(p-a)*(p-b)*(p-c))
p=(a+b+c)/2

Заранее благодарю! :)

Обсуждение

Неизвестный
23.05.2007, 00:11
общий
это ответ
Здравствуйте, Ya3va!

<code>
const d:array[0..3] of string=(‘ne sushestvuet‘, ‘raznostoronniy‘, ‘ravnobedrenniy‘, ‘ravnostoronniy‘);
var a,b,c:integer;
t:integer;
s,p:real;
begin
writeln(‘Vvedite a,b,c‘);
readln(a,b,c);
t:=0;
if ((a+b) > c) and ((a+c) > b) and ((c+b) > a) then t:=1;
if (t=1) and ((a=b) or (b=c) or (a=c)) then t:=2;
if (t=2) and (a=b) and (b=c) then t:=3;
writeln(‘Treugolnik ‘,d[t],‘.‘);
if t > 0 then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(‘Ploshad=‘,s:5:2);
end;
readln;
end.
</code>

Удачи!
Форма ответа