, cehnum [i]. n, '?', (cehnum [i]. rab_w + cehnum [i]. rab_m): 2 , '?
', cehnum [i]. rab_m: 2,'? ', [I]. Rab_w: 2,'? '); Cehnum [i]. Zar_m <> 0 then_m: = cehnum [i]. Zar_m div cehnum [i]. Rab_m else sr_m: = 0; cehnum [i]. Zar_w <> 0 then_w: = cehnum [ i]. zar_w div cehnum [i]. rab_w else sr_w: = 0; (cehnum [i]. rab_w + cehnum [i]. rab_m) <> 0 then_v: = (sr_w + sr_m) div 2 else sr_v: = 0; (sr_v: 5, '?', sr_m: 4, '?', sr_w: 4, '?');; (13,10 + nceh); ('');;;
help; (40,15, 'Допомога'); (1); textbackground (3); (22,6); ('Клавіші управління програмою:');
gotoxy (22,7); write ('Up - на один рядок вгору'); (22,9); write ('Down - на один рядок вниз'); (22,10) ; write ('PgUp - на екран вгору');
gotoxy (22,11); write ('PgDown - на екран вниз');
gotoxy (22,12); write ('Home - на початок списку');
gotoxy (22,13); write ('End - в кінець списку'); (22,14); write ('Tab - меню');
gotoxy (22,15); write ('Esc - вихід');;;
close;;; (1);;
main; keypressed then: = readkey; ch = # 71 then {home}: = 1; beg: = 1;; ch = # 9 then {tab} menum of
: add;
: edit;
: del;
: sort (sortby);
: inf;
: help;
: close;;; ch = # 79 then {end}: = lnum; beg: = count-lnum + 1;; (ch = # 73) then {pageup}: = 1;: = beg-lnum; beg <1 then beg: = 1;; (ch = # 81) then {pagedown}: = lnum;: = beg + lnum; beg> (count-lnum) then beg: = count-lnum + 1;; ch = # 80 then {down} (lin); lin> lnum then: = lnum; (beg + lnum) <= count then inc (beg);;; ch = # 72 then {up} (lin ); lin <1 then: = 1; beg> 1 then dec (beg);;;: = beg + lin-1;;; ch = # 27;;
begin;: = 18;: = 2;: = 1;: = 1;: = 1;;;;;;;.
ДОДАТОК Б
Керівництво оператора
Для виконання прграмми необхідно запустити виконуваний файл KURS.EXE. Після запуску програми на екрані з'являється вікно - Рисунок 1
В
Рисунок 1 - основне вікно програми
При роботі з програмою використовуються наступні клавіші: - на один рядок вгору; - на один рядок вниз; - на екран вгору; - на екран вниз; - в початок списку; - в кінець списку; - меню ; - вихід;
Після натискання на Tab з'являється меню - Малюнок 2
В
Рисунок 2 - основне меню програми
При виборі пункту Додавання даних з'являється вікно введення д...