Esercizi in pascal

Materie:Appunti
Categoria:Informatica

Voto:

1.5 (2)
Download:118
Data:25.05.2000
Numero di pagine:1
Formato di file:.txt (File di testo)
Download   Anteprima
esercizi-pascal_1.zip (Dimensione: 0.38 Kb)
trucheck.it_esercizi-in-pascal.txt     605 Bytes
readme.txt     59 Bytes



Testo

program area_triangolo;
var a,b,c,p,area:real;
begin
writeln('inserisci a b c');
read (a,b,c);
if c >= (a+b)
then begin
write('Il triangolo non esiste');
end;
if c*c (a*a+b*b)
then begin
p:=(a+b+c)/2 ; (*semiper.*)
area:=sqrt(p*(p-a)*(p-b)*(p-c)); (*form.ERONE*)
writeln ('area: ',area:7:2)
end
else begin
area:=(a*b)/2 ;
writeln ('area del triangolo rettangolo Љ ',area:7:2)
end
end.
end.

Esempio



  



Come usare