Урок 15. Использование основных алгоритмических конструкций для решения практических задач

Цель урока: изучить использование  числовых последовательностей, нахождение суммы элементов числовой последовательности и возведение числа в степень при решении практических задач.

---

Пример 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 учебного пособия, ответить на вопросы

---

Форма отправки решений

Форма видна только зарегистрированным пользователям.