1 Підпрограми- процедури (Turbo Pascal 7.0) Підпрограми- процедури (Turbo Pascal 7.0)

2 Підпрограми Підпрограми При розробці програм іноді зявляються повторювані групи дій або виникає необхідність поділити програму на окремі модулі. Для цього існують підпрограми. Підпрограма – це іменована, логічно закінчена група операторів, яку можна викликати для виконання будь- яку кількість разів із різних місць програми. Підпрограми мають структуру, аналогічну до структури головної програми на Паскалі. Кожна підпрограма – це міні-програма в програмі. В ній діють всі закони, що притаманні будь-якій програмі.

3 Види підпрограм Види підпрограм У Паскалі розрізняють два види підпрограм: функції та процедури. Процедура – це підпрограма призначена для виконання певних дій. Результатом її є виконаний набір команд. При використанні підпрограм змінні бувають: локальні – описані в підпрограмах, глобальні – описані в основній програмі.

4 Місце описання підпрограм Місце описання підпрограм Всі підпрограми-процедури описуються перед командами основної програми. Заголовок основної програми Описання підпрограми Тіло основної програми

5 Підпрограма-процедура Підпрограма-процедура Існують багато ситуацій, коли необхідно одні й ті ж дії виконувати в програмі не один раз. Але не підряд! Задача: Розрахувати кінетичну енергію тіла. При кожному введенні чи виведені даних програвати звуковий фрагмент. Для створення звуку в Паскалі існує оператор Sound(частота) та оператор NoSound. Також знадобиться оператор паузи Delay(час в мілісекундах). Наприклад такий набір команд: Sound(200); Delay(50); Sound(400); Delay(50); NoSound; пропищить звук із двох фрагментів 200 Гц і 400 Гц.

6 Імя буде потрібне для виклику процедури у програмі! Підпрограма-процедура Підпрограма-процедура Загальний вигляд описання підпрограми-процедури: Procedure імя (формальні величини); Var описання локальних змінних; Begin Команди процедури (виконувана частина); End; Формальних величин може і не бути, якщо процедура не отримує даних із головної програми для їх обробки.

7 Рішення задачі Рішення задачі Program Energy; Var m,v,e:real; Procedure Zvuk; Begin Sound(200); Delay(50); Sound(400); Delay(50); NoSound; End; Begin Zvuk; Readln(m); Zvuk; Readln(v); e:=m*v*v/2; Zvuk; Writeln(Енергія=,e:3:2); Readkey; End. Підпрограма-процедура Виклик процедури