Урок з теми:"Вказівка повторення. Оператор циклу з параметром (FOR)."

Тема уроку.

Вказівка повторення. Оператор циклу з параметром ( FOR ).

1. Цикл “для”. Побудова таблиць.

Задача 1. Вивести на екран таблицю квадратів і кубів

чисел від 2 до 10.

2 4 8

3 9 27

4 16 64

………………

10 100 1000

10 then goto stop; writeln (i:6, i*i:7, i*i*i:8); i:=i+1; goto dali; stop: end. 2 4 8 3 9 27 4 16 64 ………………. 10 100 1000 " width="640"

за допомогою команд if і goto:

program Tabluca;

label dali, stop;

var i: integer;

begin

i:=2;

dali: if i10 then goto stop;

writeln (i:6, i*i:7, i*i*i:8);

i:=i+1;

goto dali;

stop: end.

2 4 8 3 9 27 4 16 64 ……………….

10 100 1000

за допомогою команди FOR:

program Tabluca;

var i: integer;

begin

for i: = 2 to 10 do

writeln (i:6, i*i:7, i*i*i:8);

end.

2 4 8 3 9 27 4 16 64 ……………….

10 100 1000

Цикл з параметром (загальний вигляд)

for : = a to b do

a, b – цілі числа або вирази;

і – параметр

може бути проста або складена

Команда виконується спочатку для значення і = а , потім для

і = а+1,… доки і ≤ b .

Задача 2.

Один долар коштує 2 5,05 грн. Вивести у вигляді таблиці вартість 1,2,…,10 доларів.

program Bank;

var d: integer; gr: real;

begin

writeln ( ‘ долари – гривні ’ ) ;

for d: = 1 to 10 do

begin

gr: = 25.05*d; writeln (d:4, gr:15:2);

end;

readln

end.

2. Обчислення елементів послідовності.

Задача 3. Нехай елементи числової послідовності описуються формулою a i = 3+cos ( 2 · i ) . Обчислити та вивести на екран номери і значення перших n=10 елементів.

program Elementu;

var i,n: integer; a: real;

begin

n:=10;

for i: = 1 to n do

begin

a: = 3+cos (2*i) ;

writeln (i:4, a:15:2);

end;

readln

end.

0 then writeln (i:4, a:15:2); end; readln end. " width="640"

3. Пошук потрібних елементів. (метод перегляду і аналізу всіх елементів)

Задача 4 . Нехай елементи числової послідовності описуються формулою a і = 2-2 cos (3 ·i ), і =1,2,…,12. Вивести на екран номери і значення лише додатних елементів.

program Dodatni е lementu;

var i,n: integer; a: real;

begin

n:=12;

for i: = 1 to n do

begin

a: = 2-2*cos (3*i);

if a 0 then writeln (i:4, a:15:2);

end;

readln

end.

Довідка 1. Якщо s - змінна типу char , то вивести на екран усі символи латинського алфавіту можна так:

for s:= ‘A’ to ‘Z’ do writeln (s) ;

Довідка 2 . Є ще одна форма написання команди циклу “для”, якщо крок зміни параметра циклу дорівнює -1:

for := downto do

Наприклад: Вивести на екран числа від 1 до 10 у зворотному порядку (10,9,8,…,1) можна так:

for і := 10 downto 1 do writeln (i:3);

Усні вправи

1. Визначте результати виконання таких команд:

• а:=5; for i:=1 to 2 do а:= a*i-2; а:= a+1;
• а:= 1; for i:=1 to 3 do begin а:= a+i; а:= a-1 end;
• а:= 0 for i:=1 to 4 do а:= a+i; а:= a+2;
• p:=1; for b:=8 downto 5 do p:=p+b; p:=p+1;
• s:=0; for n:=7 downto 4 do begin s:=s+n; s:=s+1 end;

Домашнє завдання: Вправа10. Серед перших 20 - ти елементів числової послідовності b i =3-3sini 2 виведіть на екран номери і значення лише від’ємних елементів, тут і=1,2,…,20.

Практична робота “Складання і реалізація циклічних програм”

Варіант-1

Варіант-2

Вправа 8

Виведіть на екран 15 перших елементів числової послідовності, починаючи з першого, загальний елемент якої має вигляд

a і = 4-2 sin ( 2i ) .

Вправа 9

Виведіть на екран у вигляді таблиці номери і значення перших 10-ти елементів числової послідовності, загальний елемент якої має вигляд

b і = 7 -2 sin (i 2 ).