Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  program cortile
Language: PASCAL
Code:
program Cortile;
var base,altezza,costo,perimetro,lato:real;
var pr:integer;
begin
     write('inserisci base: ');
     read(base);
     write('inserisci altezza: ');
     readln(altezza);
     write('inserisci prezzo unitario: ');
     readln(pr);
     lato:=sqrt(sqr(altezza)+ sqr(base/2));
     perimetro:= base + (2* lato);
     costo:= perimetro * pr;
     write('Costo: ', costo);
     readln();
end.          
Comments: