: 4: 4) ;;; (tvr-vnp) gt;=tf; {кінець циклу - час минув}
vs:=vs/10;:=rs + vs * (tf-t);:=tvr-vnp; ( TPR - gt; , t, | ); (tf-t) lt; tin then vs:=vrk * 10;
vsz:=vsz + vs;:=j + 10; {загальне число вимірів швидкості}
vszs:=vsz/j; ( PRS- gt; , rs: 3: 3, | ); ( VS - gt; , vs/ 10: 3: 3, | ); ( VSZ- gt; , vszs: 3: 3, | ); writeln ( TOST- gt; , tf-t, | ); (2000); delay (7000); nosound; textcolor (13); {звуковий сигнал - час минув}
if rs gt;=ss {якщо час прогону менше заданого}
then writeln ( : 15, Встигли! ) else writeln ( : 15, Не встигли! ); (h, min, s , ds);
TextColor (12); {Установка кольору часу } (40,25); ( Час фінішу - gt;: ); (h, годину ??raquo;, min, хв , s, сек );
textcolor (14) ;; {кінець процедури}
Далі розглянемо процедуру, за допомогою якої здійснюється виведення на екран текстового файлу справкі.punkt3; {процедура, відповідна 3-му пункту меню} txt: char; {оголошуємо локальні змінні процедури}: text; {змінна - текстовий файл}; (help, hlp.txt ); {асоціюємо файлову змінну з ім'ям файлу}
writeln; (13) ;; (14);
{$ I -}
Reset (help); {відкриваємо файл для читання}
{$ I +} IOresult lt; gt; 0 then {якщо помилка виникла - файл не знайдений} (4); ( Помилка! Файл допомоги отствует ); readkey; (14) ;; {завершення роботи процедури} else {якщо файл знайдений} not EOF (help) do {поки не буде досягнутий кінець файлу}
{зчитуємо з файлу символ і виводимо його на екран}
Read (help, txt); Write (txt); ;;; ( Press any key ... ) ;;;; {кінець процедури}
Далі слід основна програма, в якій процедури і функції можуть викликатися як завгодно разів.:=# 0; {змінна, в якій буде зберігатися код натиснутоюклавіші} [1]:= 1. Введення початкових даних raquo ;; [2]:= 2. Робота програми raquo ;; [3]:= 3. Довідка raquo ;; [4]: ??= 4. Exit raquo ;;:=1; {спочатку обраний 1-й пункт меню}:=5; {координати курсора}:=5; :=NORM ;; {виклик процедури виведення меню на екран} {початку циклу, в якому на екран виводяться пункти меню}:=ReadKey; {зчитуємо код натиснутоюклавіші}
if ch=char (0) then begin ch:=ReadKey;
case ch of {залежно від того, яку клавішу натиснув користувач}
chr (80): {стрілка вниз} punkt lt; N then begin (x, y + punkt - 1); write (menu [punkt]);
punkt:=punkt + 1; {номер обраного пункту зростає на одиницю}
TextAttr:=SEl; (x, y + punkt - 1); (menu [punkt]); TextAttr:=NORM ;; (72): {стрілка вгору} punkt gt; 1 then begin (x, y + punkt - 1); write (menu [punkt]);:=punkt - 1;:=SEl; (x, y + punkt - 1); (menu [punkt]);:=NORM ;;; ch=chr (13) then begin {натиснута клавіша lt; Enter gt; }
case punkt of {викликаємо відповідну процедуру, залежно від номера обраного пункту}
: punkt1;
: punkt2;
: punkt3;
: ch:=chr (27); {вихід - натиснута клавіша Esc} ;; {виклик процедури виведення меню на екран}; ch=chr (27); {умова виходу з циклу, 27 - код lt; Esc gt; }. {кінець програми}
Таким чином, результатом виконання практичної частини курсової роботи стала розробка повнофункціональної програми, на прикладі створення якої були наочно продемонстровані переваги використання користувальницьких меню при розробці інтерфейсу користувача, а також можливості використання підпрограм в мові високого рівня Паскаль.
Висновок
Мова програмування високого рівня Паскаль володіє великими можливостями для вирішення досить широкого кола завдань.
Разом з тим, інтуїтивно зрозумілий синтаксис, чітка структуризація, доброзичливий інтерфейс середовища розробки робить його одним з найбільш популярних мов програмування.
У першому розділі курсової роботи нами була зроблена класифікація мов програмування, розглянуті сфери їх застосування, коротко викладені їх основні особливості, переваги і недоліки.
Одним з найважливіших факторів при виконанні поставленого завдання є вірний вибір мови програмування. Для реалізації поставленої задачі можна використовувати різні мови високого рівня, найбільш поширеними з яких є С ++ і Паскаль.
Мова Паскаль є статично типізований, компільовані, підтримує низкоуровневую роботу з пам'яттю. Саме тому його можна рекомендувати в якості мови програмування для вивчення роботи підпрограм, процедур і функцій. Простота реалізації графічного інтерф...
