OliForum Matematico

program turni;
<BR>
<BR>var i:text;
<BR> o:text;
<BR> a,b,n,cc,cd:byte;
<BR> r:integer;
<BR>type p = array [0..95] of boolean ;
<BR>
<BR>begin
<BR>
<BR>for cc := 0 to 95 do begin
<BR> p[cc] := false;
<BR> end;
<BR>r:=-1;
<BR>
<BR>assign(i,\'input.txt\');
<BR>reset(i);
<BR>
<BR>readln(i,n);
<BR>
<BR>for cc := 1 to n do begin
<BR> read(i,a);
<BR> readln(i,b);
<BR> for cd := a to a+b do p [cd]:= true;
<BR> end;
<BR>
<BR>close (i);
<BR>
<BR>for cc := 0 to 95 do begin
<BR> if (p[cc]=false) then begin
<BR> if r=-1 then r:=cc;
<BR> end;
<BR> end;
<BR>
<BR>assign(o,\'output.txt\');
<BR>rewrite(o);
<BR>
<BR>write(o,r);
<BR>
<BR>close(o);
<BR>
<BR>end.
<BR>
<BR><!-- BBCode Start --><B>Perchè non funziona?</B><!-- BBCode End -->
<BR>
<BR>
<BR>Grazie.
<BR><BR><BR>[ Questo Messaggio è stato Modificato da: W28 il 22-12-2003 15:54 ]

secondo voi perchè mi da questi errori per il calcolo di vettori?
<BR>
<BR>
<BR>
<BR>turni.pas(12,24) Error: Illegal qualifier
<BR>turni.pas(24,46) Error: Illegal qualifier
<BR>turni.pas(30,29) Error: Illegal qualifier
<BR>turni.pas(43) Fatal: There were 3 errors compiling module, stopping
<BR>
<BR>
<BR>
<BR>Voglio sapere come Dio ha creato questo mondo.
<BR>Voglio conoscere i suoi pensieri.
<BR>Il resto è dettaglio.
<BR>A. EINSTEIN
<BR>
<BR><!-- BBCode Start --><I>Meno 28 Giorni</I><!-- BBCode End --><BR><BR>[ Questo Messaggio è stato Modificato da: W28 il 22-12-2003 16:45 ]

Completamente OT, comunque........
<BR>
<BR>Sostituisci la riga
<BR>\"type p = array [0..95] of boolean ;\"
<BR>
<BR>con la riga
<BR>\"p : array [0..95] of boolean ;\"
<BR>
<BR>e vedrai che funzionerà tutto.
<BR>
<BR>L\'errore è che hai definito un tipo di dato senza aver creato una variabile di quel tipo. Quindi nel tuo codice p rappresenta un tipo, e non una variabile.[addsig]

Grazie Anti[addsig]