Паскаль тілінде программалау



бет10/10
Дата11.10.2023
өлшемі3.59 Mb.
#480340
түріПрограмма
1   2   3   4   5   6   7   8   9   10
Паскаль тілі презентация

a, b: integer; x: real
  • function Max ( a, b: integer): integer;
  • var
  • Функциялар
  • function Max (a, b: integer): integer;
  • begin
  • ...
  • end;
  • Max := a;
  • function qq (a, b: integer): float;
  • begin
  • ...
  • end;
  • var x, y: float;
  • Delphi-де:
  • !
  • Result := a;
  • Программа
  • program qq;
  • var a, b, max: integer;
  • begin
  • writeln(‘Екі сан енгіз');
  • read(a, b);
  • max := Max ( a, b );
  • writeln(‘Санның үлкені ', max );
  • end.
  • function Max (a, b: integer): integer;
  • begin
  • ...
  • end;
  • c
  • c
  • c
  • Айнымалылардың, функциялардың және процедуралардың аттары бірдей болмауы керек!
  • !
  • функцияны шақыру
  • Логикалық функциялар
  • Есеп: енгізілген санның - жай сан екендігін анықтайтын функция құру.
  • Ерекшеліктері:
    • жауабы – логикалық мән (True немесе False)
    • функцияның нәтижесін if, while шарттарында логикалық шама ретінде қолдануға болады
    • Алгоритм: 2-ден N-1-ге дейінгі аралықтағы бөлгіштердің санын есептейміз, егер олардың саны нөлге тең болмаса енгізілген санның - құрама сан болғаны.
  • count := 0;
  • for i := 2 to N-1 do
  • if N mod i = 0 then
  • count := count + 1;
  • if count = 0 then
  • { N саны – жай сан }
  • else { N саны – құрама сан }
  • for i := 2 to N-1 do
  • if N mod i = 0 then
  • count := count + 1;
  • Қалай жақсартуға болады?
  • ?
  • Логикалық функциялар
  • program qq;
  • var N: integer;
  • begin
  • writeln(‘Бүтін сан енгіз');
  • read(N);
  • if Prime(N) then
  • writeln(N, ' – жай сан')
  • else writeln(N, ' – құрама сан');
  • end.
  • function Prime (N: integer): boolean;
  • var count, i: integer;
  • begin
  • i := 2; count := 0;
  • while i*i <= N do
  • if N mod i = 0 then count := count + 1;
  • i := i + 1;
  • end;
  • Prime := (count = 0);
  • end;
  • функцияны шақыру
  • шарт дегеніміз – логикалық мән
  • Тапсырмалар
  • "4": 1-ден N-ге дейінгі сандардың қосындысын анықтайтын функция құру және оны қолдануға мысал келтіру.
  • Мысал:
  • Сан енгіз:
  • 100
  • қосынды = 5050
  • "5": Шахматты ойлап шығарған адамның N-ші торға неше бидайдың қоюын сұрағанын анықтайтын функция құру. ( 1-шісіне – 1 дән, 2-шісіне – 2 дән, 3-шісіне – 4 бидай дәнін, …)
  • Мысал:
  • Тордың нөмірін енгіз:
  • 28
  • 28-шісі торда 134217728 бидай дәні.
  • Тапсырмалар (2-нұсқа)
  • "4": Екі натурал санның ең үлкен ортақ бөлгішін анықтайтын функция құру және оны қолдануға мысал келтіру.
  • Мысал:
  • Екі сан енгіз:
  • 14 21
  • ЕҮОБ(14,21)=7
  • "5": Синус функциясын қатардың қосындысы секілді есептейтін функция құру. (0.001 дәлдікпен)
  • Мысал:
  • Градус түріндегі бұрышты енгіз:
  • 45
  • sin(45) = 0.707
  • x радиан түрінде!
  • Фильмнің соңы


Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10




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

    Басты бет