John Constantine Napisano Kwiecień 1, 2013 Zgłoś Share Napisano Kwiecień 1, 2013 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. Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Kwiecień 1, 2013 Zgłoś Share Napisano Kwiecień 1, 2013 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. Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
John Constantine Napisano Kwiecień 1, 2013 Autor Zgłoś Share Napisano Kwiecień 1, 2013 Ok. Teraz działa. Dzięki. Temat można usunąć. Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.