Newsgroup: it.comp.lang.pascal
Titolo: HO L'ESAME TRA 24 ORE...URGENTE!!!

Ogni commento è superfluo...basta guardare l'oggetto!
Perchè NON gira!?
Mi da errore di runtime......!
CHE CASINO! HELP!
sorgente:
Program eserc03 (INPUT,OUTPUT);
uses WINCRT;
var
cognome: string[20];
nome: string[20];
codiceinsegnamento: integer;
quest: integer;
voto: integer;
somma: integer;
cont: integer;
contatori:array[1..30]of 0..maxint;
media:string[5];
ingresso:text;
uscita:text;
label
inizio;
begin
inizio:
assign(ingresso,'eserc02.usc');
reset(ingresso);
assign(uscita,'eserc03.usc');
rewrite(uscita);
cont:=1;
 while cont<=30 do
  begin
   contatori[cont]:=0;
   cont:=cont+1;
  end; (* fine while *)
read(ingresso,nome);
read(ingresso,cognome);
write(cognome,nome);
write(uscita,cognome,nome);
readln(ingresso);
(* leggi i primi 5 caratteri del record per controllare se trovi "media" *)
read(ingresso,media);
repeat
 read(ingresso,cont);
 read(ingresso,codiceinsegnamento);
 read(ingresso,voto);
 read(ingresso,somma);
 contatori[voto]:=contatori[voto]+1;
 writeln(cont:7,codiceinsegnamento:14,voto:15,somma:8);
 writeln(uscita,cont:7,codiceinsegnamento:14,voto:15,somma:8);
 read(ingresso,media);
 until media='media';
 if cont<>0 then write('voto    frequenza');
 if cont<>0 then write(uscita,'voto    frequenza');
 cont:=1;
 while cont<=30 do
 begin
 if contatori[cont]<>0 then
 begin
 write(cont);
 write(contatori[cont]);
 write(uscita,cont);
 write(uscita,contatori[cont]);
 end;
 cont:=cont+1;
 end;
 close(ingresso);
 close(uscita);
write('Premi 0 per uscire oppure 1 per riavviare il programma: ');
readln(quest);
if quest=0 then exit else if quest=1 then goto inizio;
end.
OUTPUT FILE DI INGRESSO:
B Alessio
 contatore  codice insegnamento  voto   somma
      1             5             24      24
      2            16             30      54
      3             2             18      72
      4            17             26      98
      5            18             25     123
media=25

 ha scritto nel messaggio
news:27eA6.29967$wG3.2...@news.infostrada.it...


 ha scritto nel messaggio
news:3ad2...@news.edisons.it...


 ha scritto nel messaggio
news:gfcC6.16493$s93.9...@news.infostrada.it...


infatti ricorda il linguaggio basic che non prevedeva procedure!
le quali sono essenziali in pascal
"ReDiCuori" <redicu...@NOSPAMlibero.it> ha scritto nel messaggio
news:KFjC6.19360$s93.1...@news.infostrada.it...


 non fa parte del linguaggio Pascal?
Credo che il Niklaus Wirth inseri' "goto" tra
le istruzioni del linguaggio per stanare,
tra i suoi studenti, quelli che usavano il basic ;)
--
AmMaT
m   w
M   A
a   i
TwAiN

In effetti l'uso del "GoTo" è fortemente sconsigliato e infatti molti prof.
di Informatica vanno su tutte le furie quando gli studenti fanno uso di
questa istruzione.
Io non sono molto d'accordo su questa posizione perchè se del "GoTo" si fa
buon uso (evitando i salti incondizionati, che costituiscono un grave errore
perchè si viola una regola fondamentale della programmazione strutturata)
spesso può essere utile per semplificare situazioni ingarbugliate dove l'uso
di procedure nidificate peggiora notevolmente la leggibilità del programma
nonché rende più difficile la stesura del programma stesso.
Per quanto riguarda il Basic voglio ribadire che è stato, è, e sarà sempre
un grande linguaggio, in particolare le varie evoluzioni che ha avuto nel
tempo (Visual Basic, VB script, Visual Basic application edition, ecc...) lo
rendono il linguaggio più diffuso in assoluto nonché uno fra i più potenti
disponibili.
Almeno in ambiente Windows non ci sono C++ né JAVA che tengano: Visual Basic
è il migliore e basta.
Saluti, Marco ;)

Visual Basic è il migliore e basta.
:-PRRRRRRRRRRRRRRRR
prova Delphi e poi dimmi