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.
Бақылау сұрақтары. Ішкі программа деген не?
Ішкі программаны процедура түрінде жазғандағы ерекшеліктерін көрсетіңіз.
u=min(a,b), v=min(ab, a+b), min(u+v2,3.14)
Процедураны қолданып квадрат теңдеуді шешіңіз:
Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.
Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.
Герон формуласы арқылы үшбұрыштың ауданын табуға процедура жазыңыз.
Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды функцияны қолдану арқылы шығарыңыз.
Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды және олардың реттік номерін табуды функцияны қолдану арқылы шығарыңыз.
