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

Программирование на языке Паскаль
§ 54. Введение в язык Паскаль

Простейшая программа
program qq;
begin { начало программы }
{ тело программы }
end. { конец программы }
комментарии в скобках {}
не обрабатываются
название алгоритма

Вывод на экран
program qq;
begin
write('2+'); { без перехода }
writeln('2=?'); { на новую строку}
writeln('Ответ: 4');
end.
Протокол:
2+2=?
Ответ: 4

Задания
«B»: Вывести на экран текст «лесенкой»
Вася
пошел
гулять
«C»: Вывести на экран рисунок из букв
Ж
ЖЖЖ
ЖЖЖЖЖ
ЖЖЖЖЖЖЖ
HH HH
ZZZZZ

Сложение чисел
Задача. Ввести с клавиатуры два числа и найти их сумму.
Протокол:
Введите два целых числа
25 30
25+30=55
компьютер
пользователь
компьютер считает сам!

Сумма: псевдокод
program qq;
begin
{ ввести два числа }
{ вычислить их сумму }
{ вывести сумму на экран }
end.
Псевдокод: алгоритм на русском языке с элементами Паскаля.

Переменные
Переменная – это величина, имеющая имя, тип и значение. Значение переменной можно изменять во время работы программы.
a
Значение
Имя
Другой тип данных

Имена переменных
МОЖНО использовать
латинские буквы (A-Z)
цифры
знак подчеркивания _
заглавные и строчные буквы НЕ различаются
НЕЛЬЗЯ использовать
русские буквы
пробелы
скобки, знаки +, =, !, ? и др.
имя не может начинаться с цифры
Какие имена правильные?
AXby R&B 4Wheel Вася “PesBarbos” TU154 [QuQu] _ABBA A+B

Объявление переменных
var a, b, c: integer;
тип – целые
список имён переменных
variable

Типы данных
byte { целые 0..255 }
shortint { целые -128..128 }
word { целые 0..65535 }
longint { целые –2147483648..2147483647 }
single { вещественная, 4 байта }
real { вещественная, 6 байта }
double { вещественная, 8 байтов }
extended { вещественная, 10 байтов }
boolean { логическая, 1 байт }
char { символ, 1 байт }
string { символьная строка }

Тип переменной
область допустимых значений
допустимые операции
объём памяти
формат хранения данных
для предотвращения случайных ошибок

Ввод значения в переменную
read ( a );
оператор ввода
5
a

Ввод значений переменной
через пробел:
25 30
через Enter:
25
30
read ( a, b );
Ввод значений двух переменных (через пробел или Enter).

Изменение значений переменной
var a, b: integer;
...
a := 5;
b := a + 2;
a := (a + 2)*(b – 3);
b := b + 1;
a
?
5
5
b
?
5+2
7
a
5
7*4
28
b
7
7+1
8

Арифметические выражения
a:= (c + b*5*3 - 1) / 2 * d;
Приоритет (старшинство):
скобки
умножение и деление
сложение и вычитание
2
1
3
4
5
6

Вывод данных
{ вывод значения переменной a}
{ вывод значения переменной a и переход на новую строку}
{ вывод текста }
{вывод текста и значения переменной c}
write( a );
writeln( a );
writeln( 'Привет!' );
writeln( 'Ответ: ', c );
writeln ( a, '+', b, '=', c );

Сложение чисел: простое решение
program Sum;
var a, b, c: integer;
begin
read ( a, b );
c := a + b;
writeln ( c );
end.

Сложение чисел: полное решение
program Sum;
var a, b, c: integer;
begin
writeln('Введите два целых числа');
read ( a, b );
c := a + b;
writeln ( a, '+', b, '=', c );
end.
Протокол:
Введите два целых числа
25 30
25+30=55
компьютер
пользователь

Снова про оператор вывода
a:= 123;
write( a:5 );
Форматный вывод:
Вычисление выражений:
writeln ( a, '+', b, '=', a+b );
a+b

Программирование на языке Паскаль
§ 55. Вычисления

