End; Функцияның жазылу пішімі:
Function <аты> (формальды параметрлер тізімі):<нәтиже типі>; Const ….; Type …..; Var …..; Begin <опреаторлар>; End; Функцияның операторлар бөлімінде ең аз дегенде функция атына мән меншіктейтін бір оператор болуы тиіс. Негізгі программадағы функцияны шақыру нүктесіне оның ең соңғы меншіктелген мәні беріледі.
Мысал: Кез келген екі санның үлкенін анықтайтын, maxi функциясын пайдаланып, берілген төрт санның үлкенін анықтайтын программа құру қажет.
Program maxmax; Var A,b,c,d,e,f, m1,m2,m3 : real; Function maxi(a,b:real):real;{функцияны сипаттау} {функция денесі} Begin{функцияның басы} If a>b then maxi:=a else maxi:=b;{екі санның үлкенін анықтау} End;{функция соңы} BEGIN{программа басы} Write(‘4 сан енгізіңдер:’); Readln(c,d,e,f); m1:=maxi(c,d);{функцияны шақыру} m2:=maxi(e,f);{функцияны шақыру} m3:=maxi(m1,m2);{функцияны шақыру} writeln(‘максималды сан=’, m3:5:3); end.{программа соңы} Осы мысалды процедураны пайдаланып, шығарып көрелік.
Program maxmax; Var z,a,b,c,d,e,f, m1,m2,m3 : real; Procedure maxi(a,b:real; var z:real);{процедураны сипаттау} {процедура денесі} Begin{процедура басы} If a>b then z:=a else z:=b;{екі санның үлкенін анықтау} End;{процедура соңы} BEGIN{программа басы} Write(‘4 сан енгізіңдер:’);
