[PASCAL] Salta il read()

[lomiz]

Ho fatto un semplice programma:

Program altezze;
uses crt;
var n,i:integer;
bassi:real;
nome:array [1..300] of string;
altezza:array[1..300] of real;
procedure nstud;
begin
Writeln('Di quanti studenti vuoi inserire l''altezza?');
read(n);
end;
procedure dati;
begin
for i:= 1 to n do
begin
Writeln('Come si chima il ',i,' studente?');
Readln(nome[i]);
Writeln('Quanto e'' alto ',nome[i],'?');
read(altezza[i]);
end;
end;
Procedure piubassi;
begin
writeln('Di che altezza vuoi sapere i più bassi?');
read(bassi);
writeln('I più bassi di ',bassi,' sono:');
for i:= 1 to n do
if altezza[i] < bassi then writeln(nome[i],':',altezza[i]);
repeat until keypressed
end;
begin
nstud;
dati;
piubassi;
end.

E' giusta sintatticamente ma quando lo si esegue nel punto:
...
procedure dati;
begin
for i:= 1 to n do
begin
Writeln('Come si chima il ',i,' studente?');
Readln(nome[i]);
Writeln('Quanto e'' alto ',nome[i],'?');
read(altezza[i]);
end;
end;
...

Mi salta la lettura di (nome[i])

cosa ho sbagliato?

Grazie

[tulkas85]

prova a fare così :
Writeln('Come si chima il ',i,' studente?');
read(nome[i]);

forse il readln ti fa saltare la lettura.

ciao

[king64]

Funziona perfettamente . Che compilatore usi ? :master:

[lomiz]

Funziona perfettamente . Che compilatore usi ?

Uso il Dev-Pascal 1.9.2 (Freepascal)

prova a fare così :
Writeln('Come si chima il ',i,' studente?');
read(nome[i]);

forse il readln ti fa saltare la lettura.

ciao

Ho provato ma il risultato è lo stesso
rimetto il codice:

Program altezze;
uses crt;
var n,i:integer;
bassi:real;
nome:array [1..300] of string;
altezza:array[1..300] of real;
procedure nstud;
begin
Writeln('Di quanti studenti vuoi inserire l''altezza?');
read(n);
end;
procedure dati;
begin
for i:= 1 to n do
begin
Writeln('Come si chima il ',i,' studente?');
Readln(nome[i]);
Writeln('Quanto e'' alto ',nome[i],'?');
read(altezza[i]);
end;
end;
Procedure piubassi;
begin
writeln('Di che altezza vuoi sapere i più bassi?');
read(bassi);
writeln('I più bassi di ',bassi,' sono:');
for i:= 1 to n do
if altezza[i] < bassi then writeln(nome[i],': ',altezza[i]);
repeat until keypressed
end;
begin
nstud;
dati;
piubassi;
end.

Possibile che abbia scoperto un bug nella versione del mio compilatore?

[tulkas85]

forse il problema è legato ad un mancato svuotamento del buffer...
quando leggi la stringa read(nome[i]) nel tuo array viene memorizzato l'ultimo carattere digitato,
esattamente "invio" dato che hai usato writeln ...
prova a mettere un semplice write prima della lettura del nome, xò dubito che funzioni, ci vorrebbe prima della lettura un comando per svuotare il buffer tipo fflush del c ma purtroppo non conosco bene il pascal.

[lomiz]

Mi fanno venire il nervoso questi problemi stupidi avrei preferito un errore di sintassi

[lomiz]

prova a mettere un semplice write prima della lettura del nome

Grazie ma non funziona lo stesso

Riposto il codice nella speranza che qualcuno riesca a darmi una mano

Program altezze;
uses crt;
var n,i:integer;
    bassi:real;
    nome:array [1..300] of string;
    altezza:array[1..300] of real;
 procedure nstud;
 begin
 Writeln('Di quanti studenti vuoi inserire l''altezza?');
 read(n);
 end;
 procedure dati;
 begin
 for i:= 1 to n do
 begin
 Writeln('Come si chima il ',i,' studente?');
 Readln(nome[i]);
 Writeln('Quanto e'' alto ',nome[i],'?');
 read(altezza[i]);
 end;
 end;
 Procedure piubassi;
 begin
 writeln('Di che altezza vuoi sapere i più bassi?');
 read(bassi);
 writeln('I più bassi di ',bassi,' sono:');
 for i:= 1 to n do
 if altezza[i] < bassi then writeln(nome[i],': ',altezza[i]);
 repeat until keypressed
 end;
 begin
 nstud;
 dati;
 piubassi;
 end.

[tulkas85]

vediamo se ci ho azzeccato con il fatto del buffer, sostituisci l'array di stringhe con un array di interi vedi se legge...se è così bisogna trovare una funzione che svuoti il buffer in pascal...

[lomiz]

[quote] sostituisci l'array di stringhe con un array di interi vedi se legge[\quote]

Funziona anche se non ho ben capito il problema principale (è il primo programma che faccio utilizzando gli array)

Dici che c'è una maniera per magari ritrasformarli in String?

[king64]

Prova a sostituire l'istruzione

nome:array [1..300] of string;

con

nome:array [1..300] of string[20];

Fammi sapere . Ciao