1. Вывести первые n четных натуральных чисел

Вид материала

Документы

Содержание

2. Вывести все четные числа на промежутке от [a,b].
Домашнее задание

Подобный материал:

Циклы

1. Вывести первые n четных натуральных чисел.

1 способ

2 способ

Математическая модель:

Для n=5 [2 4 6 8 10]

Пусть в переменной i хранится номер шага (сколько раз проходим тело цикла)

На 1 шаге выводим 2, на 2 шаге 4, на 3 шаге 6 и т.д. Т.е. выводим число в два раза больше чем номер шага.

Для n=5 [ 2 4 6 8 10]

Пусть в переменной i хранится последнее четное число. Если начальное число 2, то каждый раз мы для перехода к следующему четному числу прибавляем 2 (i := i+2).

Максимальное число, которое нас интересует – это 2*n (если n = 5, то 2*5 = 10).

i := i + 1

i := i + 2

Var I, n : integer;

BEGIN Writeln (‘n’); Readln (n);

i:= 1;

While i <= n do

Begin Writeln( 2*i, ‘ ‘);

i:= i +1;

End;

END.

Var I, n : integer;

BEGIN Writeln (‘n’); Readln (n);

i:= 2;

While i <= 2*n do

Begin Writeln( i, ‘ ‘);

i:= i +2;

End;

END.

Трассировка программы (выполнение программы для конкретных значений)

Операция	i	n	Вывод на экран
Ввод данных		3
I:= 1	1
i <= n 1<=3 +
Вывод 2*i			2
i:= i +1 =1+1	2
i <= n 2<=3 +
Вывод 2*i			4
i:= i +1 =2+1	3
i <= n 3<=3 +
Вывод 2*i			6
i:= i +1 =3+1	4
i <= n 4<=3 -
Конец

Операция	i	n	Вывод на экран
Ввод данных		3
I:= 2	2
i <= 2*n 2<=6 +
Вывод i			2
i:= i +2 =2+2	4
i <= 2*n 4<=6 +
Вывод i			4
i := i +2 =4+2	6
i <= 2*n 6<=6 +
Вывод i			6
i:= i +2 =6+2	8
i <= n 8<=6 -
Конец

2. Вывести все четные числа на промежутке от [a,b].

Математическая модель:

Если [3, 8], то выводим 4 6 8Перебираем все числа от a до b (изменяя параметр цикла i) и проверяем на четность.

Если число четное, то выводим на экран.

i := i + 1

Var a, b, i : integer;

BEGIN

Writeln (‘a, b’);

Readln (a,b);

i:= a;

While i <= b do

Begin

If i mod 2=0 then Writeln ( i, ’ ‘);

i:= i +1;

End;

END.

Операция	a	b	i	Вывод на экран
Ввод данных	3	8
i := a = 3			3
i ≤ b 3 ≤ 8 +
3 mod 2 =0 –
i := i + 1=3+1			4
i ≤ b 4 ≤ 8 +
4 mod 2 =0 +
Вывод i				4
i := i + 1=3+1			5
i ≤ b 5 ≤ 8 +
5 mod 2 =0 –
i := i + 1=5+1			6
i ≤ b 6 ≤ 8 +
6 mod 2 =0 +
Вывод i				6
i := i + 1=6+1			7
i ≤ b 7 ≤ 8 +
7 mod 2 =0 –
i := i + 1=7+1			8
i ≤ b 8 ≤ 8 +
8 mod 2 =0 +
Вывод i				8
i := i + 1=8+1			9
i ≤ b 9 ≤ 8 –
Конец

3. Даны значения первого члена арифметической прогрессии A, разности арифметической прогрессии d и количество n. Вывести арифметическое выражение поиска суммы n членов прогрессии и найти значение этого выражения.

Математическая модель:

Если a1=3, d= 0.2, n= 4, то на экране вывести

S = 3 + 3.2 + 3.4 + 3.6 = 13.2

После ввода данных можно сразу первое значение присвоить сумме и вывести «S = 3»

Следующие значения выводить со знаком «+» в цикле.

После того как будут выведены все члены арифметической прогрессии в выражение выведем знак «=» и значение суммы.

-

+

S:= s + a

i := i + 1

a := a + d

Var a, d, n, i, s : real;

BEGIN

Writeln (‘a, b,n’);

Readln (a,b,n);

S := a;

i:= 1;

writeln(‘S=’,a);

While i < n do

Begin

a:= a + d;

Writeln( ’ + ‘, a);

S:= s + a;

i:= i +1;

End;

END.

Операция	a	d	n	S	i	Вывод на экран
Ввод данных	3	0.2	4
s := a				3
i:= 1					1
Вывод						S=3
i < n 1 < 4 +
a := a+d=3+0.2	3.2
Вывод ‘+’, a						+3.2
S:= s + a=3+3.2				6.2
i := i + 1= 1+1					2
i < n 2 < 4+
a := a+d=3.2+0.2	3.4
Вывод ‘+’, a						+3.4
S:= s + a=6.2+3.4				9.6
i := i + 1= 2+1					3
i < n 3 < 4+
a := a+d=3.4+0.2	3.6
Вывод ‘+’, a						+3.6
S:= s + a=9.6+3.6				13.2
i := i + 1= 3+1
i < n 4 < 4 –
Вывод						= 13,2
Конец

Домашнее задание:

1. Разобрать и переписать задачи в тетрадь решенные на уроке (Кто был на уроке переписать трассировку).

2. Выполнить 2 задачи своего варианта и оформить их в тетради как предыдущие задачи: условие, математическая модель, блок-схема, трассировка для значений указанных в условии (задачи решить, соблюдая принцип массовости, то есть значения границ, шаг - вводятся через отдельные переменные).

Табулирование функции

Вариант1