Деление, div, mod
Результат деления «/» – вещественное число:
a:= 2 / 3;
var a: real;
0.6666…
div – деление нацело (остаток отбрасывается)
mod – остаток от деления
var a, b, d: integer;
...
d := 85;
b := d div 10; { 8 }
a := d mod 10; { 5 }

div и mod для отрицательных чисел
write(-7 div 2, ',');
write(-7 mod 2);
-3
-1
-7 = (-3)*2 + (-1)
-7 = (-4)*2 + 1
остаток ≥ 0

Вещественные числа
var x: double;
...
x:= 123.456;
Форматный вывод:
a:= 1;
write( a/3 );
write( a/3:7:3 );
3.333333E-001
3,333333 ⋅ 10-1 = 0,3333333
всего знаков
в дробной части

Стандартные функции
abs(x) — модуль
sqrt(x) — квадратный корень
sin(x) — синус угла, заданного в радианах
cos(x) — косинус угла, заданного в радианах
exp(x) — экспонента ех
ln(x) — натуральный логарифм
trunc(x)— отсечение дробной части
round(x)— округление до ближайшего целого

Документирование программы
var a, b, c, D, x1, x2: real;
begin
writeln('Введите a, b, c:');
read(a, b, c);
D := b*b - 4*a*c;
if D < 0 then writen('Нет')
else begin
x1 := (-b + sqrt(D))/(2*a);
x2 := (-b - sqrt(D))/(2*a);
writeln('x1=', x1:5:3,
' x2=', x2:5:3);
end
end.

Документирование программы
Руководство пользователя:
назначение программы
формат входных данных
формат выходных данных
примеры использования программы
Назначение:
программа для решения уравнения
Формат входных данных:
значения коэффициентов a, b и c вводятся с клавиатуры через пробел в одной строке

Документирование программы
Формат выходных данных:
значения вещественных корней уравнения; если вещественных корней нет, выводится слово «нет»
Примеры использования программы:
1. Решение уравнения
Введите a, b, c: 1 -5 1
x1=4.791 x2=0.209
2. Решение уравнения
Введите a, b, c: 1 1 6
Нет.

Случайные числа
Случайно…
встретить друга на улице
разбить тарелку
найти 10 рублей
выиграть в лотерею
Случайный выбор:
жеребьевка на соревнованиях
выигравшие номера
в лотерее
Как получить случайность?

Случайные числа на компьютере
Электронный генератор
нужно специальное устройство
нельзя воспроизвести результаты
318458191041
564321
209938992481
458191
938992
малый период
(последовательность повторяется через 106 чисел)
Метод середины квадрата (Дж. фон Нейман)
в квадрате
Псевдослучайные числа – обладают свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле.
зерно

Линейный конгруэнтный генератор
X := (a*X+b) mod c | интервал от 0 до c-1
X := (X+3) mod 10 | интервал от 0 до 9
X := 0
зерно
→ 3
→ 6
→ 9
→ 2
→ 5
→ 8
→ 0
зацикливание
8
→ 1
→ 4
→ 7
Компилятор GCC:
a = 1103515245
b = 12345
c = 231

Генератор случайных чисел
Вещественные числа в интервале [0,1):
var X, Y: double;
...
X:= random; { интервал от 0 до 1 (<1) }
Y:= random; { это уже другое число! }
Целые числа в интервале [0,10):
var K, L: integer;
...
K:= random( 10 ) { интервал от 0 до 9 (<10) }
L:= random( 10 ) { это уже другое число! }
англ. random – случайный

Другой отрезок
Вещественные числа [a, b):
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;
X:= random(b-a+1) + a;
Целые числа [a, b]:
{ [5,14] }
{ [a,b] }

Задачи
«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

Задачи
«C»: Получить случайное трехзначное число и вывести через запятую его отдельные цифры.
Пример:
Получено число 123.
Его цифры 1, 2, 3.

Программирование на языке Паскаль
§ 56. Ветвления

Условный оператор
Задача: изменить порядок действий в зависимости от выполнения некоторого условия.
полная форма ветвления

