|
scusate ragazzi , mentre seguivo il corso pascal nella sezione dedicata al repeat until c'è quest'esercizio
Program Esempio2;
Uses Crt,WinDos;
Var nome1,nome2,stringa:string;
file1,file2:text;
begin
clrscr;
write(‘Inserire il nome di un file: ‘);
readln(nome1);
write(‘Inserire il nome del file copia: ‘);
readln(nome2);
Assign(file1,nome1);
Assign(file2,nome2);
Reset(file1);
Rewrite(file2);
repeat
readln(file1,stringa);
writeln(file2,stringa);
until eof(file1);
Close(file1);
Close(file2);
writeln(‘Copia completata!’);
readln
end.
In pratica se lo copio ed incollo nel compilatore dev pascal mi da sempre un errore , ho provato ad incollarlo perchè dopo una serie interminabile di tentativi mi dava sempre errore , cmq sempre riguardo alla sezione manca la descrizione di cosa serve il comando readln file1,stringa. Spero possiate aiutarmi. Mi spiego meglio , copio proprio l'esercizio del corso e mi da errore.
Ultima modifica effettuata da minicuzzu il 30/03/2009 alle 18:45 | 
