Гресько Л.І. Підпрограми-функції ( опис та виклик )

Гресько Л.І. Опис функції Function Proba (список форм. параметрів) : тип результату ; Var локальні змінні ; Текст функції … Proba : = результат ; End ; виклик функції Головна програма Var глобальні змінні ; або x:= Proba(…); Begin writeln (x) ; Текст програми... Writeln( Proba(список фактичних параметрів)) ; Еnd.

Гресько Л.І. Приклад Знайти середні арифметичні значення двох пар чисел a, b та c, d.

Гресько Л.І. Function Proba (x, y : real) real) : real real ; Proba : = ( x+y) / 2; End ; Головна програма Var Var a,b,c,d a,b,c,d : real real ; Begin Readln(a,b,c,d) ; Writeln( Writeln( Proba(a, b), Proba(c, d)) d)) ; Еnd. Виклик функції

Гресько Л.І. Інший варіант програми

Гресько Л.І. Опис функції Function Proba (x, y : real) : real ; Proba : = ( x+y) / 2 ; End ; Головна програма Var a a a a, b, c, d, x, y : real; Begin Readln(a,b,c,d) ; X:= Proba(a, b); Y:= Proba(c, d) ; Writeln ( X:8:2,Y:8:2) end. Виклик функції початок