[Turbo Pascal] Jak wyświetlić na ekranie wiecęj linii niż się zmieści

[Vickers]

Witam. Napisałem program w Turbo Pascalu, który miał wypisywać na ekranie około 100 wyników jeden pod drugim. Gdy go uruchomiłem okazało się, że otrzymałem tylko kilka ostatnich wyników które mieściły się w oknie, reszta została usunięta. Nie wiem jak rozwiązać ten problem, kod programu jest dobry więc to musi być coś z ustawieniami. Proszę o pomoc

 

Oto kod programu, przykład wyświetlania liczb na ekranie monitora.

Program test;
Uses Crt;
Var 
   A : Integer;
Begin
   For A:= 1 To 100 Do
   Begin
       Writeln (A);
   End;
End.

Jest to bardzo prosty program i działa prawidłowo gdy zmieniam polecenie aby wypisywał jedno za drugim, jednak gdy ma wypisywać w osobnych wierszach wypisuje tylko tyle ile mieści się w oknie reszta jest kasowana

[Dejta]

Myślę, że dobrym rozwiążaniem byłoby zrzucenie wyników do pliku. Częstym problemem z aplikacjami konsolowymi, które produkują dużą ilość linii jest to, że można "cofnąć" ekran tylko o ograniczoną wartość.

 

Pozdrawiam

Wowa

[Integer]

Faktycznie można by to zrzucić do pliku tekstowego, jak to zrobić znajdziesz tu: http://www.unit1.pl/186,txt

 

Możesz też kolejne liczby oddzielać spacjami aby zmieściły się na ekranie:

Program test;
Uses Crt;
Var 
   A : Integer;
begin
   for A:= 1 To 100 Do
   begin
       write(A,'   ');      {wyswietlanie tekstu bez przechodzenia do nowego wiersza}
   end;
end.OPĘ'jĘ5eózź'k\"'\"zIZ+3jŹqQAŃ)U
)Y(% Ń)(Qźź((ŃąĄ(Ą
ĄŃĄ((Ńąąą(
IUŃ-A(()

[Vickers]

Dziękuje za odpowiedzi zastosowałem i wszystko już działa

[wbp]

zależnie od ustawień konsoli widzisz 25 lini reszta jest po za ekranem wyświetlania - podziel na kolumny, użyj suwaczka albo w trybie graficznym napisz mniejszą czcionką