Программы с использованием операторов ветвления и циклов

[Vitas1234]

Программы с использованием операторов ветвления и циклов

1.Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольные. Если таковых нет, то вычислить величину угла С.
2.Дано натуральное число п. Проверить, будут ли все цифры числа различными.

[Stilet]

А в чем трудности?
Первая задача - вычисляй все углы сразу, потом уж разберешся какой тип треугольника

Вторая задача - превращаешь число в строку (Str() ) и анализировать каждую ее циферку

[Vitas1234]

А как Вычислить все углы срезу?

[Stilet]

Причем тут все? Как математически вычисляется один угол?

[Vitas1234]

как преобразовать число в строку????

[D-mon]

Stilet же писал

Вторая задача - превращаешь число в строку (Str() ) и анализировать каждую ее циферку

[-=<[Evklidd]>=-]

Сообщение от Vitas1234

безпонятия!!!!!

В любом учебнике геометрии за 9 класс есть такая теорема, теорема косинусов, слышали когда-нибудь о ней?! Так вот, используя ее, угол А (противолежащий стороне а) например равен A = arccos((b^2+c^2-a^2)/2*b*c). Вроде бы все стороны у вас даны. Теперь понятно как углы находить?

[Plague]

А еще есть теорема Пифагора

a^2+b^2=c^2;

если с-максимальная сторона
и условие a^2+b^2=c^2 то треугольник прямоугольный.
Это даже не 9-ой класс, а 7-ой. О как.

[Stilet]

теорема Пифагора

Которая в паскале звучит так:
if a*a+b*b=c*c then Треугольник прямоугольный

[Vitas1234]

вот я тут сделал 1-е задание помотрите пож-та правильноли она работает и вобще правильноли я ее написал?

program rr;
uses crt;
var
ABC,c,x,y,z:real;
begin
Write ('vvedite x: ');
read (x);
Write ('vvedite y: ');
read (y);
Write ('vvedite z: ');
read (z);
begin
clrscr;
If (x*x+y*y-z*z)<=0 then
WriteLn ('on prymougolni')
else
begin
C:=1/cos(y*y+z*z-x*x/2*y-z);
WriteLn ('ugol C=',C:2:2);
end;
readkey;
end;
end.