Программирование на языке Паскаль
Программирование на языке Паскаль
Что такое алгоритм?
Свойства алгоритма
Как работает алгоритм?
Способы записи алгоритмов
Способы записи алгоритмов
Программирование на языке Паскаль
Простейшая программа
Вывод на экран
Задания
Сложение чисел
Сумма: псевдокод
Переменные
Имена переменных
Объявление переменных
Тип переменной
Ввод значения в переменную
Ввод значений переменной
Изменение значений переменной
Вывод данных
Сложение чисел: простое решение
Сложение чисел: полное решение
Снова про оператор вывода
Программирование на языке Паскаль
Типы данных
Арифметические выражения
Деление, div, mod
div и mod для отрицательных чисел
Вещественные числа
Стандартные функции
Случайные числа
Случайные числа на компьютере
Генератор случайных чисел
Другой интервал
Задачи
Задачи
Программирование на языке Паскаль
Условный оператор
Условный оператор: полная форма
Условный оператор: неполная форма
Условный оператор
Знаки отношений
Вложенный условный оператор
Выделение структуры отступами
Задачи
Задачи
Сложные условия
Задачи
Задачи
Задачи
Задачи
Задачи
Множественный выбор
Использование списков и диапазонов
Множественный выбор
Программирование на языке Паскаль
Что такое цикл?
Повторения в программе
Блок-схема цикла
Как организовать цикл?
Цикл с условием
Цикл с условием
Цикл с условием
Сколько раз выполняется цикл?
Цикл с постусловием
Задачи
Задачи
Задачи-2
Задачи-2
Цикл с переменной
Цикл с переменной: другой шаг
Сколько раз выполняется цикл?
Задачи
Задачи
Вложенные циклы
Вложенные циклы
Вложенные циклы
Поиск простых чисел: как улучшить?
Задачи
Задачи
Программирование на языке Паскаль
Зачем нужны процедуры?
Что такое процедура?
Процедура с параметрами
Процедура с параметрами
Процедура с параметрами
Несколько параметров
Задачи
Задачи
Изменяемые параметры
Изменяемые параметры
Задачи
Задачи
Программирование на языке Паскаль
Что такое функция?
Сумма цифр числа
Использование функций
Задачи
Задачи
Логические функции
Функция: простое число или нет?
Логические функции: использование
Задачи
Задачи
Задачи
Программирование на языке Паскаль
Что такое рекурсия?
Что такое рекурсия?
Фракталы
Ханойские башни
Ханойские башни – процедура
Ханойские башни – процедура
Вывод двоичного кода числа
Вычисление суммы цифр числа
Алгоритм Евклида
Задачи
Задачи
Как работает рекурсия?
Стек
Рекурсия – «за» и «против»
Конец фильма
Источники иллюстраций

Программирование на языке Паскаль. (§ 54 - § 61)

1. Программирование на языке Паскаль

1
Программирование на
языке Паскаль
§ 54. Алгоритм и его свойства
§ 55. Простейшие программы
§ 56. Вычисления
§ 57. Ветвления
§ 58. Циклические алгоритмы
§ 59. Процедуры
§ 60. Функции
§ 61. Рекурсия
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

2. Программирование на языке Паскаль

2
Программирование
на языке Паскаль
§ 54. Алгоритм и его
свойства
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

3. Что такое алгоритм?

3
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое алгоритм?
Алгоритм — это точное описание
порядка действий, которые должен
выполнить исполнитель для решения
задачи за конечное время.
Исполнитель – это устройство или
одушёвленное существо (человек),
способное понять и выполнить
команды, составляющие алгоритм.
Мухаммед ал-Хорезми
(ок. 783–ок. 850 гг.)
Формальные исполнители: не понимают
(и не могут понять) смысл команд.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

4. Свойства алгоритма

4
Алгоритмизация и программирование, Паскаль, 10 класс
Свойства алгоритма
Дискретность — алгоритм состоит из отдельных команд,
каждая из которых выполняется за конечное время.
Детерминированность (определённость) — при каждом
запуске алгоритма с одними и теми же исходными
данными получается один и тот же результат.
Понятность — алгоритм содержит только команды,
входящие в систему команд исполнителя.
Конечность (результативность) — для корректного
набора данных алгоритм должен завершаться через
конечное время.
Корректность — для допустимых исходных данных
алгоритм должен приводить к правильному результату.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

5. Как работает алгоритм?

5
Алгоритмизация и программирование, Паскаль, 10 класс
Как работает алгоритм?
дискретный
объект
1234
алгоритм
алгоритм
шаг
шаг 11
2345
шаг
шаг 22
5432
шаг
шаг 33
дискретный
объект
25 16 9 4
• получает на вход дискретный объект
• в результате строит другой дискретный объект (или
выдаёт сообщение об ошибке)
• обрабатывает объект по шагам
• на каждом шаге получается новый дискретный объект
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

6. Способы записи алгоритмов

6
Алгоритмизация и программирование, Паскаль, 10 класс
Способы записи алгоритмов
• естественный язык
установить соединение
пока не принята команда «стоп»
принять команду
выполнить команду
завершить сеанс связи
• псевдокод
установить соединение
нц
принять команду
выполнить команду
кц_при команда = 'stop'
завершить сеанс связи
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

7. Способы записи алгоритмов

7
Алгоритмизация и программирование, Паскаль, 10 класс
Способы записи алгоритмов
• блок-схема
установить
соединение
принять
команду
выполнить
команду
нет
• программа
setConnection;
repeat
cmd:= getCommand;
executeCommand(cmd);
until cmd = "stop";
closeConnection;
«стоп»?
да
завершить
соединение
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

8. Программирование на языке Паскаль

8
Программирование
на языке Паскаль
§ 55. Простейшие программы
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

9. Простейшая программа

9
Алгоритмизация и программирование, Паскаль, 10 класс
Простейшая программа
название алгоритма
program
begin {
{
end. {
qq;
начало программы }
тело программы }
конец программы }
комментарии в скобках
{}
не обрабатываются
?
Что делает эта программа?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