Условный оператор: полная форма
if a > b then
M:= a
else
M:= b;
if a > b then begin
M:= a;
end
else begin
M:= b;
end;

Условный оператор: неполная форма
неполная форма ветвления
M:= a;
if b > M then M:= b;

Условный оператор
if a < b then begin
с:= a;
a:= b;
b:= c
end;
4
6
?
4
6
4
a
b
3
2
1
c

Знаки отношений
>
<
>=
<=
=
<>
больше, меньше
больше или равно
меньше или равно
равно
не равно

Вложенный условный оператор
if a = b then
writeln(' Одного возраста ')
else
if a > b then
writeln('Андрей старше')
else
writeln('Борис старше');
вложенный условный оператор
Задача: в переменных a и b записаны возрасты Андрея и Бориса. Кто из них старше?

Вложенный условный оператор
cost := 1500;
if cost < 1000 then
writeln('Скидок нет.')
else if cost < 2000 then
writeln('Скидка 2%.')
else if cost < 5000 then
writeln('Скидка 5%.')
else
writeln('Скидка 10%.');
первое сработавшее условие
Скидка 2%.

Выделение структуры отступами
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('Б');

Задачи
«A»: Ввести три целых числа, найти максимальное из них.
Пример:
Введите три целых числа:
1 5 4
Максимальное число 5
«B»: Ввести пять целых чисел, найти максимальное из них.
Пример:
Введите пять целых чисел:
1 5 4 3 2
Максимальное число 5

Задачи
«C»: Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше.
Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.

Сложные условия
Задача: набор сотрудников в возрасте 25-40 лет (включительно).
if then writeln('подходит')
else
writeln('не подходит');
and
or
not
Приоритет :
not
and
or, xor
отношения (<, >, <=, >=, =, <>)
xor
исключающее «ИЛИ»
(v >= 25) and (v <= 40)
сложное условие

Задачи
«A»: Напишите программу, которая получает три числа и выводит количество одинаковых чисел в этой цепочке.
Пример:
Введите три числа:
5 5 5
Все числа одинаковые.
Пример:
Введите три числа:
5 7 5
Два числа одинаковые.
Пример:
Введите три числа:
5 7 8
Нет одинаковых чисел.

Задачи
«B»: Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке.
Пример:
Введите номер месяца:
5
Весна.
Пример:
Введите номер месяца:
15
Неверный номер месяца.

Задачи
«C»: Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет».
Пример:
Введите возраст: 18
Вам 18 лет.
Пример:
Введите возраст: 21
Вам 21 год.
Пример:
Введите возраст: 22
Вам 22 года.

Задачи
«A»: Напишите условие, которое определяет заштрихованную область.
«B»: Напишите условие, которое определяет заштрихованную область.

Задачи
«C»: Напишите условие, которое определяет заштрихованную область.

Множественный выбор
if m = 1 then
write('январь');
if m = 2 then
write('февраль');
...
if m = 12 then
write('декабрь');
case m of
1: write('январь');
2: write('февраль');
...
12: write('декабрь')
else write('ошибка')
end;

Использование списков и диапазонов
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;

Множественный выбор
var c: char;
...
case c of
'а': begin
writeln('антилопа');
writeln('Анапа'); end;
...
'я': begin
writeln('ягуар');
writeln('Якутск');
end
else writeln('ошибка')
end;
несколько операторов в блоке

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

Что такое цикл?
Цикл – это многократное выполнение одинаковых действий.
Два вида циклов:
цикл с известным числом шагов (сделать 10 раз)
цикл с неизвестным числом шагов (делать, пока не надоест)
Задача. Вывести на экран 10 раз слово «Привет».

Повторения в программе
writeln ('Привет');
writeln ('Привет');
writeln ('Привет');
...
writeln ('Привет');

Блок-схема цикла
начало
конец
да
нет
тело цикла

Как организовать цикл?
счётчик:= 0
пока счётчик < 10
writeln('привет');
увеличить счётчик на 1
счётчик:= 10
пока счётчик > 0
writeln('привет');
уменьшить счётчик на 1
✔
результат операции автоматически сравнивается с нулём!

