Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Ragazzi mi rivolgo a voi esperti perché davvero non riesco a venirne fuori. Ho letto e riletto il codice ma non riesco a capire dove stanno i problemi segnalati dal compilatore, il programma è semplice... Ecco il codice:
Codice sorgente - presumibilmente Delphi
program t_celsius_kelvin;
uses crt;
var
scelta:integer;
t:real;
begin
textcolor(white);
writeln('Indica il tipo di conversione da effettuare. Digita:');
writeln('[1] Per convertire da gradi Celsius a gradi Kelvin');
writeln('[2] Per convertire da gradi Kelvin a gradi Celsius');
readln(scelta);
clrscr;
case scelta of
1 :begin
write('Inserisci la temperatura in gradi Celsius: ');
readln(t);
clrscr;
t:=t+273.15;
write('La temperatura in gradi Kelvin e'' di: ',t:10:3,' K');
end;
2 :begin
repeat
begin
write('Inserisci la temperatura in gradi Kelvin: ');
readln(t);
clrscr;
if(t<0)
then
begin
write('La temperatura in gradi Kelvin non puo'' essere negativa! Riprova.');
writeln;
end;
end;
until(t>0);
t:=t-273.15;
write('La temperatura in gradi Celsius e'' di: ',t:10:3,' °C');
end;
readkey;
end.
...Provate a compilarlo e osservate gli errori del compilatore... Dove sbaglio?