Materie: | Appunti |
Categoria: | Informatica |
Voto: | 2.5 (2) |
Download: | 256 |
Data: | 09.11.2001 |
Numero di pagine: | 1 |
Formato di file: | .txt (File di testo) |
Download
Anteprima
apotema-esagono_1.zip (Dimensione: 0.33 Kb)
trucheck.it_apotema-di-un-esagono.txt 715 Bytes
readme.txt 59 Bytes
Testo
ESAGON.1PAS
program apotema_esagono (input, output);
(*Questo programma calcola l'apotema dell' esagono*)
var
a:real;
begin
writeln ('Questo programma calcola l''apotema dell'' esagono');
writeln ('');
writeln ('');
writeln ('Inserisci il valore del lato dell'' esagono');
readln(a);
writeln ('Il risultato Љ ', a * 0.866:2:2);
readln;
end.
ESAGON.1BAK
program apotema_esagono (input, output);
(*Questo programma calcola l'apotema dell' esagono*)
var
a:real;
begin
writeln ('Questo programma calcola l''apotema dell'' esagono');
writeln ('');
writeln ('');
writeln ('Inserisci il valore del lato dell'' esagono');
readln(a);
writeln ('Il risultato Љ ', a * 0.866);
end.