Цикл с условием
Задача. Определить количество цифр в десятичной записи целого положительного числа, записанного в переменную n.
счётчик:= 0
пока n > 0
отсечь последнюю цифру n
увеличить счётчик на 1
n:= n div 10
счётчик:= счётчик + 1

Цикл с условием
count:= 0;
while do begin
end;
n:= n div 10;
count:= count + 1
тело цикла
начальное значение счётчика
n > 0
условие продолжения
заголовок цикла

Максимальная цифра числа
read(n);
M := -1;
while n > 0 do begin
d := n mod 10;
if d > M then
M := d;
n := n div 10
end;
writeln( M );
отсечь последнюю цифру
последняя цифра
пока остались цифры
поиск максимума
Задача. Определить максимальную цифру в десятичной записи целого положительного числа, записанного в переменную n.

Цикл с условием
k:= 0;
while k < 10 do begin
writeln('привет');
k:= k + 1
end;
При известном количестве шагов:
k:= 0;
while k < 10 do
writeln('привет');
Зацикливание:

Сколько раз выполняется цикл?
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;
зацикливание

Алгоритм Евклида
Алгоритм Евклида. Чтобы найти НОД двух натуральных чисел, нужно вычитать из большего числа меньшее до тех пор, пока они не станут равны. Это число и есть НОД исходных чисел.
НОД(14,21) = НОД(14,7) = НОД(7, 7) = 7
пока a <> b
если a > b то
a:= a - b
иначе
b:= b - a
while a <> b do
if a > b then
a:= a - b
else
b:= b – a;
НОД(1998,2) =
НОД(1996,2) = … = НОД(2, 2) = 2

Алгоритм Евклида
Модифицированный алгоритм Евклида. Заменять большее число на остаток от деления большего на меньшее до тех пор, пока меньшее не станет равно нулю. Другое (ненулевое) число и есть НОД чисел.
НОД(1998,2) = НОД(0,2) = 2
пока ???
если a > b то
a:= a mod b
иначе
b:= b mod a
a<>0 and b<>0
если a <> 0 то
вывести a
иначе:
вывести b
вывести a + b

Задачи
«3»: Ввести с клавиатуры два натуральных числа и найти их НОД с помощью алгоритма Евклида.
Пример:
Введите два числа:
21 14
НОД(21,14)=7
«4»: Ввести с клавиатуры два натуральных числа и найти их НОД с помощью модифицированного алгоритма Евклида. Заполните таблицу:

Задачи
«5»: Ввести с клавиатуры два натуральных числа и сравнить количество шагов цикла для вычисления их НОД с помощью обычного и модифицированного алгоритмов Евклида.
Пример:
Введите два числа:
1998 2
НОД(1998,2)=2
Обычный алгоритм: 998
Модифицированный: 1

Цикл с постусловием
repeat
until ;
условие окончания
заголовок цикла
write('Введите n > 0: ');
read(n)
n > 0
тело цикла
при входе в цикл условие не проверяется
цикл всегда выполняется хотя бы один раз
в последней строке указывают условие окончания цикла, а не условие его продолжения

Задачи
«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

Задачи
«C»: Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от ввода отрицательного числа N.
Пример:
Введите число N:
10000
Сумма 17710

Задачи-2
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.
«B»: Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.
Пример:
Введите натуральное число:
12342
Нет.
Пример:
Введите натуральное число:
12245
Да.

Задачи-2
«C»: Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом).
Пример:
Введите натуральное число:
12342
Да.
Пример:
Введите натуральное число:
12345
Нет.

Программирование на языке Паскаль
§ 58. Циклы по переменной

Цикл с переменной
Задача. Вывести все степени двойки от 21 до 210.
n:= 2;
while do
begin
writeln(n);
n:= n * 2;
end;
k:= 1;
k <= 10
k:= k + 1
n:= 2;
for do
begin
writeln(n);
n:= n * 2
end;
k:= 1 to 10

Цикл с переменной: другой шаг
for k:= 10 1 do
writeln(k*k);
downto
var k: integer;
целое
целое
шаг «–1»
for i:= 1 to 10 do begin
writeln(k*k);
end;
k:= 1;
k:= k + 2

