Программирование (Паскаль). Введение. § 17

Программирование (Паскаль)

§ 17. Введение

Что такое программирование?

Программирование — это создание программ для компьютеров. Этим занимаются

Направления в программировании

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

program qq;
begin { начало программы }
{ тело программы }
end.

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

program Hello;
begin
write('Привет!');
end.

оператор вывода

Оператор — это команда языка программирования.

write('Привет',

Переход на новую строку

write('Привет, Вася!');
write('Привет, Петя!');

ожидание:

реальность:

Привет, Вася!
Привет, Петя!

Привет, Вася!Привет, Петя!

решение:

writeln('Привет, Вася!');
writeln('Привет,

Системы программирования

Системы программирования — это средства для создания новых программ.

Транслятор —

Системы программирования

Отладчик — это программа для поиска ошибок в других программах.

пошаговый

Задачи

«B»: Вывести на экран текст «лесенкой»
Вася
пошел
гулять
«C»: Вывести на

Программирование (Паскаль)

§ 18. Линейные программы

Пример задачи

Задача. Ввести два числа и вычислить их сумму.

program Sum;
begin
{

Зачем нужны переменные?

program Sum;
begin
{ ввести два числа }
{ вычислить

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

Идентификатор — это имя программы или переменной.

var a, b, c:

Работа с переменными

Присваивание (запись значения)

a := 5;

:=

оператор присваивания

a := 5;
a :=

Работа с переменными

Изменение значения

i:= i + 1;

увеличить на 1

a:= 4;
b:=

Ввод с клавиатуры

Цель – изменить исходные данные, не меняя программу.

read(a);

5

a

Ввод с клавиатуры

через пробел:
25 30
через Enter:
25
30

read(a, b);

Программа сложения чисел

program Sum;
var a, b, c: integer;
begin
read(a, b); {

write(данных с текстом

5+7=12

значение a

значение с

значение b

write(a);
write('+');
write(b);
write('=');
write(c);

write(a, '+', b, '=', c);

Программа сложения чисел

program Sum;
var a, b, c: integer;
begin
write('Введите два числа:

Задачи

«A»: Ввести три числа, найти их сумму.
Пример:
Введите три числа:

Задачи

«C»: Ввести три числа, найти их сумму, произведение и среднее арифметическое.

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

Линейная запись (в одну строку):

a:=(c+b-1)/2*d;

Операции:

+ –
* – умножение
/

Порядок выполнения операций

действия в скобках
возведение в степень
умножение и деление, слева направо
сложение

Частное и остаток

div – деление нацело (остаток отбрасывается)
mod – остаток от

Частное и остаток

n:= 123
d:= n div 10; { 12 }
k:=

Форматный вывод

var a, b, c: integer;
a:=1; b:=2; c:=3;
write(a, b, c);

123

write(a,' ',b,'

Задачи

«A»: Ввести число, обозначающее количество секунд. Вывести то же самое время

Задачи

«С»: Занятия в школе начинаются в 8-30. Урок длится 45 минут,

Форматный вывод

var x: real;
x:=12.34567891234;
write(x);

12.345679

6

по умолчанию

write(x:10:3);

12.346

3

10

всего на число

в дробной части

write(x:8:2);

12.34

write(x:2:2);

12.34

write(x:0:1);

12.3

минимально

Научный формат чисел

var x: real;
x:=123456789;
write(x);

1.234568e+008

1,234568 ⋅108

var x: real;
x:=0.0000123456789;
write(x);

1.234568e-005

1,234568 ⋅10–5

количество знаков может

Операции с вещественными числами

x:= 1.6;
write(trunc(x));

trunc – целая часть числа (дробная часть

Операции с вещественными числами

sqrt – квадратный корень

x:= 2.25;
write(sqrt(x));

1.5

Операции с вещественными числами

1/3 = 0,33333…

бесконечно много знаков

var x, y,

Задачи

«A»: Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, сколько

Задачи

«B»: Оцифровка звука выполняется в режиме стерео с частотой дискретизации 44,1

Задачи

«С»: Разведчики-математики для того, чтобы опознать своих, используют числовые пароли. Услышав

Случайные и псевдослучайные числа

Случайные явления
встретил слона – не встретил слона
жеребьёвка

Случайные и псевдослучайные числа

Псевдослучайные числа — похожи на случайные, но строятся

Датчик случайных чисел

Целые числа на отрезке:

цел K, L
K:= irand(1, 6)

Датчик случайных чисел

Целые числа на отрезке:

var K, L, M: integer;
K:=

Задачи

«A»: В игре «Русское лото» из мешка случайным образом выбираются бочонки,

Задачи

«С»: + Игральный кубик бросается три раза (выпадает три случайных значения).

Задачи

«D»: + Получить случайное трёхзначное число и вывести в столбик его

Программирование (Паскаль)

§ 19. Ветвления

Выбор наибольшего из двух чисел

полная форма ветвления

if a > b then

Вариант 1. Программа

program Maximum; var a, b, M: integer; begin
writeln('Введите два целых

Выбор наибольшего из двух чисел-2

неполная форма ветвления

Вариант 2. Программа

program Maximum2;
var a, b, M: integer;
begin writeln('Введите два целых

Примеры

if a < b then
M:= a;
if b < a

В других языках программирования

С:

if (a < b) {
c = a;

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

Задача. В переменной a записан возраст Антона, а в

Задачи

«A»: Ввести два целых числа, найти наибольшее и наименьшее из

Задачи

«C»: Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из

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

Задача. Фирма набирает сотрудников от 25 до 40 лет включительно.

Плохое решение

program Work;
var v: integer;
begin
writeln('Введите ваш возраст');
read(v);
if v

Хорошее решение (операция «И»)

program Work;
var v: integer;
begin
writeln('Введите ваш возраст');
read(v);

Примеры

Задача. Вывести 'Да', если число в переменной a – двузначное.

if (10

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

Задача. Самолёт летает по понедельникам и четвергам. Ввести номер дня

Ещё пример

Задача. Фирма набирает сотрудников от 25 до 40 лет включительно.

Простые и сложные условия

Простые условия (отношения)
< <= > >= =

Порядок выполнения операций

выражения в скобках
НЕ (not)
И (and)
ИЛИ (or), исключающее ИЛИ (xor)

1

if

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

Истинно или ложно при a := 2; b := 3;

Задачи

«A»: Напишите программу, которая получает три числа - рост трёх спортсменов,

Задачи

«B»: Напишите программу, которая получает номер месяца и выводит соответствующее ему

Задачи

«C»: Напишите программу, которая получает возраст человека (целое число, не превышающее

Логические переменные

var b: boolean;
...
b:= True; { 1 }
b:= False; { 0

Задачи

«A»: Напишите программу, которая получает с клавиатуры целое число и записывает

Задачи

«B»: Напишите программу, которая получает с клавиатуры трёхзначное число и записывает

Задачи

«С»: Напишите программу, которая получает с клавиатуры трёхзначное число и записывает

Экспертная система

Экспертная система — это компьютерная программа, задача которой — заменить

Дерево решений

хищник

?

птица

да

да

нет

нет

млекопитающее

Кормит детей молоком?

Имеет перья?

Ест мясо?

?

да

нет

Программирование экспертной системы

Ответы пользователя: да и нет – символьные строки.

var otvet:

Заглавные и строчные буквы

var otvet: string;
...
if otvet = 'да' then
...

Программирование (Паскаль)

§ 23. Отладка программ

Виды ошибок

Синтаксические ошибки – нарушение правил записи операторов языка программирования.

Обнаруживаются транслятором.

Логические

Пример отладки программы

program SqEq;
var a, b, c, D, x1, x2: real;
begin

Тестирование

Тест 1. a = 1, b = 2, c = 1.

x1=-1.0

Отладочная печать

read(a, b, c);
write(a, ' ', b, ' ', c, нс
D:=b*b-4*a*a;
write('D=',

Отладка программы

Тест 1. a = 1, b = 2, c =

Задачи

«A»: Загрузите программу, которая должна вычислять сумму цифр трёхзначного числа:
var N,

Задачи

«B»: Доработайте программу из п. А так, чтобы она правильно работала

Задачи

«С»: Загрузите программу, которая должна вычислять наибольшее из трёх чисел:
var a,

Программирование (Паскаль)

§ 20. Программирование циклических алгоритмов

Зачем нужен цикл?

Задача. Вывести 5 раз «Привет!».

writeln('Привет');
writeln('Привет');
writeln('Привет');
writeln('Привет');
writeln('Привет');

Цикл «N раз»:

{ сделай 5

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

{счётчик:= 0 }
{пока счётчик < 5 }
writeln('Привет');
{счётчик:=

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

count:= 5;
while count > ??? do begin
writeln('Привет');
count:=

Цикл с предусловием

условие проверяется при входе в цикл
как только условие становится

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

Задача. Вычислить сумму цифр введённого числа.
123 → 1

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

выделяем последнюю цифру числа (mod)
увеличиваем сумму на значение цифры

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

начало

конец

нет

да

N <> 0?

sum:= 0

d:= N mod 10;
sum:= sum +

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

program SumDigits;
var N, d, sum: integer;
begin
writeln('Введите целое число');

Задачи

«A»: Напишите программу, которая получает с клавиатуры количество повторений и выводит

Задачи

«C»: Напишите программу, которая получает с клавиатуры натуральное число и находит

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

Задача. Найти наибольший общий делитель (НОД) двух натуральных чисел.

Евклид
(365-300 до.

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

a = b?

да

нет

a > b?

да

a:=a-b

нет

b:=b-a

начало

конец

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

while a <> b do
if a > b then

Модифицированный алгоритм Евклида

НОД(a,b)= НОД(mod(a,b), b)
= НОД(a, mod(b,a))

Заменяем большее из

Модифицированный алгоритм

while (a <> 0) and (b <> 0) do
if

В других языках программирования

while a!=0 and b!=0:
if a > b:

Задачи

«A»: Ввести с клавиатуры два натуральных числа и найти их НОД

Задачи

«C»: Ввести с клавиатуры два натуральных числа и сравнить количество шагов

Обработка потока данных

Задача. На вход программы поступает поток данных — последовательность

Обработка потока данных

var x, sum: integer;
...
sum:= 0;
read(x); { ввести первое число

Задачи

«A»: На вход программы поступает неизвестное количество чисел целых, ввод заканчивается

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

условие проверяется после завершения очередного шага цикла
цикл всегда выполняется

Задачи

«A»: Напишите программу, которая предлагает ввести пароль и не переходит к

Задачи

«D»: Напишите программу, которая получает с клавиатуры натуральное число и вычисляет

Цикл по переменной

Задача. Вывести на экран степени числа 2 от 21

Цикл по переменной

Задача. Найти сумму чисел от 1 до 1000.

var sum,

Цикл по переменной

Задача. Найти сумму чётных чисел от 2 до 1000.

sum:=

В других языках программирования

Sum = 0
for i in range(1, 1001):
Sum

Задачи

«A»: Ипполит задумал трёхзначное число, которое при делении на 15 даёт

Программирование (Паскаль)

§ 21. Массивы

Что такое массив?

Массив – это группа переменных одного типа, расположенных в

Выделение памяти (объявление)

var A: array[1..5] of integer;
V: array[0..5] of real;

Что неправильно?

var A: array[10..1] of integer;
...
A[5] := 4.5;

[1..10]

var A: array[1..10] of

Обращение к элементу массива

A

массив

3

15

НОМЕР элемента массива
(ИНДЕКС)

A[1]

A[2]

A[3]

A[4]

A[5]

ЗНАЧЕНИЕ элемента массива

A[2]

НОМЕР (ИНДЕКС) элемента массива:

Обращение к элементу массива

var i: integer;
i:= 2;
A[3]:= A[i] + 2*A[i-1] +

Что неверно?

var A: array[1..5] of integer;
x: integer;
...
x:= 2;
writeln( A[x-3] );
A[x+4]:=A[x-1]+A[2*x];

writeln( A[-1]

Перебор элементов массива

Перебор элементов: просматриваем все элементы массива и, если нужно,

Заполнение массива

for i:=1 to N do
A[i]:= i;

В развёрнутом виде

A[1]:= 1;
A[2]:=

X:= N;

Заполнение массива в обратном порядке

A[1]:= N;
A[2]:= N-1;
A[3]:= N-2;
...
A[N]:= 1;

for i:=1

Заполнение массива в обратном порядке

A[i]:= X;

–1

+1

i + X =

Вывод массива на экран

for i:=1 to N do
write( A[i]

Ввод с клавиатуры

for i:=1 to N do begin
write( 'A[',i,']=' );

В других языках программирования

С++:

int A[N], i;
for (i = 0; i <

Задачи

«A»: а) Заполните все элементы массива из 10 элементов значением X

Задачи

«C»: а) Заполните массив из 10 элементов степенями числа 2, начиная

Заполнение случайными числами

for i:=1 to N do begin
A[i]:=20+random(81);
write(A[i], '

Задачи-2

«A»: Напишите программу, которая заполняет массив из 10 элементов случайными числами

Задачи-2

«C»: Напишите программу, которая заполняет массив из 10 элементов случайными числами

Программирование (Паскаль)

§ 22. Алгоритмы обработки массивов

Сумма элементов массива

sum:= 0;
for i:=1 to N do
sum:= sum +

Сумма не всех элементов массива

sum:= 0;
for i:=1 to N do
sum:=

Задачи

«A»: Напишите программу, которая заполняет массив из 10 элементов случайными числами

Подсчёт элементов по условию

Задача. Найти количество чётных элементов массива.

var count: integer;
count:=

Среднее арифметическое

Задача. Найти среднее арифметическое элементов массива, которые больше 180 (рост

Среднее арифметическое

Задача. Найти среднее арифметическое элементов массива, которые больше 180 (рост

Задачи

«A»: Напишите программу, которая заполняет массив из 20 элементов случайными числами

Обработка потока данных

Задача. С клавиатуры вводятся числа, ввод завершается числом 0.

Обработка потока данных

var x, count: integer;
count: = 0;
read( x );
while x

Найди ошибку!

var x, count: integer;
count: = 0;
read( x );
while x <>

Найди ошибку!

var x, count: integer;
count: = 0;

read( x );
while x =

Обработка потока данных

Задача. С клавиатуры вводятся числа, ввод завершается числом 0.

Обработка потока данных

Задача. С клавиатуры вводятся числа, ввод завершается числом 0.

Найди ошибку!

var x, sum: integer;
sum: = 0;
read( x );

while x <>

Задачи

«A»: На вход программы поступает неизвестное количество целых чисел, ввод заканчивается

Задачи

«C»: На вход программы поступает неизвестное количество целых чисел, ввод заканчивается

Перестановка элементов массива

с:= a;
a:= b;
b:= c;

элементы массива:

с:= A[i];
A[i]:= A[k];
A[k]:= c;

Перестановка пар соседних элементов

Задача. Массив A содержит чётное количество элементов N.

Перестановка пар соседних элементов

for i:=1 to N do begin
поменять местами

Перестановка пар соседних элементов

i:= 1;
while i < N do begin

Реверс массива

Задача. Переставить элементы массива в обратном порядке (выполнить реверс).

A[1]↔A[N]
A[2]↔A[N-1]
A[i]↔A[N+1-i]
A[N]↔A[1]

1+N

Реверс массива

for i:=1 to N do begin
поменять местами A[i] и

Конец фильма

ПОЛЯКОВ Константин Юрьевич
д.т.н., учитель информатики
ГБОУ СОШ № 163, г. Санкт-Петербург
kpolyakov@mail.ru