Apotema di un esagono

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.

Esempio