Сколько раз выполняется цикл?
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

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

Задачи
«С»: Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например, 252 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.
Пример:
Введите N:
1000
1*1=1
5*5=25
6*6=36
25*25=625
76*76=5776

Вложенные циклы
Задача. Вывести все простые числа в диапазоне
от 2 до 1000.
для n от 2 до 1000
если число n простое то
writeln(n);
число n простое
нет делителей [2.. n-1]: проверка в цикле!

Вложенные циклы
for n:= 2 to 1000 do begin
count:= 0;
if count = 0 then
writeln(n)
end;
for k:= 2 to n-1 do
if n mod k = 0 then
count:= count + 1;
вложенный цикл

Вложенные циклы
for i:=1 to 4 do
for k:=1 to i do
writeln(i, ' ', k);
1 1
2 1
2 2
3 1
3 2
3 3
4 1
4 2
4 3
4 4

Поиск простых чисел: как улучшить?
count:= 0;
k:= 2;
while do begin
if n mod k = 0 then
count:= count + 1;
k:= k + 1
end;
while k <= sqrt(n) do begin
...
end;
while (k*k <= n) and
do begin
...
end;
k*k <= n
(count = 0)

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

Задачи
«C»: Ввести натуральное число N и вывести все натуральные числа, не превосходящие N и делящиеся на каждую из своих цифр.
Пример:
Введите N:
15
1 2 3 4 5 6 7 8 9 11 12 15

Программирование на языке Паскаль
§ 59. Процедуры

Зачем нужны процедуры?
writeln('Ошибка программы');
много раз!
program withProc;
var n: integer;
begin
read(n);
if n < 0 then Error;
...
end.
procedure Error;
begin
writeln('Ошибка программы')
end;
вызов процедуры

Что такое процедура?
Процедура – вспомогательный алгоритм, который выполняет некоторые действия.
текст (расшифровка) процедуры записывается
до основной программы
в программе может быть много процедур
чтобы процедура заработала, нужно вызвать её по имени из основной программы или из другой процедуры

Процедура с параметрами
Задача. Вывести на экран запись целого числа (0..255) в 8-битном двоичном коде.
много раз!
Алгоритм:
178
⇒
101100102
7 6 5 4 3 2 1 0
1 0 1 1 0 0 1 02
разряды
n:=
n div 128
n mod 128
n1 div 64

Процедура с параметрами
Задача. Вывести на экран запись целого числа (0..255) в 8-битном двоичном коде.
Алгоритм:
k:= 128;
while k > 0 do begin
write(n div k);
n:= n mod k;
k:= k div 2
end;
178
⇒
10110010

Процедура с параметрами
program binCode;
begin
printBin(99)
end.
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;
Параметры – данные, изменяющие работу процедуры.
локальная переменная
значение параметра
(аргумент)

Несколько параметров
procedure printSred(a: integer;
b: integer);
begin
write((a+b)/2);
end.
procedure printSred(a, b: integer);
begin
write((a+b)/2);
end.

Локальные и глобальные переменные
var a: integer;
procedure qq;
var a: integer;
begin a := 1;
writeln(a);
end;
begin
a:= 5;
qq;
writeln(a);
end.
глобальная переменная
5
procedure qq;
var a: integer;
begin
a:= 1;
writeln(a);
end;
локальная переменная
1

Неправильная процедура
var x, y: integer;
procedure xSum;
begin
writeln( x+y ) end;
begin
xSum()
end.
процедура связана с глобальными переменными, нельзя перенести в другую программу
печатает только сумму x и y, нельзя напечатать сумму других переменных или сумму x*y и 3x
procedure xSum;
begin
writeln( x+y )
end;
передавать данные через параметры

Правильная процедура
x = 5; y = 10;
Sum2( x, y );
z=17; w=3;
Sum2( z, w );
Sum2( z+x, y*w );
procedure Sum2(a, b: integer);
begin
writeln( a+b )
end;
a
b
x
y
z
w
5
10
17
3
22
30
15
20
52
Глобальные:
Локальные:
процедура не зависит от глобальных переменных
легко перенести в другую программу
печатает только сумму любых выражений

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

