Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1

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

бет	62/210
Дата	06.01.2022
өлшемі	4,42 Mb.
	#16437
түрі	Оқулық

1 ... 58 59 60 61 62 63 64 65 ... 210

Байланысты:
boribaev-algoritmdeu

5.5 Шарты алдын ала берілген цикл операторы Итерациялық түрдегі цикл операторлары
WHILE <
TRUE)
BEGIN – END
WHILE

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

Параметрлі цикл операторы неше рет орындалады?

Параметрлі цикл операторының неше нұсқасын білесіз?

Цикл параметрі дегеніміз не? Цикл параметірінің бтастапқы жəне соңғы мəні дегеніміз не?
Параметрлі цикл денесі дегеніміз не?

Параметрлі циклдың орындалу ретін түсіндіріңіз.

Параметрлі цикл блок-схемасының жұмысын түсіндіріңіз.

Break жəне Continue процедураларының қызметін түсіндіріңіз.

Параметрлі циклды қолдануға мысал келтіріңіз.

Тапсырмалар		1		1		1			1
1. Пернетақтадан енгізілген n үшін	s = 1 +	1	+	1	+	1	+	+	1
қатарының қосындысын есептеңіз.		x		2 x		3 x			nx

^y ⁼ ^0.4^x² ⁻ ¹_x функциясының x [2;10] аралығында 0,5 қадаммен өзгергендегі мəнін есептеңіз.
Пернетақтадан енгізілген n үшін n! мəнін есептеңіз.

4. Пернетақтадан енгізілген n үшін y  1!2!3! n! функция-сының мəнін есептеңіз.

110

Пернетақтадан енгізілген n үшін



қатарының

алғашқы n мүшесінің қосындысын.

Пернетақтадан

енгізілген

жəне

үшін

a ⋅ (a  1) ⋅ (a  2) ⋅

⋅ (a  n) -ді есептеңіз.

Əр түсті жəне əр түрлі өрнектермен өрнектелген, көлемдері бірдей параллепипедтерден құрастырылған, көлемі 10x10 көлбеу тор салыңыз.
Əр түсті жəне əр түрлі өрнектермен өрнектелген, көлемдері бірдей дөңгелектерден құрастырылған, көлемі 10x10 тор салыңыз.

Əр түсті жəне əр түрлі өрнектермен өрнектелген, көлемдері бірдей тікбұрыштардан құрастырылған, көлемі 10x10 пирами-да салыңыз. Пирамиданың ең төменгі қатары 20 тікбұрыштан тұрады.

Əр түсті жəне əр түрлі өрнектермен өрнектелген, көлемдері бірдей ромбтердан құрастырылған, көлемі 15x15 тор салыңыз.

5.5 Шарты алдын ала берілген цикл операторы
Итерациялық түрдегі цикл операторлары циклдің қай-талану саны алын ала белгісіз болғанда немесе цикл параметрі-нің өзгеру қадамы +1 немесе –1-ден өзгеше болған жағдайда қолданылады.
Шарты алдын ала берілген цикл операторының жазылуы:
WHILE <логикалық өрнек> DO <оператор>;
Логикалық өрнек, яғни шарт цикл тұлғасының əр орындалу

5.12-сурет. Шарты алдын ала тексерілетін цикл алгоритмінің орындалу схемасы

111

алдында есептелді. Егер логикалық өрнек АҚИҚАТ (TRUE) мəнін қабылдаса, онда цикл тұлғасы орындалады, егер мəн ЖАЛҒАН (FALSE) болса циклден шығу жүзеге асырылады. Логикалық өрнек бірден жалған болған жағдайда цикл тұлғасы бір де бір рет орындалмайды. Цикл тұлғасы жəй немесе құрама оператор болуы мүмкін. Циклдің орындалу схемасы 5.12-суретте көрсетілген. Мұнда цикл операторлары (тұлғасы) ішінде шартқа кіретін айнымалыларды өзгертетін өрнектер міндетті түрде бо-луы тиіс, əйтпесе цикл шексіз болып кетуі мүмкін.
FOR операторы көмегімен жазылған кез келген алгоритмді WHILE операторы көмегімен жазуға болады. Мысалы, F=N! факториалының мəнін есептеу программасы:

F:=1;

I:=1;
WHILE I<=N DO BEGIN

F:=F*I;
I:=I+1; END; …
Келесі мысалда Sin(x) мəнін функцияны қатарға жіктеу арқылы есептеу керек:

	_x3		_x5		_x7	∞
Y = x −		+		−		+ ... = ∑ U_i
			5!
3!				7!		i =1

Қосындыға тек төмендегі шартты қанағаттандыратын қатар мүшелерін ғана қосу керек:

U _i  ε

демек, қатардың əрбір мүшесі берілген дəлдіктен үлкен болуы тиіс.

