Циклдік алгоритмдерді программалау. 9-сынып

X

Паскаль тілі

Алгоритм тілі

Блок - схема

FOR I:= A TO B DO

BEGIN

. . . . . . . . .

END;

цб

цикл денесі

цс

I=I бас, Ісоң, Іқад

Цикл денесі

Орындалу ережесі: Begin және End сөздерінің арасында жазылған

операторлар І: = А, І: =A+2, … , I=B үшін орындалады. Мұндағы І - цикл

параметрі, А – параметрдің бастапқы мәні, В – параметрдің соңғы мәні.

Мысалдар:

1. Алғашқы 5 натурал сандардың қосындысын табыңыз.

(“Әзірше” циклімен орындаңыз)

2. 1 – ден 10-ға дейінгі болған тақ сандардың

қосындысын табыңыз;

(“Дейін” циклімен орындаңыз)

3. Монитор экранына 10-нан 20-ға дейін болған

натурал сандар квадратын шығарыңыз;

(“Үшін” циклімен орындаңыз)

Тапсырмалар

Мысал1: Алғашқы 5 натурал сандардың қосындысын табыңыз.

Есепті шешу алгоритмі:

• Программа денесін айнымалыларды сипаттаудан бастаймыз.
• Натурал сандардың қосындысын табамыз.
• Нәтижені шығарамыз.

Айнымалылар:

Х – зерттелетін сан

S – нәтиже

Мысал 2: 1 – ден 10-ға дейінгі болған тақ сандардың қосындысын табыңыз;

Есепті шешу алгоритмі:

• Программа денесін айнымалыларды сипаттаудан бастаймыз.
• Натурал сандардың қосындысын табамыз.
• Нәтижені шығарамыз.

Айнымалылар:

І – зерттелетін сан

S – нәтиже

Мысал 3 : Монитор экранына 10-нан 20-ға дейін болған натурал сандар квадратын шығарыңыз;

Есепті шешу алгоритмі:

• Программа денесін айнымалыларды сипаттаудан бастаймыз.
• Натурал сандардың квадраттарын табамыз.
• Нәтижені шығарамыз.

Айнымалылар:

І – зерттелетін сан

S – нәтиже

Program esep1;

Uses crt;

Var x, S: integer;

Begin clrscr;

End.

1

0

x:=1; S:=0;

WHILE x

Begin

End;

15

10

6

3

1

S:=S+x;

x:=x+1;

4

5

6

3

2

Writeln(‘S=’,S);

15

Readln;

=10; 1 4 9 16 2 5 S:=S+i; i:=i+2; 11 9 7 3 5 2 5 Writeln(‘S=’,S); Readln;" width="640"

Program esep2;

Uses crt;

Var i, S: integer;

Begin clrscr;

End.

1

0

i:=1; S:=0;

REPEAT

UNTIL I=10;

1

4

9

16

2 5

S:=S+i;

i:=i+2;

11

9

7

3

5

2 5

Writeln(‘S=’,S);

Readln;

Program esep 3 ;

Uses crt;

Var i, S: integer;

Begin clrscr;

End.

20

16

18

1 5

19

17

11

1 0

14

13

12

For i:= 10 to 20 do

Begin

End;

S:=SQR(i);

400

361

324

289

256

225

169

121

1 00

144

196

Writeln(‘S=’,S);

Тапсырма 1.

10 – нан 20-ға дейінгі сандардың көбейтіндісін тап.

Тапсырма 2.

0 – ден 40-қа дейінгі болған жұп сандардың көбейтіндісін тап.

Тапсырма 3.

Монитор экранына 1-ден 100-ге дейінгі сандардың квадраттарының қосындысын табыңыз

Тапсырма 4.

1 – нан 15-ке дейінгі сандардың көбейтіндісін тап.

Тапсырма 5.

1 – ден 15-ке дейінгі болған тақ сандардың көбейтіндісін тап.

Тапсырма 2.

0 – ден 40-қа дейінгі болған жұп сандардың көбейтіндісін тап.

Тапсырма 3.

Монитор экранына 1-ден 100-ге дейінгі сандардың квадраттарының қосындысын табыңыз

Үйге тапсырма

Сандар қосындысын есептеу:

бағдарлама 3 циклмен орындалу қажет.

X

Ойлау қабілетінің

шыңына жету үшін

беріле еңбек ету

керек

X

Пайдаланылған әдебиеттер

1. Информатика , 9 - сынып : Оқулық . Н.Ермеков,В. Криворучко,

В.Кафтункина . - Алматы : “ Жазушы ", 200 2 . – 51-62 бет .

2. “Паскаль” тілінде программалау негіздері.

(А.Б.Дәулетқұлов, С.С.Алғазы).

3. Интернет сайт : www.KM.ru

4. Марченко А.И., Марченко Л.А.

Программирование в среде Turbo Pascal.

6. Есептеуіш техника және информатика. О.Камардинов

7. Информатиканы оқыту әдістемесі. К.З.Халықова