Question

Составьте программу на языке программирования ( паскаль ). и построить алгоритм на алгоритмическом языке. можно решить одну из . 1) найти площадь прямоугольного треугольника и его периметр по известным катетам a и b. 2) найти площадь равнобедренной трапеции с основаниями a и b и боковой стороной c.

Answer 1

Var a,b:real;
Begin
  readln(a,b);
  writeln('S = ', a*b*0.5);
  writeln('P = ', a+b+sqrt(a*a+b*b));
End.

var a,b,c:real;
Begin
  readln(a,b,c);
  writeln('S = ', c*(a+b)*0.5);
End.

Answer 2

1)
var a, b, c, area, perimeter:real;
BEGIN    
Writeln('Введите катет a=');    
Readln(a);    
Writeln('Введите  катет b=');    
Readln(b);    
area:=a*b/2;
c:=sqrt (sqr(a)+sqr(b));
perimeter:=a+b+c;
Writeln('Площадь =', area);
Writeln('Периметр a=', perimeter);  
End.