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.