Задачи
«C»: Напишите процедуру, которая выводит на экран запись переданного ей числа в римской системе счисления.
Пример:
Введите натуральное число:
2013
MMXIII

Изменяемые параметры
Задача. Написать процедуру, которая меняет местами значения двух переменных.
program Exchange;
var x, y: integer;
begin
x:= 2; y:= 3;
Swap(x, y);
write(x, ' ', y)
end.
procedure Swap(a, b: integer);
var c: integer;
begin
c:= a; a:= b; b:= c;
end;
2 3
передача по значению

Изменяемые параметры
procedure Swap( a, b: integer);
var c: integer;
begin
c:= a; a:= b; b:= c;
end;
var
передача по ссылке
переменные могут изменяться
var a, b: integer;
...
Swap(a, b); { правильно }
Swap(2, 3); { неправильно }
Swap(a, b+3); { неправильно }
Вызов:

Задачи
«A»: Напишите процедуру, которая переставляет три переданные ей числа в порядке возрастания.
Пример:
Введите три натуральных числа:
10 15 5
5 10 15
«B»: Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры.
Пример:
Введите числитель и знаменатель дроби:
25 15
После сокращения: 5/3

Задачи
«C»: Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел и возвращает их через изменяемые параметры.
Пример:
Введите два натуральных числа:
10 15
НОД(10,15)=5
НОК(10,15)=30

Программирование на языке Паскаль
§ 60. Функции

Что такое функция?
Функция – это вспомогательный алгоритм, который возвращает значение-результат (число, символ или объект другого типа).

Что такое функция?
function lastDigit(n: integer): integer;
var d: integer;
begin
d := n mod 10;
lastDigit := d
end;
Задача. Написать функцию, которая вычисляет младшую цифру числа (разряд единиц).
lastDigit := d
передача результата
результат работы функции – значение d
{ вызов функции }
k := lastDigit( 1234 );
writeln( k );
integer;
тип результата

Что такое функция?
Задача. Написать функцию, которая вычисляет сумму цифр числа.
Алгоритм:
сумма:= 0;
while n <> 0 do begin
сумма:= сумма + n mod 10;
n:= n div 10
end;

Сумма цифр числа
program Sum;
begin
writeln(sumDigits(12345))
end.
function sumDigits(n: integer): ;
var sum: integer;
begin
sum:= 0;
while n <> 0 do begin
sum:= sum + n mod 10;
n:= n div 10;
end;
end;
sumDigits:= sum
передача результата
integer
тип результата

Использование функций
x:= 2*sumDigits(n+5);
z:= sumDigits(k) + sumDigits(m);
if sumDigits(n) mod 2 = 0 then begin
writeln('Сумма цифр чётная');
writeln('Она равна ', sumDigits(n))
end;

Задачи
«A»: Напишите функцию, которая находит наибольший общий делитель двух натуральных чисел.
Пример:
Введите два натуральных числа:
7006652 112307574
НОД(7006652,112307574) = 1234.
«B»: Напишите функцию, которая определяет сумму цифр переданного ей числа.
Пример:
Введите натуральное число:
123
Сумма цифр числа 123 равна 6.

Задачи
«C»: Напишите функцию, которая «переворачивает» число, то есть возвращает число, в котором цифры стоят в обратном порядке.
Пример:
Введите натуральное число:
1234
После переворота: 4321.

Логические функции
function even(n: integer): boolean;
begin
if n mod 2 = 0 then
even := True
else
even := False
end;
Логическая функция – это функция, возвращающая логическое значение (True/False).
even := (n mod 2 = 0);
read( k );
if even( k ) then
writeln( 'Число ', k, ' чётное.' )
else
writeln( 'Число ', k, ' нечётное.' );

Логические функции
Задача. Найти все простые числа в диапазоне
от 2 до 100.
program PrimeNum;
var i: integer;
begin
for i:=2 to 100 do
if then
writeln(i)
end.
i - простое
функция, возвращающая логическое значение (True/False)
isPrime(i)

