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

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

Особенности:

• условие пересчитывается каждый раз при входе в цикл если условие на входе в цикл ложно, цикл не выполняется ни разу если условие никогда не станет ложным, программа зацикливается
• условие пересчитывается каждый раз при входе в цикл
• если условие на входе в цикл ложно, цикл не выполняется ни разу
• если условие никогда не станет ложным, программа зацикливается

a := 4; b := 6;

while a b d o

a := a – b;

a := 4; b := 6;

while a

d := a + b;

36

b d o a := a + 1; 1 раз b = -2 a := 4; b := 6; while a зацикливание a := 4; b := 6; while a

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

2 раза

a = 6

a := 4; b := 6;

while a

1 раз

a = 10

a := 4; b := 6;

while a

0 раз

a = 4

a := 4; b := 6;

while a b d o a := a + 1;

1 раз

b = -2

a := 4; b := 6;

while a

зацикливание

a := 4; b := 6;

while a

Цикл WHILE

Задача: Ввести целое число (

Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик.

Проблема: Неизвестно, сколько шагов надо сделать.

Решение: Надо остановиться, когда n = 0 , т.е. надо делать "пока n 0 ".

n

count

123

0

12

1

1

2

0

3

Алгоритм

начало

ввод n

обнулить счетчик цифр

count := 0 ;

выполнять " пока n 0 "

n 0?

нет

да

count

count := count + 1;

n := n div 10;

конец

Программа

uses crt ;

var n, count: integer;

Begin

clrscr;

writeln(' Введите целое число ');

read(n);

count := 0;

while n 0 do begin

count := count + 1;

n := n div 10;

end;

writeln(' В числе ' , n, ' нашли ',

count, ' цифр ' );

readkey;

end.

, n1: integer;

выполнять " пока n 0 "

n1 := n;

n1,

?

Какая ошибка ?

44

= b d o begin { тело цикла } i := i - 1; end; for i:=a downto b d o begin { тело цикла } end; Замена цикла for на while возможна всегда . Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла . 44" width="640"

Замена for на while и наоборот

i := 1;

while i

{ тело цикла }

i := i + 1;

end;

for i:=1 to 10 d o begin

{ тело цикла }

end;

i := a;

while i = b d o begin

{ тело цикла }

i := i - 1;

end;

for i:=a downto b d o

begin

{ тело цикла }

end;

Замена цикла for на while возможна всегда .

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла .

44

Задания для самостоятельной работы

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

2. Напечатать таблицу умножения на

введенное с клавиатуры число,

например ввели 7

7х1=7

7х2=14

…… .

7х9=63

44

проверку условия цикла надо делать в конце цикла (цикл с постусловием ). 44" width="640"

Цикл с постусловием ( цикл REPEAT)

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

Особенность: Один раз тело цикла надо сделать в любом случае = проверку условия цикла надо делать в конце цикла (цикл с постусловием ).

44

0? нет условие ВЫХОДА да основной алгоритм блок "типовой процесс" конец 44" width="640"

Цикл с постусловием: алгоритм

начало

ввод n

тело цикла

n 0?

нет

условие ВЫХОДА

да

основной алгоритм

блок "типовой процесс"

конец

44

0; ... { основной алгоритм } end. условие ВЫХОДА until n 0 ; Особенности: тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла 44" width="640"

Программа

program qq;

var n: integer;

begin

repeat

writeln(' Введите положительное число ');

read(n);

until n 0;

... { основной алгоритм }

end.

условие ВЫХОДА

until n 0 ;

Особенности:

• тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла
• тело цикла всегда выполняется хотя бы один раз
• после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

44

Задания для самостоятельной работы

1. Составить программу , запрашивающую числа до тех пор, пока не ввели числа большего 50 .

2. Составить программу , печатающую слово « Привет » и запрашивающую

« Повторить Д / Н ?». Программа завершает выполнение в случае нажатия Н ,

если Д, то повторяет .

44

Оператор выбора CASE

Особенности:

• после case может быть имя переменной или арифметическое выражение целого типа ( integer )
• после case может быть имя переменной или арифметическое выражение целого типа ( integer )

или символьного типа ( char )

• или символьного типа ( char )

case i+3 of

1: begin a := b; end;

2: begin a := c; end;

end;

var c: char;

...

case c of

' а ': writeln(' Антилопа ');

' б ': writeln(' Барсук ');

else writeln(' Не знаю ');

end;

44

Оператор выбора

Особенности:

• если нужно выполнить только один оператор, слова begin и end можно не писать нельзя ставить два одинаковых значения
• если нужно выполнить только один оператор, слова begin и end можно не писать
• нельзя ставить два одинаковых значения

case i+3 of

1: a := b;

2 : a := c;

end;

case i+3 of

1: a := b;

1: a := c;

end;

52

Оператор выбора

Особенности:

• значения, при которых выполняются одинаковые действия, можно группировать
• значения, при которых выполняются одинаковые действия, можно группировать

case i of

1: a := b;

2,4 ,6 : a := c;

10..15: a := d;

20,21,25..30: a := e;

else writeln(' Ошибка ');

end;

перечисление

диапазон

смесь

52

Оператор выбора CASE

Задача: Ввести номер месяца и вывести количество дней в этом месяце.

Решение: Число дней по месяцам:

28 дней – 2 (февраль)

30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь)

