
14.05.2006, 14:44
|
|
Участник форума
Регистрация: 28.09.2005
Сообщений: 180
Провел на форуме: 749734
Репутация:
34
|
|
Вот здесь ну очень легкая задача...больше по математике надо))) Решить задачу с использованием условного оператора. Составить программу для определения вида треугольника по двум сторонам и углу меджду ними. Определяемое совйство: равностороний, равнобедренный или прямоугольный(обратите внимание, что треугольник может быть равнобедренным прямоугольным). Для корректного анализа нужно определить ещё третью сторону (например, по теореме косинусов sqr(c)=sqr(a)+sqr(b)-2*a*b*cos(a)). вот что получилось у меня, но не правильно работает.
Код:
program abc;
var a,b,c,d:real;
begin
write('enter 1 side:'); readln(a);
write('enter 2 side:'); readln(b);
write('enter angle:'); readln(c);
d:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(a));
if c=90 then writeln('priamougolnii');
if (a=b) and (a=d) and (c=60) then writeln('ravnostoronii');
if (a=b) or (b=d) or (a=d) and (c<>60)then writeln ('ravnobedrenii');
readln;
end.(
|
|
|