10. Вывод на экран

10
Алгоритмизация и программирование, Паскаль, 10 класс
Вывод на экран
program qq;
begin
write('2+');
writeln('2=?');
writeln('Ответ:
end.
{ без перехода }
{ на новую строку}
4');
Протокол:
2+2=?
Ответ: 4
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

11. Задания

Алгоритмизация и программирование, Паскаль, 10 класс
11
Задания
«B»: Вывести на экран текст «лесенкой»
Вася
пошел
гулять
«C»: Вывести на экран рисунок из букв
Ж
ЖЖЖ
ЖЖЖЖЖ
ЖЖЖЖЖЖЖ
HH HH
ZZZZZ
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

12. Сложение чисел

12
Алгоритмизация и программирование, Паскаль, 10 класс
Сложение чисел
Задача. Ввести с клавиатуры два числа и найти их сумму.
Протокол:
Введите два целых числа
25 30
пользователь
25+30=55
компьютер
компьютер считает сам!
?
1. Как ввести числа в память?
2. Где хранить введенные числа?
3. Как вычислить?
4. Как вывести результат?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

13. Сумма: псевдокод

13
Алгоритмизация и программирование, Паскаль, 10 класс
Сумма: псевдокод
program qq;
begin
{ ввести два числа }
{ вычислить их сумму }
{ вывести сумму на экран }
end.
Псевдокод: алгоритм на
русском языке с
элементами Паскаля.
!
Компьютер не может исполнить псевдокод!
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

14. Переменные

14
Алгоритмизация и программирование, Паскаль, 10 класс
Переменные
Переменная – это величина, имеющая имя, тип
и значение. Значение переменной можно
изменять во время работы программы.
Значение
Другой тип
данных
Имя
К.Ю. Поляков, Е.А. Ерёмин, 2013
!
?
Поместится?
В переменной хранятся данные
определенного типа!
http://kpolyakov.spb.ru

15. Имена переменных

15
Алгоритмизация и программирование, Паскаль, 10 класс
Имена переменных
МОЖНО использовать
• латинские буквы (A-Z)
заглавные и строчные буквы НЕ различаются
• цифры
имя не может начинаться с цифры
• знак подчеркивания _
Какие имена правильные?
AXby R&B 4Wheel Вася “PesBarbos”
TU154 [QuQu] _ABBA A+B
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

16. Объявление переменных

16
Алгоритмизация и программирование, Паскаль, 10 класс
Объявление переменных
Типы переменных:
• integer
{ целая }
• real
{ вещественная }
• и другие…
выделение
Объявление переменных:
variable –
переменная
места в памяти
тип –
целые
var a, b, c: integer;
список имен
переменных
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

17. Тип переменной

17
Алгоритмизация и программирование, Паскаль, 10 класс
Тип переменной
• область допустимых значений
• допустимые операции
• объём памяти
• формат хранения данных
• для предотвращения случайных ошибок
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

18. Ввод значения в переменную

18
Алгоритмизация и программирование, Паскаль, 10 класс
Ввод значения в переменную
оператор
ввода
5
read ( a );
!
1. Программа ждет, пока пользователь введет
значение и нажмет Enter.
2. Введенное значение записывается в
переменную a.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

19. Ввод значений переменной

19
Алгоритмизация и программирование, Паскаль, 10 класс
Ввод значений переменной
Ввод значений двух
переменных (через
пробел или Enter).
read ( a, b );
через пробел:
25 30
25 a
30 b
25
30
25 a
30 b
через Enter:
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

20. Изменение значений переменной

20
Алгоритмизация и программирование, Паскаль, 10 класс
Изменение значений переменной
var a, b: integer; a
?
5
...
a := 5;
b := a + 2;
a := (a + 2)*(b – 3);
b := b + 1;
b
7
8
К.Ю. Поляков, Е.А. Ерёмин, 2013
5
b
?
7
5+2
a
28
5
7*4
7+1
http://kpolyakov.spb.ru

21. Вывод данных

21
Алгоритмизация и программирование, Паскаль, 10 класс
Вывод данных
write( a );
{ вывод значения
переменной a}
writeln( a ); { вывод значения
переменной a и переход
на новую строку}
writeln( 'Привет!' ); { вывод текста }
writeln( 'Ответ: ', c );
{вывод текста и значения переменной c}
writeln ( a, '+', b, '=', c );
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

22. Сложение чисел: простое решение

Алгоритмизация и программирование, Паскаль, 10 класс
22
Сложение чисел: простое решение
program Sum;
var a, b, c: integer;
begin
read ( a, b );
c := a + b;
Что плохо?
?
writeln ( c );
end.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

23. Сложение чисел: полное решение

23
Алгоритмизация и программирование, Паскаль, 10 класс
Сложение чисел: полное решение
program Sum;
var a, b, c: integer;
begin
writeln('Введите два
read ( a, b );
c := a + b;
writeln ( a, '+', b,
end.
Протокол:
целых числа');
'=', c );
компьюте
р
Введите два целых числа
25 30
пользователь
25+30=55
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

24. Снова про оператор вывода

24
Алгоритмизация и программирование, Паскаль, 10 класс
Снова про оператор вывода
Вычисление выражений:
writeln ( a, '+', b, '=', a+b );
Форматный вывод:
a:= 123;
write( a:5 );
123
5 знаков
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

25. Программирование на языке Паскаль

25
Программирование
на языке Паскаль
§ 56. Вычисления
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

26. Типы данных

26
Алгоритмизация и программирование, Паскаль, 10 класс
Типы данных
• byte
• shortint
• word
• longint
• single
• real
• double
• extended
• boolean
• char
• string
{
{
{
{
целые
целые
целые
целые
0..255 }
-128..128 }
0..65535 }
–2147483648..2147483647 }
Сколько байт в памяти?
{
4 байта }
? вещественная,
{ вещественная, 6 байта }
{ вещественная, 8 байтов }
{ вещественная, 10 байтов }
{ логическая, 1 байт }
{ символ, 1 байт }
{ символьная строка }
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

27. Арифметические выражения

27
Алгоритмизация и программирование, Паскаль, 10 класс
Арифметические выражения
3
1 2
4
5
6
a:= (c + b*5*3 - 1) / 2 * d;
Приоритет (старшинство):
c b 5 3 1
1)скобки
a
d
2
2)умножение и деление
3)сложение и вычитание
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

