Напишите программу вычисления площади и гипотенузы прямоугольного треугольника ,если известны его катеты.нужно оформить эту программу в виде
10-11 класс
|
подпрограммы функция!плииззззззззззз помогите:)
Program n1;
Uses CRT;
Var a,b,c,gip: real;
Function S(x,y: real): real;
begin
s:=x*y/2;
end;
Function G(x,y: real): real;
begin
g:=sqrt(sqr(x)+sqr(y))
end;
begin
Writeln('Vvedite katety');
Readln(a,b);
c:=s(a,b);
gip:=g(a,b);
writeln('Ploshad = ',c:3:2);
writeln('Gipotenuza = ',gip:3:2);
readln
end.
Другие вопросы из категории
Любишь кататься — люби и саночки возить!
блок схему бы еще
условие, что в палитре 16 миллионов цветов?
Читайте также
паскаль.
Помогите пожалуйста,никак не пойму эту программу.
напишите программу в паскале, для построения прямоугольного треугольника с обозначением прямого угла, вершин, и подписать катеты и гипотенузу... выручайте!!!
Вычисление площади кольца
Введите исходные данные:
Радиус внешнего круга (см):
Радиус внутреннего круга (см):
Площадь внешнего круга:
Площадь внутреннего круга:
Площадь кольца: