Мысал: f=m!-k! мәнiн табу керек.
Program F1;
var f,m,k: integer;
function fact(n: integer): integer;
var p,i: integer;
begin
P:=1;
for i:=2 to n do
p:=p*i;
fact:=p
end;
begin
read(m,k);
f:=fact(m)-fact(k);
writeln(‘f=’,f)
end.
Бақылау сұрақтары.
Ішкі программа деген не?
Ішкі программаны процедура түрінде жазғандағы ерекшеліктерін көрсетіңіз.
Формальді параметрлер және іс жүзіндегі параметрлер айырмашылығы
Процедураны параметрсіз құруға бола ма?
Глобальдік жєне локальдық мәндер дегенді қалай түсiнесіз?
Тапсырмалар
Төмендегі мәліметтер бойынша берілген үшбұрыштың сүйір бұрышының мәнін анықтаңыз.
а) катеттерінің ұзындығы бойынша;
є) катеті мен гипотенузасының ұзындығы бойынша.
а жєне b сандары берілген. Анықтау керек:
u=min(a,b), v=min(ab, a+b), min(u+v2,3.14)
Процедураны қолданып квадрат теңдеуді шешіңіз:
Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.
Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.
Герон формуласы арқылы үшбұрыштың ауданын табуға процедура жазыңыз.
Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды функцияны қолдану арқылы шығарыңыз.
Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды және олардың реттік номерін табуды функцияны қолдану арқылы шығарыңыз.
Достарыңызбен бөлісу: |