28. Деление, div, mod

28
Алгоритмизация и программирование, Паскаль, 10 класс
Деление, div, mod
Результат деления «/» – вещественное число:
var a: single;
a:= 2 / 3;
0.6666…
div – деление нацело (остаток отбрасывается)
mod – остаток от деления
var a, b, d: integer;
...
d := 85;
b := d div 10; { 8 }
a := d mod 10; { 5 }
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

29. div и mod для отрицательных чисел

29
Алгоритмизация и программирование, Паскаль, 10 класс
div и mod для отрицательных чисел
write(-7 div 2, ',');
write(-7 mod 2);
-3
-1
-7 = (-3)*2 + (-1)
!
В математике не так!
-7 = (-4)*2 + 1
К.Ю. Поляков, Е.А. Ерёмин, 2013
остаток
0
http://kpolyakov.spb.ru

30. Вещественные числа

30
Алгоритмизация и программирование, Паскаль, 10 класс
Вещественные числа
!
Целая и дробная части числа разделяются
точкой!
var x: double;
...
x:= 123.456;
Форматный вывод:
3,333333 10-1-1 =
0,3333333
a:= 1;
3.333333E-001
write( a/3 );
write( a/3:7:3 );
0.333
всего
знаков
К.Ю. Поляков, Е.А. Ерёмин, 2013
в дробной части
http://kpolyakov.spb.ru

31. Стандартные функции

31
Алгоритмизация и программирование, Паскаль, 10 класс
Стандартные функции
abs(x) —
sqrt(x) —
sin(x) —
cos(x) —
exp(x) —
ln(x)

trunc(x)—
round(x)—
модуль
квадратный корень
синус угла, заданного в радианах
косинус угла, заданного в радианах
экспонента ех
натуральный логарифм
отсечение дробной части
округление до ближайшего целого
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

32. Случайные числа

32
Алгоритмизация и программирование, Паскаль, 10 класс
Случайные числа
Случайно…
•встретить друга на улице
•разбить тарелку
•найти 10 рублей
•выиграть в лотерею
Случайный выбор:
•жеребьевка на
соревнованиях
•выигравшие номера
в лотерее
Как получить случайность?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

33. Случайные числа на компьютере

33
Алгоритмизация и программирование, Паскаль, 10 класс
Случайные числа на компьютере
Электронный генератор
• нужно специальное устройство
• нельзя воспроизвести результаты
Псевдослучайные числа – обладают свойствами
случайных чисел, но каждое следующее число
вычисляется по заданной формуле.
Метод середины квадрата (Дж. фон Нейман)
зерно
564321
458191
318458191041
в
• малый период
квадрате (последовательность
повторяется через 106 чисел)
938992
209938992481
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

34. Генератор случайных чисел

34
Алгоритмизация и программирование, Паскаль, 10 класс
Генератор случайных чисел
Вещественные числа в интервале [0,1):
var X, Y: double;
...
X:= random; { интервал от 0 до 1 (<1) }
Y:= random; { это уже другое число! }
англ. random – случайный
Целые числа в интервале [0,10):
var K, L: integer;
...
K:= random( 10 ) { интервал от 0 до 9 (<10) }
L:= random( 10 ) { это уже другое число! }
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

35. Другой интервал

35
Алгоритмизация и программирование, Паскаль, 10 класс
Другой интервал
Вещественные числа:
var X, a, b: double;
...
X:= random*10; { расширение интервала: [0,10) }
X:= random*10 + 5;
{ расширение и сдвиг: [5,15) }
X:= random*(b-a) + a;
{ расширение и сдвиг: [a,b) }
Целые числа:
var K, a, b: integer;
...
K:= random(10) + 5;
{ [5,14] }
X:= random(b-a+1) + a; { [a,b] }
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

36. Задачи

36
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Ввести с клавиатуры три целых числа, найти их сумму,
произведение и среднее арифметическое.
Пример:
Введите три целых числа:
5 7 8
5+7+8=20
5*7*8=280
(5+7+8)/3=6.667
«B»: Ввести с клавиатуры координаты двух точек (A и B) на
плоскости (вещественные числа). Вычислить длину
отрезка AB.
Пример:
Введите координаты точки A:
5.5 3.5
Введите координаты точки B:
1.5 2
Длина отрезка AB = 4.272
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

37. Задачи

37
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Получить случайное трехзначное число и вывести
через запятую его отдельные цифры.
Пример:
Получено число 123.
Его цифры 1, 2, 3.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

38. Программирование на языке Паскаль

38
Программирование
на языке Паскаль
§ 57. Ветвления
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

39. Условный оператор

39
Алгоритмизация и программирование, Паскаль, 10 класс
Условный оператор
Задача: изменить порядок действий в зависимости от
выполнения некоторого условия.
да
aa > b?
M:= aa
полная
форма
ветвления
нет
M:= b
вывод M
?
К.Ю. Поляков, Е.А. Ерёмин, 2013
Если a = b?
http://kpolyakov.spb.ru

40. Условный оператор: полная форма

40
Алгоритмизация и программирование, Паскаль, 10 класс
Условный оператор: полная форма
if a > b then
M:= a
else
M:= b;
!
Перед else знак «;»
НЕ ставится!
if a > b then begin
M:= a;
end
else begin
M:= b;
end;
операторны
е скобки
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

41. Условный оператор: неполная форма

