Цель урока: изучить использование числовых последовательностей, нахождение суммы элементов числовой последовательности и возведение числа в степень при решении практических задач.
Пример 1. Вывести на экран первые k четных чисел.
var
k, n,a: integer;
// k - столько чисел нужно вывести на экран
// a - с помощью этой переменной считаем, сколько чисел уже выведено
// n - эта переменная проверяет каждое число: четное оно или нечетное
begin
write('Количество k = ');
read(k);
while a < k do
begin
if n mod 2 = 0 then
begin
write(n, ' ');
a := a + 1;
end;
n := n + 1;
end;
end.Пример 2. Возведите вещественное число a в целую степень n.
var n, m: integer;
a, S: real;
begin
write('Введите основание a = ');
read(a);
write('Введите показатель n = ');
read(n);
S := 1;
m := abs(n);
{ в цикле подсчитываем ответ, последовательно умножая число a на себя m раз (где число m - модуль степени n) Накапливаем произведение в переменной S, которая и будет ответом, если степень n положительная }
for var i:= 1 to m do
S:= S*a;
{ Если степень n - отрицательное число, то ответом будет обратная дробь. Примечание! Если степень n - положительная, то оператор ветвления ниже не выполнится вообще }
if n<0 then
S:= 1/S;
writeln('Ответ = ',S);
end.
Задания по теме урока
Задание 1. Составьте программу. Дано натуральное число N. Выведите на экран все числа кратные 5, но меньше числа N.
Задание 2. Напишите программу, которая выводит первые K чисел кратных M. Значение переменных K и M введите с клавиатуры.
Задание 3. Напишите программу, которая находит сумму первых N элементов последовательности. Число N вводится с клавиатуры. Элементы последовательности задаются формулой 
Дополнительное задание
Составьте программу. Вывести на экран все элементы последовательности Фибоначчи меньше х (х вводится).
Домашнее задание
§ 19.1-19.3 учебного пособия, ответить на вопросы
Форма отправки решений
Форма видна только зарегистрированным пользователям.