Программа денесі(операторлар тізбегі)



бет136/163
Дата07.02.2022
өлшемі4,26 Mb.
#94523
түріПрограмма
1   ...   132   133   134   135   136   137   138   139   ...   163
Байланысты:
cda6b05d-8cb5-11e3-bf6e-f6d299da70eeУММ ПР1

Мысал: 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.


Бақылау сұрақтары.

  1. Ішкі программа деген не?

  2. Ішкі программаны процедура түрінде жазғандағы ерекшеліктерін көрсетіңіз.

  3. Формальді параметрлер және іс жүзіндегі параметрлер айырмашылығы

  4. Процедураны параметрсіз құруға бола ма?

  5. Глобальдік жєне локальдық мәндер дегенді қалай түсiнесіз?



Тапсырмалар

  1. Төмендегі мәліметтер бойынша берілген үшбұрыштың сүйір бұрышының мәнін анықтаңыз.

а) катеттерінің ұзындығы бойынша;
є) катеті мен гипотенузасының ұзындығы бойынша.



    1. а жєне b сандары берілген. Анықтау керек:

u=min(a,b), v=min(ab, a+b), min(u+v2,3.14)

      1. Процедураны қолданып квадрат теңдеуді шешіңіз:

  1. Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.

  2. Функция мәндерінің кестесін құрыңыз: , . У мәнін келесі функция арқылы есептеу керек, соған процедруа құрыңыз.

  3. Герон формуласы арқылы үшбұрыштың ауданын табуға процедура жазыңыз.

  4. Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды функцияны қолдану арқылы шығарыңыз.

  5. Екіөлшемді массив берілген. Массивтің ең кіші және ең үлкен элементтерін табуды және олардың реттік номерін табуды функцияны қолдану арқылы шығарыңыз.



Достарыңызбен бөлісу:
1   ...   132   133   134   135   136   137   138   139   ...   163




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

    Басты бет