41
Алгоритмизация и программирование, Паскаль, 10 класс
Условный оператор: неполная форма
M:=
M:= a
да
bb > a?
M:= bb
нет
M:= a;
if b > a then
M:= b;
неполная
форма
ветвления
вывод M
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

42. Условный оператор

42
Алгоритмизация и программирование, Паскаль, 10 класс
Условный оператор
?
Что делает?
b
a
6
4
1
?
Можно ли обойтись
без переменной c?
К.Ю. Поляков, Е.А. Ерёмин, 2013
4
6
2
3
if a < b then begin
с:= a;
a:= b;
b:= c
end;
?
4
c
http://kpolyakov.spb.ru

43. Знаки отношений

Алгоритмизация и программирование, Паскаль, 10 класс
43
Знаки отношений
> < больше, меньше
>= больше или равно
<= меньше или равно
= равно
<> не равно
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

44. Вложенный условный оператор

44
Алгоритмизация и программирование, Паскаль, 10 класс
Вложенный условный оператор
Задача: в переменных a и b записаны возрасты Андрея и
Бориса. Кто из них старше?
Сколько вариантов?
if a > b then
writeln('Андрей старше')
else
if a = b then
writeln('Одного возраста')
else
writeln('Борис старше');
?
?
Зачем нужен?
К.Ю. Поляков, Е.А. Ерёмин, 2013
вложенный
условный
оператор
http://kpolyakov.spb.ru

45. Выделение структуры отступами

45
Алгоритмизация и программирование, Паскаль, 10 класс
Выделение структуры отступами
if a > b then write('А') else if a = b then
write('=') else write('Б');
if a > b then
write('А')
else
if a = b then
write('=')
else write('Б');
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

46. Задачи

46
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Ввести три целых числа, найти максимальное из
них.
Пример:
Введите три целых числа:
1 5 4
Максимальное число 5
«B»: Ввести пять целых чисел, найти максимальное из
них.
Пример:
Введите пять целых чисел:
1 5 4 3 2
Максимальное число 5
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

47. Задачи

47
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Ввести последовательно возраст Антона, Бориса и
Виктора. Определить, кто из них старше.
Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

48. Сложные условия

48
Алгоритмизация и программирование, Паскаль, 10 класс
Сложные условия
Задача: набор сотрудников в возрасте 25-40 лет
сложное
(включительно).
условие
if (v >= 25) and (v <= 40) then
and
writeln('подходит')
or
else
writeln('не подходит');
xor
Приоритет :
исключающее
«ИЛИ»
1)not
2)and
3)or, xor
4)отношения (<, >, <=, >=, =, <>)
?
not
Почему скобки обязательны?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

49. Задачи

49
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите программу, которая получает три числа и
выводит количество одинаковых чисел в этой
цепочке.
Пример:
Введите три числа:
5 5 5
Все числа одинаковые.
Пример:
Введите три числа:
5 7 5
Два числа одинаковые.
Пример:
Введите три числа:
5 7 8
Нет одинаковых чисел.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

50. Задачи

50
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«B»: Напишите программу, которая получает номер
месяца и выводит соответствующее ему время года
или сообщение об ошибке.
Пример:
Введите номер месяца:
5
Весна.
Пример:
Введите номер месяца:
15
Неверный номер месяца.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

51. Задачи

51
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Напишите программу, которая получает возраст
человека (целое число, не превышающее 120) и
выводит этот возраст со словом «год», «года» или
«лет». Например, «21 год», «22 года», «25 лет».
Пример:
Введите возраст: 18
Вам 18 лет.
Пример:
Введите возраст: 21
Вам 21 год.
Пример:
Введите возраст: 22
Вам 22 года.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

52. Задачи

Алгоритмизация и программирование, Паскаль, 10 класс
52
Задачи
«A»: Напишите условие, которое определяет
заштрихованную область.
«B»: Напишите условие, которое определяет
заштрихованную область.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

53. Задачи

Алгоритмизация и программирование, Паскаль, 10 класс
53
Задачи
«C»: Напишите условие, которое определяет
заштрихованную область.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

54. Множественный выбор

Алгоритмизация и программирование, Паскаль, 10 класс
54
Множественный выбор
if m = 1 then
write('январь');
if m = 2 then
write('февраль');
...
if m = 12 then
write('декабрь');
case
1:
2:
...
12:
else
end;
m of
write('январь');
write('февраль');
write('декабрь')
write('ошибка')
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

55. Использование списков и диапазонов

55
Алгоритмизация и программирование, Паскаль, 10 класс
Использование списков и диапазонов
Число дней в месяце:
case m of
2: d:= 28; { невисокосный год }
1,3,5,7,8,10,12: d:= 31
else d:= 30
end;
Социальный статус:
case v of
0..6: write('дошкольник');
7..17: write('школьник')
else
write('взрослый')
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

56. Множественный выбор

Алгоритмизация и программирование, Паскаль, 10 класс
56
Множественный выбор
var c: char;
несколько
...
операторов в
case c of
блоке
'а': begin
writeln('антилопа');
writeln('Анапа');
end;
...
'я': begin
writeln('ягуар');
writeln('Якутск');
end
else writeln('ошибка')
К.Ю.end;
Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

57. Программирование на языке Паскаль

57
Программирование
на языке Паскаль
§ 58. Циклические
алгоритмы
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

58. Что такое цикл?

58
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое цикл?
Цикл – это многократное выполнение одинаковых
действий.
Два вида циклов:
• цикл с известным числом шагов (сделать 10 раз)
• цикл с неизвестным числом шагов (делать, пока не
надоест)
Задача. Вывести на экран 10 раз слово «Привет».
?
Можно ли решить известными методами?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

59. Повторения в программе

Алгоритмизация и программирование, Паскаль, 10 класс
59
Повторения в программе
writeln
writeln
writeln
...
writeln
('Привет');
('Привет');
('Привет');
('Привет');
?
К.Ю. Поляков, Е.А. Ерёмин, 2013
Что плохо?
http://kpolyakov.spb.ru