Функция: простое число или нет?
function isPrime(n: integer): ;
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;
k:= k + 1
end;
end;
boolean
логическое значение (True/False)
isPrime:= (count = 0)
if count = 0 then
isPrime:= True
else isPrime:= False

Логические функции: использование
read(n);
while isPrime(n) do begin
writeln('простое число');
read(n)
end;

Задачи
«A»: Напишите логическую функцию, которая определяет, является ли переданное ей число совершенным, то есть, равно ли оно сумме своих делителей, меньших его самого.
Пример:
Введите натуральное число:
28
Число 28 совершенное.
Пример:
Введите натуральное число:
29
Число 29 не совершенное.

Задачи
«B»: Напишите логическую функцию, которая определяет, являются ли два переданные ей числа взаимно простыми, то есть, не имеющими общих делителей, кроме 1.
Пример:
Введите два натуральных числа:
28 15
Числа 28 и 15 взаимно простые.
Пример:
Введите два натуральных числа:
28 16
Числа 28 и 16 не взаимно простые.

Задачи
«С»: Простое число называется гиперпростым, если любое число, получающееся из него откидыванием нескольких цифр, тоже является простым. Например, число 733 – гиперпростое, так как и оно само, и числа 73 и 7 – простые. Напишите логическую функцию, которая определяет, верно ли, что переданное ей число – гиперпростое. Используйте уже готовую функцию isPrime, которая приведена в учебнике.
Пример:
Введите натуральное число:
733
Число 733 гиперпростое.
Пример:
Введите натуральное число:
19
Число 19 не гиперпростое.

Программирование на языке Паскаль
§ 61. Рекурсия

Что такое рекурсия?
У попа была собака, он её любил,
Она съела кусок мяса, он её убил,
В землю закопал,
Надпись написал:
У попа была собака, он её любил,
Она съела кусок мяса, он её убил,
В землю закопал,
Надпись написал:
…

Что такое рекурсия?
Натуральные числа:
индуктивное определение
Рекурсия — это способ определения множества объектов через само это множество на основе заданных простых базовых случаев.
Числа Фибоначчи:
1, 1, 2, 3, 5, 8, 13, 21, 34, …

Фракталы
Фракталы – геометрические фигуры, обладающие самоподобием.
Треугольник Серпинского:

Ханойские башни
за один раз переносится один диск
класть только меньший диск на больший
третий стержень вспомогательный
перенести (n-1, 1, 2)
1 -> 3
перенести (n-1, 2, 3)
перенести (n, 1, 3)

Ханойские башни – процедура
procedure Hanoi(n, k, m: integer);
var p: integer;
begin
p := 6 - k – m;
Hanoi(n-1, k, p);
writeln(k, ' -> ', m);
Hanoi(n-1, p, m)
end;
номер вспомогательного стержня (1+2+3=6!)
сколько
откуда
куда
рекурсия
рекурсия

Ханойские башни – процедура
Рекурсивная процедура (функция) — это процедура (функция), которая вызывает сама себя напрямую или через другие процедуры и функции.
procedure Hanoi(n, k, m: integer);
var p: integer;
begin
p := 6 - k – m;
Hanoi(n-1, k, p);
writeln(k, ' -> ', m);
Hanoi(n-1, p, m)
end;
if n = 0 then exit;
условие выхода из рекурсии
program HanoiTower;
...
begin
Hanoi(4, 1, 3)
end.

Вычисление суммы цифр числа
Задача. Написать рекурсивную функцию, которая вычисляет сумму цифр числа.
s:= sumDigits( 1234 );
n div 10
n mod 10
sumDigits( n )= sumDigits( n div 10 )+(n mod 10)
sumDigits( n )= n для n < 10
n

Вычисление суммы цифр числа
function sumDigits(n: integer): integer;
var sum: integer;
begin
sum:= n mod 10;
if n >= 10 then
sum:= sum + sumDigits( n div 10 );
sumDigits:= sum
end;
рекурсивный вызов
последняя цифра
sumDigits( 1234 )
4 + sumDigits( 123 )
4 + 3 + sumDigits( 12 )
4 + 3 + 2 + sumDigits( 1 )
4 + 3 + 2 + 1

