Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Cosa c'è che non va in questi programma?
Forum - Pascal - Cosa c'è che non va in questi programma?

Avatar
tantocibo (Normal User)
Newbie


Messaggi: 14
Iscritto: 05/04/2012

Segnala al moderatore
Postato alle 21:42
Mercoledì, 14/11/2012
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

  1. program t_celsius_kelvin;
  2. uses crt;
  3. var
  4.   scelta:integer;
  5.   t:real;
  6.  
  7. begin
  8.   textcolor(white);
  9.   writeln('Indica il tipo di conversione da effettuare. Digita:');
  10.   writeln('[1] Per convertire da gradi Celsius a gradi Kelvin');
  11.   writeln('[2] Per convertire da gradi Kelvin a gradi Celsius');
  12.   readln(scelta);
  13.   clrscr;
  14.   case scelta of
  15.  
  16.     1 : begin
  17.           write('Inserisci la temperatura in gradi Celsius: ');
  18.           readln(t);
  19.           clrscr;
  20.           t:=t+273.15;
  21.           write('La temperatura in gradi Kelvin e'' di: ',t:10:3,' K');
  22.         end;
  23.  
  24.     2 : begin
  25.           repeat
  26.             begin
  27.               write('Inserisci la temperatura in gradi Kelvin: ');
  28.               readln(t);
  29.               clrscr;
  30.               if (t<0)
  31.                 then
  32.                   begin
  33.                     write('La temperatura in gradi Kelvin non puo'' essere negativa! Riprova.');
  34.                     writeln;
  35.                   end;
  36.             end;
  37.           until (t>0);
  38.           t:=t-273.15;
  39.           write('La temperatura in gradi Celsius e'' di: ',t:10:3,' °C');
  40.         end;
  41.  
  42.   readkey;
  43. end.



...Provate a compilarlo e osservate gli errori del compilatore... Dove sbaglio?  :-?

PM Quote
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Segnala al moderatore
Postato alle 22:54
Mercoledì, 14/11/2012
Ciao !

Il compilatore ti segnala errore perché manca un end per chiudere il case.

PM Quote
Avatar
tantocibo (Normal User)
Newbie


Messaggi: 14
Iscritto: 05/04/2012

Segnala al moderatore
Postato alle 15:13
Domenica, 18/11/2012
a quanto pare ha funzionato :) grazie mille

PM Quote