|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Senior Member
Iscritto dal: Apr 2008
Città: Cernusco Sul Naviglio (MI)
Messaggi: 1292
|
[pascal] ridirigere output su file
salve a tutti, ho un problema con un programma pascal, sto cercando di far funzionare la funzione (scusate il gioco di parole) assign, il frammento di codice è il seguente (naturalmente è solo una prova, il programma completo è ancora in fase di scrittura
Codice:
program scrivere_testo;
var
a, b : integer;
prova : text;
Begin
assign (prova, 'c:\casa\prova.txt');
writeln('inserisci il primo numero');
readln(a);
writeln('inserisci il secondo numero');
readln(b);
a := a + b;
writeln(a);
readln;
reset(prova);
rewrite (prova);
writeln (a, b);
close (prova);
writeln('scrittura sul testo terminato');
readln;
end.
grazie mille a chiunque mi saprà aiutare
__________________
Desktop: MB: ASRock x58 Deluxe3 CPU: Intel Corei7 930 RAM: corsair xms3 6GB (3x2) ddr3 + 8GB Kingston GPU: GTX 580 HDD: Raid 0 HD502HJ ALIM: Corsair TX650W OS: Windows 7 ultimate 64 bit Notebook: dell latitude d620 |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Apr 2008
Città: Cernusco Sul Naviglio (MI)
Messaggi: 1292
|
sono riuscito a risolvere il problema che non mi scriveva sul file, adesso posto il codice, (si bhe lo so che è la somma di due numeri XD è la priam cosa che mi è venuta in mente per provare
Codice:
program scrivere_testo;
var
a, b, c : integer;
prova : text;
Begin
assign (prova, 'c:\casa\prova.txt');
writeln('inserisci il primo numero');
readln(a);
writeln('inserisci il secondo numero');
readln(b);
c := a + b;
writeln(c);
readln;
rewrite(prova);
writeln(prova, 'il primo addendo è: ',a,' il secondo addendo è: ', b,' il risultato è: ', c );
close (prova);
writeln('scrittura sul testo terminato');
readln;
end.
__________________
Desktop: MB: ASRock x58 Deluxe3 CPU: Intel Corei7 930 RAM: corsair xms3 6GB (3x2) ddr3 + 8GB Kingston GPU: GTX 580 HDD: Raid 0 HD502HJ ALIM: Corsair TX650W OS: Windows 7 ultimate 64 bit Notebook: dell latitude d620 Ultima modifica di SwOrDoFmYdEsTiNy : 14-01-2011 alle 15:58. |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 06:27.



















