Алгоритмы с
ветвлениями. Часть 5
Контроль знаний
Пример. Проверить является ли введенное число трехзначным, и вывести четные цифры числа.
Этапы выполнения задания.
I.Определение исходных данных: переменная а (трехзначное число).
II. Определение результатов: переменные a1, a2, a3, в том случае если они четные или сообщение, что четных цифр нет.
III. Алгоритм решения
задачи.
1. Ввод исходных данных
2. Проверка является ли число трехзначным. Трехзначное число больше 99 и меньше 1000.
3 Если число трехзначное, то выделяем цифры числа и проверяем каждую из них на четность.
а) Для выделения первой цифры (переменная a1) трехзначного числа необходимо найти целую часть от деления числа на 100.
б) Для выделения второй цифры (переменная a2) трехзначного числа необходимо найти остаток от деления числа на 100 и от него найти целую часть при делении на 10.
в) Для определения последней цифры (переменная a3) трехзначного числа необходимо найти остаток от деления числа на 10.
г) Для проверки цифры на четность нужно проверить, равен ли нулю остаток от деления цифры на 2.
4. Вывод результата.
IV. Описание
переменных:
Все переменные, определенные для решения задачи, имеют тип
integer.
V. Программа:
Var
a,a1,a2,a3: integer;
Begin
Write(‘введите
значение
a=’);
Readln(a);
If
(a>99) and (a<1000)
then
Begin
a1:=a div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if
a1 mod 2=0
then
Writeln(‘цифра
’,a1,’ четная’);
if
a2 mod 2=0
then
Writeln(‘цифра
’,a2,’ четная’);
if
a3 mod 2=0
then
Writeln(‘цифра
’,a3, ‘ четная’);
If
(a1 mod 2=1) and (a2 mod 2=1) and (a3 mod 2=1)
then
Writeln(‘в
числе нет четных цифр’);
End
Else
Writeln(‘число
не является трехзначным’);
End.
Можешь
загрузить!
Пример
VI. Тестирование
программы:
1. Проверьте работу программы для следующих значений
Ввод
a |
Вывод |
246 |
цифра
2
четная
цифра
4
четная
цифра
6
четная |
103 |
цифра
0
четная |
537 |
в числе нет
четных цифр |
25 |
число не
является трехзначным |
2. Поэкспериментируйте с программой вводя различные значения.
3.
Заполните таблицу
|
a |
Вывод |
1 |
468 |
|
2 |
476 |
|
3 |
233 |
|
4 |
441 |
|
5 |
119 |
|
6 |
1111 |
|
4. Какие случаи расположения цифр в трехзначном числе не были
рассмотрены? Предложите свои тесты на эти случаи.
5. Как по-другому можно вычислить значение второй цифры трехзначного
числа?
6. Можно ли проверку цифр в числе записать следующим образом:
if a1 mod 2=0 then
Writeln(‘цифра ’,a1,’ четная’)
else
if a2 mod 2=0 then
Writeln(‘цифра ’,a2,’ четная’)
else
if a3 mod 2=0 then
Writeln(‘цифра ’,a3, ‘ четная’)
else
Writeln(‘в числе нет четных цифр’);
Аргументируйте свой ответ.
Проверка знаний
Самостоятельная работа
1. Дано натуральное число. Проверить, является ли число
двузначным, и равна ли первая цифра числа второй.
2. Дано натуральное число. Проверить, является ли оно четырехзначным
палиндромом (т. е. равна ли первая цифра четвертой, а вторая третьей).
3. Дано натуральное число. Проверить, является ли число шестизначным и
выполняется ли следующее условие: сумма первой и четвертой цифр равна
сумме второй и пятой и равна сумме третьей и шестой.