Program wypisujący liczby od 1 do 10

[John Constantine]

Proszę o pomoc w poprawnym napisaniu programu. Jest to zadanie z książki "Ćwiczenia z Turbo Pascala" W. Arciszewskiego. Ćwiczenie przykładowe do polecenia pętli FOR..TO...DO, które polega na napisaniu programu wypisującego na ekranie liczby od 1 do 10 w kolejności rosnącej.

 

Program napisałem i sprawdziłem z podaną odpowiedzią w książce, ale program nie działa tak jak powinien. Po uruchomieniu programu wyświetla się pierwsza liczba (1), kursor przechodzi do następnej linii, ale nie wypisuje kolejnej liczby w kolejności (2) tylko zatrzymuje się. Dopiero po wciśnięciu klawisza Enter wypisuje kolejną liczbą i powtarza się to co napisałem na początku.

 

Bardzo proszę o przejrzenie kodu i odpowiedź co powinienem dopisać, aby program automatycznie sam wypisywał liczby pionowa aż do 10 i dopiero wtedy się zatrzymywał. Program powinien zawierać tylko jedną pętlę FOR...TO..DO.

 

Dziękuję za odpowiedź.

 

PROGRAM Liczby_1_10;
USES
Crt;
VAR
x:INTEGER;
BEGIN
ClrScr;
     	FOR x:=10 TO 10 DO
     	BEGIN
     	Writeln(x);
     	Readln;
     	END;
END.

[5corpio]

Masz w kodzie:

 

for x := 10 to 10 do
BEGIN
Writeln(x);
Readln;

 

 

Co znaczy, że pętla iteruje tylko raz dla liczby 10 i czeka na reakcje z domyślnego urządzenia wejścia. Musisz zrobić:

for x := 1 to 10 do
WriteLn(x);
Readln;

 

I już block Begin end w pętli nie jest potrzebny.

[John Constantine]

Ok. Teraz działa. Dzięki. Temat można usunąć.