aiuto pascal

[sono-io1988]

ragazzi per scuola devo fare un programma in pascal, e non mi tornano dei passaggi, il programma consiste nel trovare i numeri primi da 0 a 50.
quindi devo trovare i numeri divisibili solo per 1 e per se stessi.
ma nn ci riesco! mi potete aiutare?
grazzie

[sono-io1988]

nessuno mi sa aiutare?

[WarriorXP]

Var I,N:byte;
    divisori:array[1..50] of byte;

Begin

For I:=1 to 50 do
Begin
	For N:=1 to I do
	Begin
		If ((I mod N)=0) then divisori[I]:=divisori[I]+1;
	End;

If (divisori[I]=2) then writeln(I);
End;

Repeat Until Keypressed;
End.

Se mi dai un quarto d'ora lo provo anche.

[sono-io1988]

ok grazzie mille

[WarriorXP]

Si, funziona, però all'inizio devi aggiungerci

Uses Crt;

se usi TP per DOS oppure

Uses WinCrt;

per la persone Windows.

Altrimenti basta sostituire il "Repeat Until Keypressed;" con un "Readln;"...

[sono-io1988]

mi da questo errore come mai?
http://img143.exs.cx/img143/5329/immagine9lv.jpg

[sono-io1988]

poi mi puoi spiegare cosa vuol dire:
divisori:array[1..50] of byte
???

[WarriorXP]

Eh ma che palle sto errore...

In teoria si tratterebbe di un errore sistematico che indica un tentativo di dividere un numero per 0, tuttavia appare molto più spesso...

Potrebbe trattarsi di bug del client per DOS, infatti su quello per Windows non dà errore.

poi mi puoi spiegare cosa vuol dire:
divisori:array[1..50] of byte
???

E' un array. Non li avete fatti?

[sono-io1988]

Eh ma che palle sto errore...

In teoria si tratterebbe di un errore sistematico che indica un tentativo di dividere un numero per 0, tuttavia appare molto più spesso...

Potrebbe trattarsi di bug del client per DOS, infatti su quello per Windows non dà errore.

E' un array. Non li avete fatti?

no abbiamo cominciato pascl da 1 settimana pur essendo in 3 itis (indirizzo elettronico)

[WarriorXP]

Allora usa

Uses WinCrt;
Var I,N,divisori:byte;

Begin

For I:=1 to 50 do
Begin
divisori:=0;

	For N:=1 to I do
	Begin
		If ((I mod N)=0) then divisori:=divisori+1;
	End;

If (divisori=2) then writeln(I);
End;

Repeat Until Keypressed;
End.

[sono-io1988]

io uso tb per dos al posto di Repeat Until Keypressed; cosa metto?

[WarriorXP]

io uso tb per dos al posto di Repeat Until Keypressed; cosa metto?

Metti Readln;, ma non dipende da questo l'errore...

[sono-io1988]

il prog cn array funziona ora dopo avere installato la patch per pascal.!!!!
ma volevo far andare l'altro, ma se sostituisco
Uses WinCrt e Keypressed con i loro corrispondenti per la versione dos mi da errore su readln

[WarriorXP]

il prog cn array funziona ora dopo avere installato la patch per pascal.!!!!
ma volevo far andare l'altro, ma se sostituisco
Uses WinCrt e Keypressed con i loro corrispondenti per la versione dos mi da errore su readln

Se metti "Uses Crt" Keypressed funziona anche sulla versione DOS.
E poi é impossibile che dia errore al Readln;... L'hai messo il punto é virgola?

[sono-io1988]

si l'ho messo