Dany jest tekst zajmuj-cy np:50 linijek który chcemy wyświetlić mając do dyspozycji 20 linijek. Żeby by-o wygodniej najlepiej załadować go do tablicy.
Potrzebna jest zmienna x (np: typu integer} zawierająca numer linijki od której program ma wyświetlać. Resztę załatwi pętla for:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
repeat {Wyświetlanie 20 linii na ekranie} for i:=1 to 20 do begin {i- zmienna pomocnicza typu byte} gotoxy(1,i); write(linia[i+x]);{linia- tablica zawierająca tekst} end; k:=readkey {pomocnicza zmienna typu char} case k of {tutaj użytkownik scrolluje tekst, wprowadzona jest dodatkowo blokada uniemożliwiająca przescrollowanie poza tekst} #72: begin x:=x-1; if x<1 then x:=1; end; #80: begin x:=x+1; if x>30 then x:=30; end; end; until k=#27 |
Autor: Piotr Szczepaniec