PROGRAM SINX;
VAR X,Y,E,U,Z : REAL;
K: INTEGER;
BEGIN
READLN(X,E);

112

K:=0;
Y:=0;
U:=X;
Z:=SQR(X);
WHILE ABS(U)>E DO
BEGIN
Y:=Y+U;
K:=K+2;
U:= -U* Z/(K*(K+1));
END;
WRITELN(‘SIN(X)=’,SIN(X), ‘Y=’,Y); END.
Программаның дұрыстығын тексеру үшін шығару опера-торына синусты стандартты функция көмегімен есептегенде алынған нəтижені қатар көрсету қарастырылған. Егер есептеу нəтижесінің стандартты функция көмегімен есептеу арқылы алынған нəтижеден айырмашылығы берілген дəлдіктен артық болмаса, программа дұрыс жұмыс жасайды деп есептеуге болады.
Итерациялық формула бойынша Х санынан түбір алу мыса-лын қарастырайық.
Y_i+1 =(Y_i + X/ Y _i ) /2, Y_i+1 – Y_i <=ε дəлдікпен
Y₀=A алғашқы жуықтама параметр болып саналады.

PROGRAM SQRTX;		}
VAR X:REAL;	{аргумент
EPS:REAL;	{есептеу дəлдігі }
Y0:REAL;	{алғашқы жуықтау }
Y1:REAL;	{келесі жуықтау	}
A:REAL;	{бастапқы жуықтау}
BEGIN

READLN( A,EPS,X);
IF X>0 THEN
BEGIN

8–1618 ₁₁₃

Y0:=A;
Y1:=(Y0+X/Y0)/2;
WHILE ABS(Y1-Y0)>EPS DO BEGIN
Y0:=Y1;
Y1:=(Y0+X/Y0)/2
END;
WRITELN(‘Y1=’,Y1,’ X=’,X)
END
ELSE
WRITELN(, X, ‘саны нөлден кіші’);
END.

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

Қандай есептеулерді цикл деп атайды?
Шарты алдын ала берілген цикл операторы неше рет орын-далады?
Шарты алдын ала берілген циклдан шығу қалай іске асырылады?
Шарты алдын ала берілген цикл операторының құрылымын тү-сіндіріңіз.
Шарты алдын ала берілген цикл операторының орындалу ретін түсіндіріңіз.
Шарты алдын ала берілген цикл операторының блок-схемасын түсіндіріңіз.
Шарты алдын ала берілген цикл операторына мысал келтіріңіз.

Тапсырмалар

15 əр түсті қилысқан дөңгелектерден тұратын көлденең сызық сызыңыз.
15 əр түсті қилысқан эллипстерден тұратын экран «диагоналін» сызыңыз.
Радиустары бірдей секторлардың тігінен орналасқан тізбегін салыңыз. Соңғы сектор – дөңгелек.
40 əр түсті сызықтан тұратын араның суретін салыңыз.
50 əр түсті сызықтан тұратын «веер» суретін салыңыз.
36 əр түсті квадраттардан тұратын дөңделек суретін салыңыз.
20 əр түсті дөңгелектерден тұратын квадрат суретін салыңыз.
100 əр түсті шеңберден тұратын синусоида фрагментін салыңыз.

Пернетақтадан енгізілген n үшін n! мəнін есептеңіз.
N натурал саны берілген. Осы санның цифрларының қосындысын есептеңіз.

114

5.6 Шарты соңынан тексерілетін цикл операторы
REPEAT

1 оператор > [;

2 оператор >] [;

…

n оператор >]

UNTIL <логикалық өрнек>;
Бұл цикл қайталану саны белгісіз, бірақ циклден шығу шар-ты белгілі болған жағдайда қолданылады. Циклді басқаратын ло-гикалық өрнек циклден шығу шарты болып саналады. Егер шарт АҚИҚАТ (TRUE) мəнін қабылдаса, онда цикл тоқтатылады. REPEAT операторын қолданғанда, цикл тұлғасы кем дегенде бір рет орындалады. Цикл операторларының басқа түріне қарағанда, бұл оператор BEGIN – END операторлық жақшасын керек етпейді, себебі операторлық жақша қызметін REPEAT – UNTIL түйінді сөздері атқарады.
Бұл оператордың орындалу схемасы 5.13-суретте көрсетілген. F=N! факториалын есептеу REPEAT – UNTIL операторла-
рының көмегімен төмендегідей түрде жазылады:
. . .
F:=1;
I:=1;

5.13-сурет. Шарты соңынан тексерілетін цикл алгоритмінің
орындалу схемасы

115

REPEAT
F:=F*I;
I:=I+1;
UNTIL I>N;
. . .
Осы оператордың көмегімен жазылған басқа мысалды қа-растырайық. Берілген сандар тізбегінің ішінен 7-ге бөлінетіндер санын анықтау.
PROGRAM REP;
VAR A,K: INTEGER;
C: CHAR;
BEGIN
K:=0;
REPEAT
WRITELN(‘ Келесі санды енгізіңіз ‘); READLN( A);
IF A MOD 7=0 THEN K:=K+1; WRITELN(‘Циклден шыққыңыз келе ме? Д/Y’);
READLN( C ) ;
UNTIL ( C=’Д‘ ) OR ( C=’Y’) ; WRITELN(‘KOL=’,K);

END.

Бұл мысалда циклден шығу шарты – қойылған сауалға жауап бергенде енгізілген Д немесе Y символы болып саналады. Егер осы айтылған символдың бірі енгізілсе, UNTIL сөзінен кейін жазылған логикалық өрнек АҚИҚАТ (TRUE) мəнін қабылдайды да, циклден шығу орындалады.

Келесі мысалда А(M,N) матрицасының жұп жолдарының ең үлкен жəне ең кіші элементтерін тауып, солардың орнын ауыстыру керек.

PROGRAM OBMEN;
VAR A: ARRAY[1..30,1..30] OF INTEGER;
I,J : INTEGER;
K1,L1,K2,L2 : INTEGER;
T,M,N: INTEGER;
BEGIN

116

READLN(M,N);
For I:=1 to M do
FOR J:=1 TO N DO
READLN( A[I,J]);
K1:=1;L1:=1;{ең үлкен элемент координатасы}
K2:=1;L2:=1;{ең кіші элемент координатасы}
I:=2;
WHILE I<=M DO
BEGIN
FOR J:=1 TO N DO
IF A[K1, L1]< A[I,J] THEN BEGIN
K1:=I;L1:=J;
END
ЕLSE
IF A[K2, L2]> A[I,J] THEN BEGIN
K2:=I;L2:=J;
END;
I:=I+2;
END;
T:= A[K1, L1];
A[K1, L1]:= A[K2, L2];
A[K2, L2]:=T;
FOR I:=1 TO M DO
BEGIN
FOR J:=1 TO N DO
WRITE ( A[I,J] :6);
WRITELN ;
END;
END.

Бізге тек жұп жолдар керек болғандықтан, жол индекстерін өзгерту үшін WHILE циклы қолданылады. Мұны FOR циклының көмегімен орындай алмаймыз.

Турбо Паскаль тілінде BREAK немесе CONTINUE про-цедураларын FOR, WHILE жəне REPEAT циклдерының ішін-де қолдануға болады. BREAK процедурасы циклді тоқтатып,

117

басқаруды циклден кейін орналасқан операторға береді. CON-TINUE процедурасы өзінен кейін орналасқан операторларды орындамай, циклдің келесі қадамына көшеді.
Мысалы, бірөлшемді массивтің 3-ке аяқталатын бірінші элементін анықтау керек.
PROGRAM KON;
VAR A:ARRAY [1.. 30] OF INTEGER;
FL: BOOLEAN;
I,N: INTEGER;

Begin
READLN(N);

FOR I:=1 TO N DO
READLN( A[I] );
FL:=FALSE;
FOR I:=1 TO N DO
BEGIN
IF A[I] MOD 10 <> 3 THEN CONTINUE; WRITELN(‘3-ке аяқталатын бірінші сан
нөмірі ’,I);
FL:=TRUE;
BREAK;
END;
IF NOT FL THEN WRITELN(‘3-ке аяқталатын сан жоқ‘);

END.

Егер 3-ке аяқталатын сан табылса, экранға мəлімет шығады. Жалауша – FL айнымалысы АҚИҚАТ (TRUE) мəнін қабылдап, программа өз жұмысын тоқтатады. Сан табылмаған жағдайда программа соңына дейін орындалады. FL айнымалысының мəні ЖАЛҒАН(FALSE) болып қалады. Экранға сан табылмағаны жайлы мəлімет шығады.
5.9-мысал. Алғашқы n натурал сандардың қосындысын есептейтін программа құру керек.
Қосынды жинақтау тəсілімен анықталады. Қосылатын сандар саны белгілі болғандықтан, қайталану саны белгілі цикл опера-торын қолданамыз. Əр сан қосылған сайын цикл параметрі 1-ге өсіп отырады. Циклға кірер алдында қосындыға нөлді меншіктеу

118

керек. 5.14-суретте программа алгоритмінің схемасы келтірілген.
Төменде программа мəтіні берілген.

Program ex;

Var
i,n,S:integer; Begin
WriteLn(‘ n-ді енгізіңіз’);
ReadLn(n);
S:=0;

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

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

1 ... 58 59 60 61 62 63 64 65 ... 210