Цель урока: изучить построение таблицы значений функции и выделение цифр из числа.
Пример 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 = 3x2 + 5x – 8 на интервале [-3, 3], значения аргумента выводятся с шагом h = 0,5.
Дополнительное задание
Дано натуральное число n. Напишите программу которая выведет на экран цифры числа кратные пяти или сообщение “В числе таких цифр нет”.
Домашнее задание
§ 19.4-19.5 учебного пособия, ответить на вопросы
Форма отправки решений
Форма видна только зарегистрированным пользователям.