60. Блок-схема цикла

60
Алгоритмизация и программирование, Паскаль, 10 класс
Блок-схема цикла
начало
начало
да
конец
конец
нет
тело цикла
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

61. Как организовать цикл?

61
Алгоритмизация и программирование, Паскаль, 10 класс
Как организовать цикл?
счётчик:= 0
пока счётчик < 10
writeln('привет');
увеличить счётчик на 1
счётчик:= 10
пока счётчик > 0
writeln('привет');
уменьшить счётчик на 1
?
результат операции
автоматически
сравнивается с
нулём!
Какой способ удобнее для процессора?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

62. Цикл с условием

62
Алгоритмизация и программирование, Паскаль, 10 класс
Цикл с условием
Задача. Определить количество цифр в десятичной
записи целого положительного числа, записанного в
переменную n.
n
счётчик
счётчик:= 0
пока n > 0
отсечь последнюю цифру n
увеличить счётчик на 1
?
Как отсечь последнюю цифру?
n:= n div 10
?
1234
0
123
1
12
2
1
3
0
4
Как увеличить счётчик на 1?
счётчик:= счётчик + 1
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

63. Цикл с условием

63
Алгоритмизация и программирование, Паскаль, 10 класс
Цикл с условием
начальное
значение счётчика
заголовок
цикла
условие
продолжени
я
count:= 0;
while n > 0 do begin
n:= n div 10;
count:= count + 1
end;
?
!
Зачем begin-end?
тело цикла
Цикл с предусловием – проверка на входе в цикл!
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

64. Цикл с условием

Алгоритмизация и программирование, Паскаль, 10 класс
64
Цикл с условием
При известном количестве шагов:
k:= 0;
while k < 10 do begin
writeln('привет');
k:= k + 1
end;
Зацикливание:
k:= 0;
while k < 10 do
writeln('привет');
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

65. Сколько раз выполняется цикл?

65
Алгоритмизация и программирование, Паскаль, 10 класс
Сколько раз выполняется цикл?
a:= 4; b:= 6;
while a < b do a:= a + 1;
2 раза
a=6
a:= 4; b:= 6;
while a < b do a:= a + b;
1 раз
a = 10
a:= 4; b:= 6;
while a > b do a:= a + 1;
0 раз
a=4
a:= 4; b:= 6;
while a < b do b:= a - b;
1 раз
b = -2
a:= 4; b:= 6;
while a < b do a:= a - 1;
К.Ю. Поляков, Е.А. Ерёмин, 2013
зацикливани
е
http://kpolyakov.spb.ru

66. Цикл с постусловием

66
Алгоритмизация и программирование, Паскаль, 10 класс
Цикл с постусловием
заголовок
цикла
тело цикла
repeat
write('Введите n > 0: ');
read(n)
until n > 0 ;
условие
окончания
• при входе в цикл условие не проверяется
• цикл всегда выполняется хотя бы один раз
• в последней строке указывают условие окончания
цикла, а не условие его продолжения
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

67. Задачи

67
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите программу, которая получает два целых числа
A и B (0 < A < B) и выводит квадраты всех натуральных
чисел в интервале от A до B.
Пример:
Введите два целых числа:
10 12
10*10=100
11*11=121
12*12=144
«B»: Напишите программу, которая получает два целых числа и
находит их произведение, не используя операцию
умножения. Учтите, что числа могут быть отрицательными.
Пример:
Введите два числа:
10 -15
10*(-15)=-150
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

68. Задачи

68
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Ввести натуральное число N и вычислить сумму
всех чисел Фибоначчи, меньших N. Предусмотрите
защиту от ввода отрицательного числа N.
Пример:
Введите число N:
10000
Сумма 17709
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

69. Задачи-2

69
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи-2
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.
«B»: Ввести натуральное число и определить, верно ли, что в
его записи есть две одинаковые цифры, стоящие рядом.
Пример:
Введите натуральное число:
12342
Нет.
Пример:
Введите натуральное число:
12245
Да.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

70. Задачи-2

70
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи-2
«C»: Ввести натуральное число и определить, верно ли,
что в его записи есть две одинаковые цифры (не
обязательно стоящие рядом).
Пример:
Введите натуральное число:
12342
Да.
Пример:
Введите натуральное число:
12345
Нет.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

71. Цикл с переменной

71
Алгоритмизация и программирование, Паскаль, 10 класс
Цикл с переменной
Задача. Вывести все степени двойки от 21 до 210.
?
Можно ли сделать с циклом «while»?
k:= 1;
n:= 2;
while k <= 10
begin
writeln(n);
n:= n * 2;
k:= k + 1
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
do
n:= 2;
for k:= 1 to 10 do
begin
writeln(n);
n:= n * 2
end;
!
Переменная k – целая!
http://kpolyakov.spb.ru

72. Цикл с переменной: другой шаг

72
Алгоритмизация и программирование, Паскаль, 10 класс
Цикл с переменной: другой шаг
var k:
целое
целое
integer;
for k:= 10 downto 1 do
writeln(k*k);
шаг «–1»
!
?
Шаг может быть равен только 1 или «–1» !
Как сделать шаг 2?
k:= 1;
for
i:= 1 to 10 do begin
writeln(k*k);
k:= k + 2
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

73. Сколько раз выполняется цикл?

73
Алгоритмизация и программирование, Паскаль, 10 класс
Сколько раз выполняется цикл?
a := 1;
for i:=1 to 3 do a := a+1;
a= 4
a := 1;
for i:=3 to 1 do a := a+1;
a= 1
a := 1;
for i:=1 downto 3 do a := a+1;
a= 1
a := 1;
for i:=3 downto 1 do a := a+1;
a= 4
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

74. Задачи

