[FreePascal]Program sam sie wyłącza a jest przecież readln.

[koszalek]

USES CRT;
var
iloczyn,liczba1,liczba2:integer;

BEGIN
clrscr;
write('podaj pierwszą liczbę: ');
read(liczba1);
writeln;
writeln;
write('podaj drugą liczbę: ');
read(liczba2);
writeln;
writeln;

iloczyn:=liczba1*liczba2;
writeln('iloczyn: ',iloczyn);
delay(2000);
clrscr;
gotoxy(30,30);
write('do widzenia');
readln; {dlaczego sie wylacza? jest przecież readln;}
END.

Na końcu jest readln a sie wyłącza samo. Gdy dopiszę jeszcze jedno readln i jest:

readln;
readln;

to wtedy nie zamyka sie.

Dlaczego musi być podwójne readln by sie nie wyłączało? Może mi to ktoś wytłumaczyć?

Na stronach z kursami pascala napisane jest by dopisać readln; zawsze na końcu by program sie nie zamykał sam, nie jest wspomniane by trzeba było podwójnie stosować readln; W przykładach podane jest tylko pojedyncze.

 

[walkowski91]

Proponuję użyć funkcji

readkey;

powinno zamknąć się po naciśnięciu klawisza

 

[Tendencjusz]

Skompilowałem na Dev-Pascal(FreePascal 1coścoś ) i jest ok - Zaktualizuj kompilator, albo zainstaluj sobie inne środowisko od razu(jak wolisz, jeżeli używasz czegoś wyglądającego jak turbo, to polecam Dev).

Aha! Pisz "dowidzenia" razem, to też mogła być przyczyna błędu.

 

[pateusz]

Najlepszy i tak jest Turbo Pascal.