Вычисление суммы цифр числа
sumDigits ( 123 )
sum:= 3 + sumDigits ( 12 )
sumDigits:= 6 ;
sumDigits ( 12 )
sum:= 2 + sumDigits ( 1 )
sumnDigits:= 3 ;
sumDigits ( 1 )
sumDigits:= 1 ;

Вывод двоичного кода числа
procedure printBin(n: integer);
begin
if n = 0 then exit; printBin ( n div 2 );
write( n mod 2 )
end;
условие выхода из рекурсии
напечатать все цифры, кроме последней
вывести последнюю цифру
10011
printBin( 19 )
printBin( 9 )
printBin( 4 )
printBin( 2 )
printBin( 1 )
printBin( 0 )
Задача. Написать рекурсивную процедуру, которая выводит двоичную запись числа.

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

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

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

Как работает рекурсия?
function Fact(N: integer): integer;
begin
writeln('-> N = ', N);
if N <= 1 then
Fact:= 1
else Fact:= N * Fact(N-1);
writeln('<- N = ', N)
end;
-> N = 3
-> N = 2
-> N = 1
<- N = 1
<- N = 2
<- N = 3
Факториал:

Стек
Стек – область памяти, в которой хранятся локальные переменные и адреса возврата.
Fact(3)
Fact(2)
Fact(1)
значение параметра
адрес возврата
локальная переменная

Рекурсия – «за» и «против»
с каждым новым вызовом расходуется память в стеке (возможно переполнение стека)
затраты на выполнение служебных операций при рекурсивном вызове
программа становится более короткой и понятной
возможно переполнение стека
замедление работы
function Fact(N: integer):
integer;
var i, F: integer;
begin
F:= 1;
for i:= 1 to N do
F:= F * i;
Fact:= F
end;
итерационный алгоритм

Анализ рекурсивных функций
Задача. Определите f(5).
function f( x: integer ): integer;
begin
if x < 3 then
f := 1
else
f := f( x-1 ) + 2
end;
Метод подстановки:
f(5) = f(4) + 2
f(4) = f(3) + 2
f(3) = f(2) + 2
f(2) = 1
= 3 + 2 = 5
= 1 + 2 = 3
линейная структура

Анализ рекурсивных функций
Задача. Определите f(5).
function f( x: integer ): integer;
begin
if x < 3 then
f := 1
else
f := f(x-1) + 2*f(x-2)
end;
дерево
3
3
5
11

Анализ рекурсивных функций
Чему равно f (5)?
Табличный метод :
11
f(3) = f(2) + 2*f(1) = 3
f(4) = f(3) + 2*f(2) = 5
f(5) = f(4) + 2*f(3) = 11

Анализ рекурсивных функций
Задача. Сколько звёздочек выводится при вызове f(11)?
procedure g(x: integer); forward;
procedure f(x: integer);
begin
if x > 0 then g(x-1)
end;
procedure g(x: integer);
begin
write('*');
if x > 1 then f(x-3)
end;

Анализ рекурсивных функций
Задача. Сколько звёздочек выводится при вызове f(9)?
procedure g(x: integer); forward;
procedure f(x: integer);
begin
if x > 0 then begin
g( x-1 );
f( x-2 )
end;
write( '*' );
end;
procedure g(x: integer);
begin
write( '*' );
if x > 1 then f(x-3);
end;

Анализ рекурсивных функций
f (1) = g(0) + f (–1) + 1 = 3
f (2) = g(1) + f (0) + 1 = 3
g (2) = 1 + f (–1) = 2

Конец фильма
ПОЛЯКОВ Константин Юрьевич
д.т.н., учитель информатики
ГБОУ СОШ № 163, г. Санкт-Петербург
[e-mail]
ЕРЕМИН Евгений Александрович
к.ф.-м.н., доцент кафедры мультимедийной дидактики и ИТО ПГГПУ, г. Пермь
[e-mail]