74
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Найдите все пятизначные числа, которые при
делении на 133 дают в остатке 125, а при делении
на 134 дают в остатке 111.
«B»: Натуральное число называется числом
Армстронга, если сумма цифр числа, возведенных
в N-ную степень (где N – количество цифр в числе)
равна самому числу. Например, 153 = 13 + 53 + 33.
Найдите все трёхзначные Армстронга.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

75. Задачи

75
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«С»: Натуральное число называется автоморфным,
если оно равно последним цифрам своего квадрата.
Например, 252 = 625. Напишите программу, которая
получает натуральное число N и выводит на экран
все автоморфные числа, не превосходящие N.
Пример:
Введите N:
1000
1*1=1
5*5=25
6*6=36
25*25=625
76*76=5776
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

76. Вложенные циклы

76
Алгоритмизация и программирование, Паскаль, 10 класс
Вложенные циклы
Задача. Вывести все простые числа в диапазоне
от 2 до 1000.
для n от 2 до 1000
если число
число nn простое
простое то
writeln(n);
нет делителей [2.. n-1]:
проверка в цикле!
?
Что значит «простое число»?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

77. Вложенные циклы

77
Алгоритмизация и программирование, Паскаль, 10 класс
Вложенные циклы
for n:= 2 to 1000 do begin
count:= 0;
for k:= 2 to n-1 do
if n mod k = 0 then
count:= count + 1;
if count = 0 then
writeln(n)
вложенный цикл
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

78. Вложенные циклы

78
Алгоритмизация и программирование, Паскаль, 10 класс
Вложенные циклы
for i:=1 to 4 do
for k:=1 to i do
writeln(i, ' ', k);
?
!
Как меняются переменные?
Переменная внутреннего
цикла изменяется быстрее!
К.Ю. Поляков, Е.А. Ерёмин, 2013
1
2
2
3
3
3
4
4
4
4
1
1
2
1
2
3
1
2
3
4
http://kpolyakov.spb.ru

79. Поиск простых чисел: как улучшить?

79
Алгоритмизация и программирование, Паскаль, 10 класс
Поиск простых чисел: как улучшить?
n k m, k m k 2 n k n
while k <= sqrt(n) do begin
...
end;
?
Что плохо?
count:= 0;
k:= 2;
Как ещё улучшить?
while k*k <= n do begin
if n mod k = 0 then
count:= count + 1;
k:= k + 1
while (k*k <= n) and (count = 0)
end;
do begin
...
end;
?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

80. Задачи

80
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите программу, которая получает натуральные
числа A и B (A<B) и выводит все простые числа в
интервале от A до B.
Пример:
Введите границы диапазона:
10 20
11 13 17 19
«B»: В магазине продается мастика в ящиках по 15 кг,
17 кг, 21 кг. Как купить ровно 185 кг мастики, не
вскрывая ящики? Сколькими способами можно это
сделать?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

81. Задачи

81
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Ввести натуральное число N и вывести все
натуральные числа, не превосходящие N и
делящиеся на каждую из своих цифр.
Пример:
Введите N:
15
1 2 3 4 5 6 7 8 9 11 12 15
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

82. Программирование на языке Паскаль

82
Программирование
на языке Паскаль
§ 59. Процедуры
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

83. Зачем нужны процедуры?

83
Алгоритмизация и программирование, Паскаль, 10 класс
Зачем нужны процедуры?
writeln('Ошибка программы');
много раз!
program withProc;
var n: integer;
procedure Error;
begin
writeln('Ошибка программы')
end;
begin
read(n);
if n < 0 then Error;
...
end.
вызов
процедуры
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

84. Что такое процедура?

84
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое процедура?
Процедура – вспомогательный алгоритм, который
выполняет некоторые действия.
• текст (расшифровка) процедуры записывается
до основной программы
• в программе может быть много процедур
• чтобы процедура заработала, нужно вызвать её по
имени из основной программы или из другой
процедуры
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

85. Процедура с параметрами

85
Алгоритмизация и программирование, Паскаль, 10 класс
Процедура с параметрами
Задача. Вывести на экран запись целого числа (0..255) в
8-битном двоичном коде.
много раз!
Алгоритм:
178 101100102
?
Как вывести первую цифру?
7
6 5 4
3 2 1 0
разряды
n:= 1 0 1 1 0 0 1 02
n div 128
?
n mod 128
Как вывести вторую цифру?
К.Ю. Поляков, Е.А. Ерёмин, 2013
n1 div 64
http://kpolyakov.spb.ru

86. Процедура с параметрами

86
Алгоритмизация и программирование, Паскаль, 10 класс
Процедура с параметрами
Задача. Вывести на экран запись целого числа (0..255) в
8-битном двоичном коде.
Алгоритм:
n
k
вывод
k:= 128;
178
128
1
while k > 0 do begin
write(n div k);
50
64
0
n:= n mod k;
50
32
1
k:= k div 2
18
16
1
end;
2
8
0
178 10110010
2
4
0
!
Результат зависит
от n!
К.Ю. Поляков, Е.А. Ерёмин, 2013
2
2
1
0
1
0
0
0
http://kpolyakov.spb.ru

87. Процедура с параметрами

87
Алгоритмизация и программирование, Паскаль, 10 класс
Процедура с параметрами
program binCode;
procedure printBin(n: integer);
var k: integer;
Параметры – данные,
begin
локальная
переменная
изменяющие работу
k:= 128;
процедуры.
while k > 0 do begin
write(n div k);
n:= n mod k;
k:= k div 2
end
значение параметра
end;
(аргумент)
begin
printBin(99)
end.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

88. Несколько параметров

Алгоритмизация и программирование, Паскаль, 10 класс
88
Несколько параметров
procedure printSred(a: integer;
b: integer);
begin
write((a+b)/2);
end.
procedure printSred(a, b: integer);
begin
write((a+b)/2);
end.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

89. Задачи

89
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите процедуру, которая принимает параметр –
натуральное число N – и выводит на экран линию из N
символов '–'.
Пример:
Введите N:
10
---------«B»: Напишите процедуру, которая выводит на экран в
столбик все цифры переданного ей числа, начиная с
первой.
Пример:
Введите натуральное число:
1234
1
2
3
4
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

