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

Цель урока: изучить построение таблицы значений функции и выделение цифр из числа. 

---

Пример 1. Дано натуральное число n. Выведите цифры числа по одной в строке. Определить, сколько цифр в числе.

var
  k, n, z: integer;
begin
  write('Введите n = ');
  read(n);
  k := 0;
  while n > 0 do
  begin
    z := n mod 10; //Текущая цифра
    writeln(z);
    n := n div 10; //Уменьшение числа в 10 раз
    k := k + 1; //Подсчет кол-ва цифр
  end;
  writeln('в числе ', k, ' цифр (-а/-ы)) ');
end.

Пример 2. Вывести на экран таблицу значений функции

Количество значений вводится. Начальное значение x = –3, значения аргумента выводятся с шагом h = 0,5.

var k:integer;
    x,y,h:real;
begin
  writeln('количество значений');
  readln(k);
  x:=-3; h:=0.5;  
  for var n:=1 to k do
  begin
    y:= (x+2)/(x*x+3);
    writeln(x:7:2,y:10:3);
    x:=x+h;
  end;
end.

---

Задания по теме урока

Задание 1. Факториалом числа n называют произведение всех натуральных чисел, не превосходящих n.  Обозначают факториал так: n!  По определению факториал числа 0 равен 1. Напишите программу, которая вычислит значение факториала целого неотрицательного числа n. Для проверки можно использовать следующее: 0! = 1; 2! = 2; 5! = 120, 10! = 3 628 800.

Задание 2. Дано натуральное число N. Определите, каких цифр в числе больше – четных или нечетных.

Задание 3. Вывести на экран таблицу значений функции y = 3x² + 5x – 8 на интервале [-3, 3], значения аргумента выводятся с шагом h = 0,5.

Дополнительное задание

Дано натуральное число n. Напишите программу которая выведет на экран цифры числа кратные пяти или сообщение “В числе таких цифр нет”.

---

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

§ 19.4-19.5 учебного пособия, ответить на вопросы

---

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

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