Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
chi mi aiuta?
3 views
Skip to first unread message
beejay
Jan 15, 2009, 11:21:11 AM1/15/09
to
ho fatto il semplice programmino di prova che segue
program prova;
uses crt;
var c:char;
begin
repeat
repeat
write('vuoi continuare? (s/n) ');
readln(c)
until (c='s') or (c='n');
until c='n';
end.
in turbopascal7 tutto ok mentre in freeepascal 2.2.2 la compilazione non
è positiva. mi dice internal error 200509181
basta però aggiungere qualche riga di programma e l'errore di
compilazione scompare.
qualcuno sa di cosa si tratta?
ringrazio in anticipo chiunque mi risponderà e saluto tutti
program prova;
uses crt;
var c:char;
begin
repeat
repeat
write('vuoi continuare? (s/n) ');
readln(c)
until (c='s') or (c='n');
until c='n';
end.
in turbopascal7 tutto ok mentre in freeepascal 2.2.2 la compilazione non
è positiva. mi dice internal error 200509181
basta però aggiungere qualche riga di programma e l'errore di
compilazione scompare.
qualcuno sa di cosa si tratta?
ringrazio in anticipo chiunque mi risponderà e saluto tutti
Ohm
Aug 22, 2009, 8:10:50 PM8/22/09
to
beejay ha scritto:
> ho fatto il semplice programmino di prova che segue
> program prova;
> uses crt;
> var c:char;
> begin
> repeat
> repeat
> write('vuoi continuare? (s/n) ');
> readln(c)
> until (c='s') or (c='n');
> until c='n';
> end.
> ho fatto il semplice programmino di prova che segue
> program prova;
> uses crt;
> var c:char;
> begin
> repeat
> repeat
> write('vuoi continuare? (s/n) ');
> readln(c)
> until (c='s') or (c='n');
> until c='n';
> end.
uhm non so cosa causa il tuo errore ma di sicuro trovo inutile quei 2
cicli ne basta uno
...
begin
repeat
write('Vuoi continuare? (s/n)');
readln(c);
until (c='n') or (c='N');
end.
--
______________________________
Omega
http://gnammo.altervista.org
ￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜￜ
0 new messages