Trovare gli errori del seguente sorgente:
Soluzioni:
riga 01: non si possono usare caratteri speciali (lettere accentate, spazi, segni aritmetici) nelle dichiarazioni dei nomi delle unità;
riga 03: la dichiarazione delle libreriava solo dopo implementation;
riga 09: l'end non ci deve essere dopo una dichiarazione singola di un enumeratore;
riga 11: la procedura non può ritornare un valore;
riga 11: tipo void inesistente nel Pascal;
riga 14: manca il ; dopo end;
riga 21: manca end; del ciclo case...of;
riga 24: non è specifictato il tipo della variabile;
riga 28: le variabili temporanee devono essere specificate prima di begin;
riga 32: getrand è un nome non specificato;
01 unit Unità; 02 03 uses crt; 04 05 interface 06 implementation 07 type 08 Status=(acceso,spento,standby) 09 end; 10 11 procedure ChangeStatus(var e:status;s:status):void; 12 begin 13 e:=s; 14 end 15 16 function ReturnCode(s:status):string; 17 begin 18 case s of 19 acceso: returncode:='11'; 20 spento: returncode:='00'; 21 standby: returncode:='01'; 22 end; 23 24 const Numero=89; 25 26 function GetTriple(d:real):longint; 27 begin 28 var t,e:real; 29 t:=2*d; 30 e:=3*t; 31 t:=t+d*e; 32 getrand:=e*d-t; 33 end; 34 end.
Soluzioni:
riga 01: non si possono usare caratteri speciali (lettere accentate, spazi, segni aritmetici) nelle dichiarazioni dei nomi delle unità;
riga 03: la dichiarazione delle libreriava solo dopo implementation;
riga 09: l'end non ci deve essere dopo una dichiarazione singola di un enumeratore;
riga 11: la procedura non può ritornare un valore;
riga 11: tipo void inesistente nel Pascal;
riga 14: manca il ; dopo end;
riga 21: manca end; del ciclo case...of;
riga 24: non è specifictato il tipo della variabile;
riga 28: le variabili temporanee devono essere specificate prima di begin;
riga 32: getrand è un nome non specificato;
A cura di: Il Totem