Практикалық жұмыс №1 Тақырыбы: ет кабинетіндегі техника қауіпсіздігі Теорияға шолу Техника қауіпсіздігі және есептеуіш техника кабинетіндегі тәртіп сақтау ережелері


End; Функцияның жазылу пішімі: Function (формальды параметрлер тізімі)



бет36/43
Дата16.01.2024
өлшемі4.98 Mb.
#489189
түріПрограмма
1   ...   32   33   34   35   36   37   38   39   ...   43
Информатикадан практикалық сабақтар және есептер жинағы

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 сан енгізіңдер:’);


Достарыңызбен бөлісу:
1   ...   32   33   34   35   36   37   38   39   ...   43




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет