Презентація на тему:
Підпрограми-функції (Turbo Pascal 7.0)

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

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

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

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

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

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

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

Рішення задачі 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. Підпрограма-функція Обчислення за допомогою функції Бройченко А.Г. 2006