МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах
РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ" ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах Гендерна антидискримінаційна експертиза може зробити нас моральними рабами ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів Контакти
Тлумачний словник |
|
|||||||
Параметри процедури. Процедури без параметрів. Виклик процедур.
Змінні, описані в розділі описів процедури, називаються локальними.Вони діють лише в межах даної процедури. Змінні, описані в основній програмі називаються глобальними.Вони діють в усіх процедурах, з яких складається програма. Процедури отримують чи повертають дані не лише через результати, але й через глобальні змінні. Тому у процедурах і операторах виклику списку параметрів може і не бути. У цьому випадку обмін даними між процедурою та основною програмою відбувається через глобальні змінні.
Приклад. Обчислити суму секунд, які відповідають заданій кількості годин, хвилин і секунд. Program time; Uses crt; Var Ch:integer; Procedure menu; begin Writeln(‘1.Перетворити год, хв і сек в секунди’); Writeln(‘2.Перетворити секунди в год, хв і сек ’); Writeln(‘3.Завершити роботу’); Writeln; Writeln(‘Введіть номер 1-3’); End; Procedure time_to_sec; Var T_sec:longint; God,min,sec:longint; Begin Clrscr; Writeln(‘введіть години’); Readln(god); Writeln; Writeln(‘введіть хвилини’); Readln(min); Writeln; Writeln(‘введіть секунди’); Readln(sec); Writeln; T_sec:=god*3600+min*60+sec; Writeln; Writeln(god,‘год.’,min,’хв.’,sec,’сек. це’,t_sec,’сек.’); Writeln; Writeln(‘для продовження роботи нажміть <Enter>’); Readln; End; Procedure sec_to_time; Var T_sec:longint; God,min,sec:longint; T:longint; Begin Clrscr; Writeln(‘введіть сумарну кількість секунд’); Readln(t_sec); Writeln; T:=t_sec div 60; Sec:=t_sec mod 60; God:=t div 60; Min:=t mod 60; Writeln; Writeln(t_sec,’секунд- це’); Writeln; Writeln(god,‘год.’,min,’хв.’,sec,’сек.’); Writeln; Writeln(‘для продовження роботи нажміть <Enter>’); Readln; End; Begin Ch:=0; While ch<>3 do Begin Clrscr; Menu; Readln(ch); Case ch of 1:time_to_sec; 2:sec_to_time; end; end; end. В програмі використовується текстове меню з можливістю вибору трьох варіантів роботи. Варіант задається користувачем шляхом вводу з клавіатури відповідного цілого значення.
Тема. Процедури з параметрами. Формальні та фактичні параметри. Параметри - значення і параметри – змінні. Принцип локалізації. Глобальні і локальні параметри. Тип. Лекція 11. ПЛАН. Процедури з параметрами. Формальні та фактичні параметри. Параметри - значення . Параметри – змінні. Принцип локалізації. Глобальні і локальні параметри. ЛІТЕРАТУРА С.А.Немнюгин.Turbo Pascal.-СПб:Издательство”Питер”,2000.-496с Семотюк В.Програмування в середовищі Турбо Паскаль.Львів: БаК,2000.-248с. Зуев Е.А. Система программирования Турбо Паскаль.М.,1992.
Читайте також:
|
||||||||
|