Бройченко А.Г Підпрограми-функції (Turbo Pascal 7.0) Підпрограми-функції (Turbo Pascal 7.0) Інформатика-11 Тема-5

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

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

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

Бройченко А.Г Підпрограма-функція Підпрограма-функція Існують багато функцій, які вбудовані у мову Паскаль. Наприклад sin(x), сos(x), abs(x), sqrt(x) та інші. Та бувають випадки, коли при розрахунках потрібно багато разів розраховувати вираз для якого готової функції Паскаля немає. Наприклад: Тут було б добре порахувати відношення синуса до косинуса окремо, та такої готової функції немає. Створимо її самі!

Бройченко А.Г Підпрограма-функція Підпрограма-функція Загальний вигляд описання підпрограми-функції: Function імя (формальні величини):тип результату; Var описання локальних змінних; Begin Команди функції (виконувана частина); імя : = змінна-результат обчислень; End; Обовязкова команда перед кінцем функції

Бройченко А.Г Задача Задача Знайти значення виразу. Величини а та b вводить людина.

Бройченко А.Г Рішення задачі Рішення задачі Program FFF; Var a,b,y:real; Function SB(s,n:real):real; Var s,n,z:real; Begin z:=sin(s)/cos(n); SB:=z; End; Begin Readln(a,b); y:=SB(a,b)/sqr(SB(a,b))-sqrt(SB(a,b))+(sqr(SB(a,b))*SB(a,b)); Writeln(y:3:2); Readkey; End. Підпрограма-функція Обчислення за допомогою функції