Консультация № 136458
12.05.2008, 13:41
0.00 руб.
0 1 1
Вычислить гипотенузу и площадь прямоугольного треугольника по значению катаетов

Обсуждение

Неизвестный
16.05.2008, 20:08
общий
это ответ
Здравствуйте, Cobain!
Исходный код вашей программки - в приложении. Проверен. Желаю удачи.

Приложение:
program triangle;uses crt;var a,b,c,p,S:real;begin clrscr; writeln; write(‘ Input the values of <a> & <b> : ‘); readln(a,b); c:=sqrt(a*a+b*b); writeln(‘ c = ‘,c:7:2); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(‘ S = ‘,S:7:2); writeln; write(‘ That is all. Press <Enter> for quit - ‘); readln;end.
Форма ответа