31 день – 1 (январь), 3 (март), 5 (май), 7 (июль), 8 (август), 10 (октябрь), 12 (декабрь)

• 28 дней – 2 (февраль) 30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь) 31 день – 1 (январь), 3 (март), 5 (май), 7 (июль), 8 (август), 10 (октябрь), 12 (декабрь)

Особенность: Выбор не из двух, а из нескольких вариантов в зависимости от номера месяца.

52

Алгоритм

начало

ввод M

да

M = 1?

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

D := 31;

нет

да

M = 2?

D := 28;

нет

да

M = 12?

D := 31;

нет

вывод D

ошибка

ни один вариант не подошел

конец

52

0 then writeln(' В этом месяце ', D, ' дней. ') else writeln(' Неверный номер месяца '); readkey; end. ни один вариант не подошел 52" width="640"

Программа

uses crt ;

var M, D: integer;

begin

clrscr;

writeln(' Введите номер месяца: ');

read ( M );

case M of

2: begin D := 28; end;

4,6,9,11: begin D := 30; end;

1,3,5,7,8,10,12: D := 31;

else D := -1;

end;

if D 0 then

writeln(' В этом месяце ', D, ' дней. ')

else

writeln(' Неверный номер месяца ');

readkey;

end.

ни один вариант не подошел

52

Задания для самостоятельной работы

1. По введенному номеру от 1 до 7 определить день недели- например 1 – Понедельник и т.д.

2. Ставить программу , запрашивающую возраст и при введении до 15 включительно - говорит «Привет», от 16 до 20 говорит «друг», и говорит «Пока» в противном случае.

52

Процедуры

Процедура – это вспомогательный алгоритм, который предназначен для выполнения какой-то законченной последовательности действий.

• Для исполнения подпрограммы процедуры необходимо сначала описать ее, а потом к ней обращаться Описание процедуры включает заголовок (имя) и тело процедуры Заголовок состоит из зарезервированного слова procedure , имени процедуры и заключенных в скобки списка формальных параметров с указанием типа
• Для исполнения подпрограммы процедуры необходимо сначала описать ее, а потом к ней обращаться
• Описание процедуры включает заголовок (имя) и тело процедуры
• Заголовок состоит из зарезервированного слова procedure , имени процедуры и заключенных в скобки списка формальных параметров с указанием типа

52

Процедуры

Особенности:

• в процедуре можно объявлять дополнительные локальные переменные, остальные процедуры не имеют к ним доступа
• в процедуре можно объявлять дополнительные локальные переменные, остальные процедуры не имеют к ним доступа

program qq;

procedure A (x, y: integer);

var a, b: real;

begin

a := (x + y)/6;

...

end;

begin

...

end.

локальные переменные

52

y then z:=x else z:=y end ; begin clrscr ; write (‘введите 4 числа:’); readln (a,b,c,d); bid (a,b,p); bid (c,d,q); bid (p,q,m); writeln (‘наибольшее из 4-х чисел’; m); readkey ; end . 52" width="640"

Процедуры

Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахождения наибольшего из 2-х чисел

program max;

uses crt;

var a,b,c,d,p,q,m: integer;

procedure bid(x,y: real; var z: real);

begin

if xy then z:=x else z:=y

end ;

begin

clrscr ;

write (‘введите 4 числа:’);

readln (a,b,c,d);

bid (a,b,p);

bid (c,d,q);

bid (p,q,m);

writeln (‘наибольшее из 4-х чисел’; m);

readkey ;

end .

52

Функции

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

Примеры :

• вычисление , , расчет значений по сложным формулам ответ на вопрос (простое число или нет?)
• вычисление , ,
• расчет значений по сложным формулам
• ответ на вопрос (простое число или нет?)

Отличия

• в заголовке в теле функции: хотя бы раз имени функции должно быть присвоено значение
• в заголовке
• в теле функции: хотя бы раз имени функции должно быть присвоено значение

52

Функции

Особенности:

• заголовок начинается словом function формальные параметры описываются так же, как и для процедур в конце заголовка через двоеточие указывается тип результата функции располагаются ВЫШЕ основной программы
• заголовок начинается словом function
• формальные параметры описываются так же, как и для процедур
• в конце заголовка через двоеточие указывается тип результата
• функции располагаются ВЫШЕ основной программы

Max (a, b: integer): integer;

function

function qq( a, b: integer; x: real ): real;

a, b: integer; x: real

function Max (a, b: integer): ;

integer

62

Функции

Особенности:

• можно объявлять и использовать локальные переменные значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции ; объявлять ее НЕ НАДО :
• можно объявлять и использовать локальные переменные
• значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции ; объявлять ее НЕ НАДО :

function qq (a, b: integer): float;

begin

...

end;

var x, y: float;

function Max (a, b: integer): integer;

begin

...

end;

Max := a;

63

y then bid :=x else bid :=y end ; begin clrscr ; write (‘введите 4 числа:’); readln(a,b,c,d ); p:= bid(a,b); q:= bid(c,d); m:= bid(p,q); writeln (‘наибольшее из 4-х чисел’;m); readkey ; end . 63" width="640"

Функции

Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахождения наибольшего из 2-х чисел

program max;

uses crt;

var a,b,c,d,p,q,m: integer;

function bid(x,y: real ) : real;

begin

if xy then bid :=x else bid :=y

end ;

begin

clrscr ;

write (‘введите 4 числа:’);

readln(a,b,c,d );

p:= bid(a,b);

q:= bid(c,d);

m:= bid(p,q);

writeln (‘наибольшее из 4-х чисел’;m);

readkey ;

end .

63

Массивы

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

Особенности:

• все элементы имеют один тип весь массив имеет одно имя все элементы расположены в памяти рядом
• все элементы имеют один тип
• весь массив имеет одно имя
• все элементы расположены в памяти рядом

Примеры:

• список учеников в классе квартиры в доме школы в городе данные о температуре воздуха за год
• список учеников в классе
• квартиры в доме
• школы в городе
• данные о температуре воздуха за год

63

Объявление массивов

• определить имя массива определить тип массива определить число элементов выделить место в памяти
• определить имя массива
• определить тип массива
• определить число элементов
• выделить место в памяти

Массив целых чисел:

Размер через константу:

тип

элементов

конечный индекс

начальный индекс

имя

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

var A: array[1.. ] of integer ;

const N=5;

N

66

Массивы

Объявление:

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

Поэлементные операции:

const N = 5;

var a: array[1..N] of integer;

i: integer;

for i:=1 to N do begin

write('a[', i, ']=');

read ( a[i] );

end;

for i:=1 to N do a[i]:=a[i]*2;

66

Массивы

Задача: Заполнить массив из 5 элементов с клавиатуры и вывести на экран сумму 2 и 5 элементов

uses crt;

var i,sum: integer; a: array[1..5] of integer;

begin

clrscr;

for i:=1 to 5 do

begin

write(‘ Введите ’, i, ‘ элемент ’); read (a[i]);

end;

sum:=a[2]+a[5];

write(‘ Сумма 2 и 5 равна ’, sum);

readkey;

end.

66

Задания для самостоятельной работы

1. Заполнить массив из 5 элементов и вывести на печать сначала все, ниже третий.

2. Заполнить массив из 5 элементов с клавиатуры и найти их среднее арифметическое.

66

Строковые величины

Строка – это последовательность символов кодовой таблице.

Длина строки (количества символов) может лежать в диапазоне 0..255

Для определения длины данных строкового типа используется идентификатор string , за которым следует максимальное значение длины строки данного типа.

В программе значения переменных и констант типа char (символьный) заключается в апострофы.

Например, st := ’ река ’

var s: string[20];

66

Символьные строки

Задача: ввести строку с клавиатуры и заменить все буквы "а" на буквы "б".

program qq;

var s: string;

i: integer;

begin

writeln(' Введите строку ');

readln(s);

for i:=1 to Length(s) do

if s[i] = ' а ' then s[i] := ' б ';

writeln(s);

end.

ввод строки

длина строки

readln(s);

Length(s)

writeln(s);

вывод строки

66

Операции со строками

var s, s1, s2: string;

Запись нового значения:

s := ' Вася ';

Объединение: добавить одну строку в конец другой.

s1 := ' Привет ';

s2 := ' Вася ';

s := s1 + ', ' + s2 + '!';

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

Подстрока: выделить часть строки в другую строку.

с 3-его символа

s := ' 123456789 ';

s 1 := Copy ( s, 3, 6 );

s2 := Copy ( s1, 2, 3 );

6 штук

'345678'

'456'

66

Удаление и вставка

Удаление части строки:

6 штук

s := ' 123456789 ';

Delete ( s, 3, 6 );

' 123456789 '

' 129 '

строка

меняется!

с 3-его символа

Вставка в строку:

начиная с 3-его символа

s := ' 123456789 ';

Insert ( 'ABC', s, 3 );

Insert ( 'Q', s, 5 );

' 12 ABC 3456789 '

куда вставляем

что вставляем

' 12 AB Q C 3456789 '

73

Задания для самостоятельной работы

1. Ввели слово, определить его длину и вывести 3 символ, а так же вывести вырезку с 2 символа , длинной 5 символов.

2. Из слова «вирус» путем замены букв получите слово «фокус».

73

Файлы

Файл – это область на диске, имеющая имя.

Файлы

Текстовые

Двоичные

Папки (каталоги)

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

могут содержать любые символы кодовой таблицы

*.doc, *.exe,

*.bmp, *.jpg,

*.wav, *.mp3,

*.avi, *.mpg

ACSII (1 байт на символ)

UNICODE ( 2 байта на символ)

*.txt, *.log,

*.htm, *.html

73

Принцип сэндвича

Переменная типа "текстовый файл": var f: text;

I этап . открыть файл :

• связать переменную f с файлом открыть файл (сделать его активным, приготовить к работе)
• связать переменную f с файлом
• открыть файл (сделать его активным, приготовить к работе)

assign(f, 'qq.dat');

reset(f); { для чтения }

rewrite(f); { для записи }

append(f); { дописывать данные }

II этап : работа с файлом

read ( f, n ); { ввести значение n }

write ( f, n ); { записать значение n }

writeln ( f, n ); {c переходом на нов.строку }

III этап : закрыть файл

close(f);

76

Работа с файлами

Особенности:

• имя файла упоминается только в команде assign , обращение к файлу идет через файловую переменную файл, который открывается на чтение, должен существовать если файл, который открывается на запись, существует, старое содержимое уничтожается данные записываются в файл в текстовом виде при завершении программы все файлы закрываются автоматически после закрытия файла переменную f можно использовать еще раз для работы с другим файлом
• имя файла упоминается только в команде assign , обращение к файлу идет через файловую переменную
• файл, который открывается на чтение, должен существовать
• если файл, который открывается на запись, существует, старое содержимое уничтожается
• данные записываются в файл в текстовом виде
• при завершении программы все файлы закрываются автоматически
• после закрытия файла переменную f можно использовать еще раз для работы с другим файлом

76

Пример

Задача: в файле input.txt записаны числа ( в столбик ) , сколько их – неизвестно. Записать в файл output.txt их сумму.

Алгоритм:

• Открыть файл input.txt для чтения .
• Открыть файл input.txt для чтения .

• S := 0;
• S := 0;

• Если чисел не осталось, перейти к шагу 7. Прочитать очередное число в переменную x .
• Если чисел не осталось, перейти к шагу 7.
• Прочитать очередное число в переменную x .

• S := S + x;
• S := S + x;

• Перейти к шагу 3. Закрыть файл input.txt . Открыть файл output.txt для записи . Записать в файл значение S . Закрыть файл output.txt .
• Перейти к шагу 3.
• Закрыть файл input.txt .
• Открыть файл output.txt для записи .
• Записать в файл значение S .
• Закрыть файл output.txt .

цикл с условием "пока есть данные"

76

Программа

p rogram qq;

var s, x: integer;

f: text;

b egin

assign(f, 'input. tx t');

reset(f);

s := 0;

while not eof(f) do begin

readln(f, x);

s := s + x;

end;

close(f);

assign(f, 'output.t xt ');

rewrite(f);

writeln(f, 'Сумма чисел ', s);

close(f);

end.

f: text;

логическая функция, возвращает True , если достигнут конец файла

eof(f)

запись результата в файл output.txt

76

Обработка текстовых данных

Задача: в файле input.txt записаны строки, в которых есть слово-паразит " короче ". Очистить текст от мусора и записать в файл output.txt .

Файл input.txt :

Мама, короче, мыла, короче, раму.

• Мама, короче, мыла, короче, раму.

Декан, короче, пропил, короче, бутан.

А роза, короче, упала на лапу, короче, Азора.

Каждый, короче, охотник желает, короче, знать, где ...

• Декан, короче, пропил, короче, бутан. А роза, короче, упала на лапу, короче, Азора. Каждый, короче, охотник желает, короче, знать, где ...

Результат - файл output.txt :

Мама мыла раму.

Декан пропил бутан.

А роза упала на лапу Азора.

Каждый охотник желает знать, где сидит фазан.

• Мама мыла раму. Декан пропил бутан. А роза упала на лапу Азора. Каждый охотник желает знать, где сидит фазан.

76

Обработка текстовых данных

пока не кончились данные

Алгоритм:

• Прочитать строку из файла ( readln ). Удалить все сочетания " , короче, " ( Pos, Delete ) . Перейти к шагу 1.
• Прочитать строку из файла ( readln ).
• Удалить все сочетания " , короче, " ( Pos, Delete ) .
• Перейти к шагу 1.

Обработка строки s :

Особенность:

надо одновременно держать открытыми два файла (один в режиме чтения, второй – в режиме записи).

• надо одновременно держать открытыми два файла (один в режиме чтения, второй – в режиме записи).

искать ", короче,"

repeat

i := Pos(', короче ,', s);

if i 0 then Delete(s, i, 9);

until i = 0;

удалить 9 символов

76

Работа с файлами

p rogram qq;

var s: string;

i: integer;

fIn, fOut: text;

b egin

assign(fIn, 'instr.txt');

reset(fIn);

assign(fOut, 'outstr.txt');

rewrite(fOut);

... { обработать файл }

close(fIn);

close(fOut);

end.

файловые переменные

fIn, fOut: text;

открыть файл для чтения

открыть файл для записи

76

Полный цикл обработки файла

пока не достигнут конец файла

while not eof(fIn) do begin

readln(fIn, s);

writeln(fOut, s);

end;

обработка строки

repeat

i := Pos(', короче,', s);

if i 0 then

Delete(s, i, 9);

until i = 0;

запись "очищенной" строки

76

Задания для самостоятельной работы

1. Создать на диске С файл 1.txt с 5 числами, введенными с клавиатуры.

2. Дописать в существующий файл 1.txt данные, введенные с клавиатуры.

76