90. Задачи

90
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Напишите процедуру, которая выводит на экран
запись переданного ей числа в римской системе
счисления.
Пример:
Введите натуральное число:
2013
MMXIII
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

91. Изменяемые параметры

91
Алгоритмизация и программирование, Паскаль, 10 класс
Изменяемые параметры
Задача. Написать процедуру, которая меняет местами
значения двух переменных.
передача по
program Exchange;
значению
var x, y: integer;
procedure Swap(a, b: integer);
var c: integer;
begin
c:= a; a:= b; b:= c;
end;
Процедура работает с копиями
begin
переданных значений параметров!
x:= 2; y:= 3;
Swap(x, y);
2 3
write(x, ' ', y)
end.
Почему не работает?
!
?
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

92. Изменяемые параметры

92
Алгоритмизация и программирование, Паскаль, 10 класс
Изменяемые параметры
переменные
могут изменяться
procedure Swap( var a, b: integer);
var c: integer;
передача по
begin
ссылке
c:= a; a:= b; b:= c;
end;
Вызов:
var a, b: integer;
...
Swap(a, b); { правильно }
Swap(2, 3); { неправильно }
Swap(a, b+3); { неправильно }
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

93. Задачи

93
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите процедуру, которая переставляет три
переданные ей числа в порядке возрастания.
Пример:
Введите три натуральных числа:
10 15 5
5 10 15
«B»: Напишите процедуру, которая сокращает дробь
вида M/N. Числитель и знаменатель дроби
передаются как изменяемые параметры.
Пример:
Введите числитель и знаменатель дроби:
25 15
После сокращения: 5/3
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

94. Задачи

94
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Напишите процедуру, которая вычисляет
наибольший общий делитель и наименьшее общее
кратное двух натуральных чисел и возвращает их
через изменяемые параметры.
Пример:
Введите два натуральных числа:
10 15
НОД(10,15)=5
НОК(10,15)=30
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

95. Программирование на языке Паскаль

95
Программирование
на языке Паскаль
§ 60. Функции
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

96. Что такое функция?

96
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое функция?
Функция – это вспомогательный алгоритм, который
возвращает значение-результат (число, символ или
объект другого типа).
Задача. Написать функцию, которая вычисляет сумму
цифр числа.
Алгоритм:
сумма:= 0;
while n <> 0 do begin
сумма:= сумма + n mod 10;
n:= n div 10
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

97. Сумма цифр числа

97
Алгоритмизация и программирование, Паскаль, 10 класс
Сумма цифр числа
program Sum;
function sumDigits(n: integer): integer ;
var sum: integer;
begin
тип результата
sum:= 0;
while n <> 0 do begin
sum:= sum + n mod 10;
n:= n div 10;
end;
передача
sumDigits:= sum
результата
end;
begin
writeln(sumDigits(12345))
end.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

98. Использование функций

98
Алгоритмизация и программирование, Паскаль, 10 класс
Использование функций
x:= 2*sumDigits(n+5);
z:= sumDigits(k) + sumDigits(m);
if sumDigits(n) mod 2 = 0 then begin
writeln('Сумма цифр чётная');
writeln('Она равна ', sumDigits(n))
end;
!
Функция, возвращающая целое число, может
использоваться везде, где и целая величина!
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

99. Задачи

99
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите функцию, которая находит наибольший
общий делитель двух натуральных чисел.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574) = 1234.
«B»: Напишите функцию, которая определяет сумму
цифр переданного ей числа.
Пример:
Введите натуральное число:
123
Сумма цифр числа 123 равна 6.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

100. Задачи

100
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Напишите функцию, которая «переворачивает»
число, то есть возвращает число, в котором цифры
стоят в обратном порядке.
Пример:
Введите натуральное число:
1234
После переворота: 4321.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

101. Логические функции

101
Алгоритмизация и программирование, Паскаль, 10 класс
Логические функции
Задача. Найти все простые числа в диапазоне
от 2 до 100.
program PrimeNum;
var i: integer;
begin
for i:=2 to 100 do
- простое then
if iisPrime(i)
writeln(i)
функция,
end.
возвращающая
логическое значение
(True/False)
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

102. Функция: простое число или нет?

102
Алгоритмизация и программирование, Паскаль, 10 класс
Функция: простое число или нет?
?
Какой алгоритм?
логическое значение
(True/False)
function isPrime(n: integer): boolean ;
var count, k: integer;
begin
count:= 0;
k:= 2;
while (k*k <= n) and (count = 0) do begin
if n mod k = 0 then
count:= count + 1;
if count = 0 then
k:= k + 1
isPrime:= True
else isPrime:=
end;
False
isPrime:= (count = 0)
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

103. Логические функции: использование

103
Алгоритмизация и программирование, Паскаль, 10 класс
Логические функции: использование
!
Функция, возвращающая логическое значение,
может использоваться везде, где и логическая
величина!
read(n);
while isPrime(n) do begin
writeln('простое число');
read(n)
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

104. Задачи

104
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите логическую функцию, которая
определяет, является ли переданное ей число
совершенным, то есть, равно ли оно сумме своих
делителей, меньших его самого.
Пример:
Введите натуральное число:
28
Число 28 совершенное.
Пример:
Введите натуральное число:
29
Число 29 не совершенное.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

105. Задачи

105
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«B»: Напишите логическую функцию, которая
определяет, являются ли два переданные ей числа
взаимно простыми, то есть, не имеющими общих
делителей, кроме 1.
Пример:
Введите два натуральных числа:
28 15
Числа 28 и 15 взаимно простые.
Пример:
Введите два натуральных числа:
28 16
Числа 28 и 16 не взаимно простые.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

106. Задачи

