Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Prova area trapezio
Language: PASCAL
Code:
program area;
var b1,b2,h A: real;

begin
write ('b1=');
read(b1);

write ('b2=');
read(b2);

write ('h=');
read(h);

A:=(b1+b2)*h/2;

writeln('areal vale=', A:4:2);
readln;
readln;

end.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: