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

жүктеу/скачать 4 Mb.

бет	10/10
Дата	19.05.2022
өлшемі	4 Mb.
	#457309
түрі	Программа

1 2 3 4 5 6 7 8 9 10

0010fe44-d35973f3

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 радиан түрінде!

Фильмнің соңы

жүктеу/скачать 4 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 10

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

Басты бет