106
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«С»: Простое число называется гиперпростым, если любое
число, получающееся из него откидыванием нескольких
цифр, тоже является простым. Например, число 733 –
гиперпростое, так как и оно само, и числа 73 и 7 –
простые. Напишите логическую функцию, которая
определяет, верно ли, что переданное ей число –
гиперпростое. Используйте уже готовую функцию
isPrime, которая приведена в учебнике.
Пример:
Введите натуральное число:
733
Число 733 гиперпростое.
Пример:
Введите натуральное число:
19
Число 19 не гиперпростое.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

107. Программирование на языке Паскаль

107
Программирование
на языке Паскаль
§ 61. Рекурсия
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

108. Что такое рекурсия?

108
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое рекурсия?
У попа была собака, он её любил,
Она съела кусок мяса, он её убил,
В землю закопал,
Надпись написал:
У попа была собака, он её любил,
Она съела кусок мяса, он её убил,
В землю закопал,
Надпись написал:

К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

109. Что такое рекурсия?

109
Алгоритмизация и программирование, Паскаль, 10 класс
Что такое рекурсия?
Натуральные числа:
• 1 – натуральное число
• если n – натуральное число,
то n 1 – натуральное число
индуктивное
определение
Рекурсия — это способ определения множества
объектов через само это множество на основе
заданных простых базовых случаев.
Числа Фибоначчи:
• F1 F2 1
• Fn Fn 1 Fn 2 при n 2
1, 1, 2, 3, 5, 8, 13, 21, 34, …
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

110. Фракталы

110
Алгоритмизация и программирование, Паскаль, 10 класс
Фракталы
Фракталы – геометрические фигуры, обладающие
самоподобием.
Треугольник Серпинского:
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

111. Ханойские башни

111
Алгоритмизация и программирование, Паскаль, 10 класс
Ханойские башни
1
2
3
• за один раз переносится один диск
• класть только меньший диск на больший
• третий стержень вспомогательный
перенести (n, 1, 3)
перенести (n-1, 1, 2)
1 -> 3
перенести (n-1, 2, 3)
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

112. Ханойские башни – процедура

112
Алгоритмизация и программирование, Паскаль, 10 класс
Ханойские башни – процедура
сколько
откуда
куда
proceduer Hanoi(n, k, m: integer);
var p: integer;
номер
вспомогательного
begin
стержня (1+2+3=6!)
p
:=
6
k

m;
рекурсия
Hanoi(n-1, k, p);
writeln(k, ' -> ', m);
рекурсия
Hanoi(n-1, p, m)
end;
?
!
Что плохо?
Рекурсия никогда не остановится!
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

113. Ханойские башни – процедура

113
Алгоритмизация и программирование, Паскаль, 10 класс
Ханойские башни – процедура
Рекурсивная процедура (функция) — это процедура
(функция), которая вызывает сама себя напрямую или
через другие процедуры и функции.
proceduer Hanoi(n, k, m: integer);
var p: integer;
условие выхода
begin
из рекурсии
if n = 0 then exit;
p := 6 - k – m;
Hanoi(n-1, k, p);
writeln(k, ' -> ', m);
Hanoi(n-1, p, m)
program HanoiTower;
end;
...
begin
Hanoi(4, 1, 3)
end.
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

114. Вывод двоичного кода числа

114
Алгоритмизация и программирование, Паскаль, 10 класс
Вывод двоичного кода числа
procedure printBin(n: integer);
begin
условие выхода
if n = 0 then exit;
из рекурсии
printBin ( n div 2 );
напечатать все
write( n mod 2 )
цифры, кроме
end;
последней
printBin(
01))
printBin(
printBin(
24))
printBin(
printBin(
))
printBin(919
10011
К.Ю. Поляков, Е.А. Ерёмин, 2013
вывести
последнюю
цифру
?
Как без рекурсии?
http://kpolyakov.spb.ru

115. Вычисление суммы цифр числа

115
Алгоритмизация и программирование, Паскаль, 10 класс
Вычисление суммы цифр числа
function sumDig(n: integer): integer;
var sum: integer;
последняя
нач
цифра
sum:= n mod 10;
рекурсивный вызов
if n >= 10 then
sum:= sum + sumDig( n div 10 );
sumDig:= sum
end;
Где условие окончания
sumDig( 1234 )
4 + sumDig( 123 )
?
рекурсии?
4 + 3 + sumDig( 12 )
4 + 3 + 2 + sumDig( 1 )
4 + 3 + 2 + 1
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

116. Алгоритм Евклида

116
Алгоритмизация и программирование, Паскаль, 10 класс
Алгоритм Евклида
Алгоритм Евклида. Чтобы найти НОД двух натуральных
чисел, нужно вычитать из большего числа меньшее до
тех пор, пока меньшее не станет равно нулю. Тогда
второе число и есть НОД исходных чисел.
function NOD(a, b: integer): integer;
begin
if (a = 0) or (b = 0) then begin
NOD:= a + b;
условие окончания
exit
рекурсии
end;
if a > b then
NOD:= NOD(a - b, b)
рекурсивные вызовы
else NOD:= NOD(a,
NOD(a, b - a)
end;
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

117. Задачи

117
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«A»: Напишите рекурсивную функцию, которая
вычисляет НОД двух натуральных чисел, используя
модифицированный алгоритм Евклида.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574)=1234.
«B»: Напишите рекурсивную функцию, которая
раскладывает число на простые сомножители.
Пример:
Введите натуральное число:
378
378 = 2*3*3*3*7
К.Ю. Поляков, Е.А. Ерёмин, 2013
http://kpolyakov.spb.ru

118. Задачи

118
Алгоритмизация и программирование, Паскаль, 10 класс
Задачи
«C»: Дано натуральное число N. Требуется получить и
вывести на экран количество всех возможных
различных способов представления этого числа в
виде суммы натуральных чисел (то есть, 1 + 2 и
2 + 1 – это один и тот же способ разложения числа
3). Решите задачу с помощью рекурсивной
процедуры.
Пример:
Введите натуральное число:
4
Ко
English     Русский Правила