Презентация на тему Программирование на языке Паскаль. Часть II

имя и расположенных в памяти рядом.
Особенности:
все элементы имеют один

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

число элементов
выделить место в памяти
Массив целых чисел:


Размер через

имя

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

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

тип
элементов

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

const N=5;

N

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

других типов:
var X, Y: array [1..10] of real;

var Q: array [0..9] of real;
C: array [-5..13] of char;

var A: array ['A'..'Z'] of real;
B: array [False..True] of integer;
...
A['C'] := 3.14259*A['B'];
B[False] := B[False] + 1;

4.5;
[1..10]
var a: array ['z'..'a'] of integer;
...
A['B'] := 15;
A['b']
['a'..'z']
var

A: array[1..N] of integer;
i: integer;
for i:=1 to

i

8

8

8

8

8

A[1]:=8

A[2]:=8

A[3]:=8

A[4]:=8

A[5]:=8

do begin
A[i]:= Z;
Z:= Z + 1;
end;
i
8
9
10
11
12
A[1]:=8

A[2]:=9
A[3]:=10
A[4]:=11
A[5]:=12
Z
8
9
10
11
12
13
const N

do begin
A[i]:= Z;
Z:= Z + 1;
end;
for i:=1

Z = i + 7

Заполните массив A первыми N натуральными числами, начиная с

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

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

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

writeln('Массив A:');
for i:=1 to N do write(a[i]:4);

Массив A:
6 13 35 57 14

умножить их на 2 и вывести на экран.

найти минимальный из них.
Пример:
Введите пять чисел:

массива A на 1.
2. Умножить все элементы массива A

считаем, что первый элемент – максимальный }
for i:=2 to

– максимальный }
iMax := 1;
for i:=2 to N do

Дополнение: как найти номер максимального элемента?

По номеру элемента iMax всегда можно найти его значение a[iMax]. Поэтому везде меняем max на a[iMax] и убираем переменную max.

a[iMax]

of integer;
i, iMax: integer;
begin
{ здесь нужно

iMax := 1; {считаем, что первый – максимальный}
for i:=2 to N do { проверяем все остальные}
if a[i] > a[iMax] then { новый максимальный}
iMax := i; { запомнить i }

найти в нем минимальный элемент и его номер.

найти в нем два максимальных элемента и их номера.

элементов массива.
2. Найти минимальное значение среди всех элементов массива.

массивов

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

результаты

318458191041
564321
209938992481
458191
938992
малый период (последовательность повторяется через 106 чисел)
Метод середины квадрата

в квадрате

Псевдослучайные числа – обладают свойствами случайных чисел, но каждое следующее число вычисляется по заданной формуле.

последовательности, а не одного числа
равномерное распределение одно, компьютерные датчики

a

b

a

b

равномерное распределение

неравномерное распределение

[0,N):
var x: integer;
...
x := random

[a,b]:
var x: integer;
...
x := random

x := a + random ( N );

[0,N-1]

[a,a+N-1]

b = a + N - 1

N = b – a + 1

x := a + random ( b-a+1 );

array [1..N] of integer;
i: integer;
begin
writeln('Исходный массив:');

случайные числа в интервале [50,150)

[-1,1] и подсчитать количество нулевых элементов.
Идея: используем переменную-счётчик.
Решение:
записать в

1


i:= i + 1


пока ни одного не нашли
начать с

перейти к следующему

нашли еще 1

[1..N] of integer;
i, count: integer;
begin
{ здесь

for i:=1 to N do
if A[i] = 0 then count:= count + 1;

перебираем все элементы массива

и подсчитать количество положительных элементов.
«4»: Заполнить массив случайными числами

массива A равны 1.
2. Определите, сколько элементов массива A

интервале [-10,10] и подсчитать сумму положительных элементов.
Идея: используем переменную

S:=0

S:= A[1]

S:= A[1]+A[2]

S:= A[1]+A[2]+A[3]

S:= A[1]+A[2]+…+A[N]

S:= S+A[i]

+ A[i]


i:= i + 1


пока ни одного не нашли
начать

перейти к следующему

нашли еще 1

array [1..N] of integer;
i, S: integer;
begin
{

for i:=1 to N do
if A[i] > 0 then S:= S + A[i];

перебираем все элементы массива

в интервале [-10,10] и подсчитать сумму всех отрицательных элементов.
«4»:

Пример:
Исходный массив:
10 10 11 12 12 12 10 11 11 12
Длина последовательности: 3

массива A.
2. Вычислить сумму отрицательных элементов массива A.
3.

равный X, или установить, что его нет.
Пример: если

с 1-ого
перейти к следующему
‘Не нашли’
‘Есть!’

integer;
i, X: integer;
begin
{ здесь надо

(i<=N) and (A[i]<>X)

do

в интервале [10..20] и найти элемент, равный X.

в интервале [0..4]и определить, есть ли в нем одинаковые

номер первого элемента, равного X.
2. Определите номер первого элемента,

местами A[1] и A[N], A[2] и A[N-1], …
Псевдокод:



for i:=1

сумма индексов N+1

N div 2

do

поменять местами содержимое двух ячеек памяти.
4
6
?
4
6
4
x
y
c
c := x;
x :=

x := y;
y := x;

3

2

1

integer;
i, c: integer;
begin
{ заполнить массив }

for i:=1 to N div 2 do begin
c:=A[i]; A[i]:=A[N+1-i]; A[N+1-i]:=c;
end;

в интервале [-10..10] и сделать реверс всех элементов, кроме

в интервале [-10..10] и сделать реверс отдельно для 1-ой

ячейку, первый элемент становится на место последнего.
Алгоритм:
A[1]:=A[2]; A[2]:=A[3];… A[N-1]:=A[N];
Цикл:

for

почему не N?

integer;
i, c: integer;
begin
{ заполнить массив }

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

в интервале [-10..10] и выполнить циклический сдвиг влево без

в интервале [-12..12] и выполнить циклический сдвиг ВПРАВО на

удовлетворяющие некоторому условию (например, отрицательные), и скопировать их в

Примитивное решение:

const N = 5;
var i: integer;
A, B: array[1..N]
of integer;
begin
{ здесь заполнить массив A }
for i:=1 to N do
if (A[i] < 0) then
B[i]:= A[i];
...
end.

A

B

очередной элемент ставится на место B[count].
count:=0;
for i:=1 to N

A

B

count

N do
write(B[i], ' ');
Правильное решение:
writeln('Выбранные элементы:');
for i:=1 to

count

и записать в другой массив все положительные числа.

другой массив все числа, которые встречаются более одного раза.

массивов

порядке (по возрастанию, убыванию, последней цифре, сумме делителей, …).

сложность O(N2)

поднимается со дна вверх.
Для массивов – самый маленький

начиная снизу, сравниваем два соседних элемента; если они стоят «неправильно», меняем их местами
за 1 проход по массиву один элемент (самый маленький) становится на свое место

1-ый проход

2-ой проход

3-ий проход

Для сортировки массива из N элементов нужен N-1 проход (достаточно поставить на свои места N-1 элементов).

и A[N-1]
…
A[1] и A[2]
A[j] и A[j+1]
2-ой

for j:=N-1 downto 2 do
if A[j] > A[j+1] then begin
c:=A[j]; A[j]:=A[j+1]; A[j+1]:=c;
end;

2

for j:=N-1 downto 1 do
if A[j] > A[j+1] then begin
c:=A[j]; A[j]:=A[j+1]; A[j+1]:=c;
end;

1

i-ый проход

for j:=N-1 downto i do
...

i

integer;
i, j, c: integer;
begin
{ заполнить массив

for i:=1 to N-1 do begin
for j:=N-1 downto i do
if A[j] > A[j+1] then begin
с := A[j];
A[j] := A[j+1];
A[j+1] := с;
end;
end;

i

элементы выше A[i] уже поставлены

в интервале [-10..10] и отсортировать его по убыванию.

в интервале [0..100] и отсортировать первую половину по возрастанию,

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

repeat
flag := False; { сбросить флаг }
for j:=N-1 downto 1 do
if A[j] > A[j+1] then begin
с := A[j];
A[j] := A[j+1];
A[j+1] := с;
flag := True; { поднять флаг }
end;
until not flag; { выход при flag=False }

flag := False;

flag := True;

not flag;

var flag: boolean;

i + 1;
flag := False; { сбросить флаг

i := 0;

i

i := i + 1;

место (поменять местами с A[1])
из оставшихся найти минимальный элемент

begin
nMin:= i ;
for j:= i+1 to N

N-1

N

нужно N-1 проходов

поиск минимального от A[i] до A[N]

если нужно, переставляем

i+1

i

в интервале [0..99] и отсортировать его по убыванию последней

в интервале [0..100] и отсортировать первую половину по возрастанию,

элементы, расположенные дальше друг от друга.
N div 2
2

1 шаг: выбрать некоторый элемент массива X

3 шаг: так же отсортировать две получившиеся области

Разделяй и властвуй (англ. divide and conquer)

что слева и справа от него в отсортированном массиве

Разделение:
выбрать средний элемент массива (X=67)


установить L:=1, R:=N
увеличивая L, найти первый элемент A[L], который >= X (должен стоять справа)
уменьшая R, найти первый элемент A[R], который <= X (должен стоять слева)
если L<=R, поменять местами A[L] и A[R] и перейти к п. 3

integer);
var L, R, c, X: integer;
begin
if first

ограничение рекурсии

while L <= R do begin
while A[L] < X do L:= L + 1;
while A[R] > X do R:= R - 1;
if L <= R then begin
c:= A[L]; A[L]:= A[R]; A[R]:= c;
L:= L + 1; R:= R - 1;
end;
end;

разделение

обмен

двигаемся дальше

сортируем две части

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


begin
{ заполнить массив }
{

procedure QSort ( first, last: integer);
...

в интервале [-50..50] и отсортировать его с помощью алгоритма

поиск

равный X, или установить, что его нет.
Решение: для

> 6
Выбрать средний элемент A[c] и сравнить с X.
Если

1; R := N; {границы: ищем от A[1] до

while R >= L do begin
c := (R + L) div 2;




if X < A[c] then R := c - 1;
if X > A[c] then L := c + 1;
end;

номер среднего элемента

if X = A[c] then begin
nX := c;
R := L - 1; { break; }
end;

нашли

выйти из цикла

сдвигаем границы

и ищет в нем элемент, равный X (это число

строки

массив символов:
каждый символ – отдельный объект;
массив имеет длину N,

Что нужно:
обрабатывать последовательность символов как единое целое
строка должна иметь переменную длину

строки:
n := length ( s );
var n: integer;

все буквы «а» на буквы «б».
program qq;
var s: string;

readln(s);

writeln(s);

Length(s)

ввод строки

длина строки

вывод строки

«а» на буквы «б», как заглавные, так и строчные.

она палиндромом (палиндром читается одинаково в обоих направлениях).

другой.
Запись нового значения:
var s, s1, s2: string;
s := 'Вася';
s1

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

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

s := '123456789';

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

'345678'

'456'

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

6 штук

'123456789';
Delete ( s, 3, 6 );
с 3-его символа
6

строка
меняется!

'123456789'

'129'

s := '123456789';
Insert ( 'ABC', s, 3 );
Insert ( 'Q', s, 5 );

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

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

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

'12ABC3456789'

'12ABQC3456789'

Вася.';
n := Pos ( 'е', s );
if n >

s[3]

3

n = 11

Особенности:
функция возвращает номер символа, с которого начинается образец в строке
если слова нет, возвращается 0
поиск с начала (находится первое слово)

var n: integer;

'Петя', s );
Delete ( s, n, 4 );
Insert (

'Вася Лена Митя'

s := 'Вася Петя Митя';
n := length ( s );
s1 := Copy ( s, 1, 4 );
s2 := Copy ( s, 11, 4 );
s3 := Copy ( s, 6, 4 );
s := s3 + s1 + s2;
n := length ( s );

'Вася Митя'

14

'Вася'

'Митя'

'Петя'

'ПетяВасяМитя'

12

6

Преобразовать их к формату «фамилия-инициалы».
Пример:
Введите имя,

Алгоритм:
найти первый пробел и выделить имя
удалить имя с пробелом из основной строки
найти первый пробел и выделить отчество
удалить отчество с пробелом из основной строки
«сцепить» фамилию, первые буквы имени и фамилии, точки, пробелы…

integer;
begin
writeln('Введите имя, отчество и фамилию');
readln(s);

отчество, разделив их пробелом. Вывести инициалы и фамилию.

выводя каждую вложенную папку с новой строки
Пример:

строка, представляющая собой сумму двух целых чисел, например:
12+35
Вычислить эту

Алгоритм:
найти знак «+»
выделить числа слева и справа в отдельные строки
перевести строки в числа
сложить
вывести результат

s, N, r ); { N = 123 }

Из числа в строку:

N := 123;
Str ( N, s ); { '123' }
X := 123.456;
Str ( X, s ); { '1.234560E+002' }
Str ( X:10:3, s ); { ' 123.456' }

var N, r: integer;
X: real;
s: string;

n, n1, n2, sum: integer;
begin
writeln('Введите выражение (сумму чисел):');

слагаемые-строки

слагаемые-числа

сумма

слагаемые-строки

слагаемые-числа

эту разность.
Пример:
25-12
Ответ: 13
«4»: Ввести арифметическое

котором можно использовать сложение и вычитание. Вычислить это выражение.

котором можно использовать сложение, вычитание и умножение. Вычислить это

количество футболистов команды «Шайба», а затем – N строк,

Алгоритм:

for i:=1 to N do begin
{ пропускаем фамилию и имя }
{ читаем год рождения Year и число голов Gol }
if (1988 <= Year) and (Year <=1990) and
(Gol = 0) then { увеличиваем счетчик }
end;

{ пока не встретим пробел }
var c: char;
Пропуск имени:
repeat

Ввод года рождения:

read(Year); { из той же введенной строки }

var Year: integer;

Ввод числа голов и переход к следующей строке:

readln(Gol); { читать все до конца строки }

var Gol: integer;

Year, Gol: integer;
begin
writeln('Количество футболистов');
readln(N);
count := 0;

repeat read(c); until c = ' ';
repeat read(c); until c = ' ';
read(Year);
readln(Gol);

строка }
repeat
read(c); {

Вместо read(Year):

s := ''; { пустая строка }
repeat
read(c); { прочитать символ }
s := s + c; { прицепить к году }
until c = ' ';
Val(s, Year, r); { строку – в число }

var fam: string;

var s: string;

100;
var fam: array[1..MAX] of string;
...
fam[i] := ''; { пустая

массив символьных строк

забили больше двух голов.
Пример:
Иванов Василий
Семёнов

Информация о футболистах вводится так же, как и для приведенной задачи (сначала N, потом N строк с данными).

всех футболистов, которые забили хотя бы один гол. В

перебор

букв Ы, Ц, Щ и О. Вывести на экран

1

K

в каждой ячейке может быть любая из 4-х букв

4 варианта

4 варианта

4 варианта

4 варианта

Количество вариантов:

букв сводится к 4-м задачам для слов из K-1

1

K

1

K

1

K

перебрать все варианты

перебрать все варианты

перебрать все варианты

перебрать все варианты

begin
writeln(s);
count := count+1;
end
else

1

K

p

s

p+1

рекурсивные вызовы

окончание рекурсии

Глобальные переменные:
var s: string;
count, K: integer;

var i: integer;
begin
if p > k

const letters = 'ЫЦЩО';

for i:=1 to length(letters) do begin
s[p] := letters[i];
Rec(p+1);
end;

все буквы

цикл по всем буквам

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

integer;
begin
writeln('Введите длину слов:');
read ( K );
s

procedure Rec(p: integer);
...
end;

процедура

s := '';
for i:=1 to K do s := s + ' ';

строка из K пробелов

глобальные переменные

Ц, Щ и О. Число K вводится с клавиатуры.
«3»:

элементов одного типа).
Матрица – это массив, в котором каждый

A

строка 2

столбец 3

ячейка A[3,4]

4;
var A: array[1..N,1..M] of integer;
B: array[-3..0,-8..M] of

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

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

A[1,1]=

25

A[1,2]=

14

A[1,3]=

14

...

A[3,4]=

54

i

j

for j:=1 to M do
for i:=1 to N do begin

j:=1 to M do
A[i,j] := random(25) -

цикл по строкам

цикл по столбцам

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

for i:=1 to N do begin


writeln;
end;

перейти на новую строку

for j:=1 to M do
write ( A[i,j]:5 );

вывод строки

в той же строке

строк и 4 столбцов случайными числами и вывести ее

program qq;
const N = 3; M = 4;
var A: array[1..N,1..M] of integer;
i, j, S: integer;
begin
{ заполнение матрицы и вывод на экран}
S := 0;



writeln('Сумма элементов матрицы ', S);
end.

for i:=1 to N do
for j:=1 to M do
S := S + A[i,j];

случайными числами в интервале [-10,10] и вывести ее на

«3»: Удвоить все элементы матрицы и вывести её на экран.
«4»: Найти минимальный и максимальный элементы в матрице их номера. Формат вывода:
Минимальный элемент A[3,4]=-6
Максимальный элемент A[2,2]=10
«5»: Вывести на экран строку, сумма элементов которой максимальна. Формат вывода:
Строка 2: 3 5 8 9 8

диагональ квадратной матрицы из N строк и N столбцов.
A[1,N]
A[2,2]
A[3,3]
A[N,N]
for

Задача 2. Вывести на экран вторую диагональ.

A[N,1]

A[N-1,2]

A[2,N-1]

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

N+1-i

сумма номеров строки и столбца N+1

A[1,1]

на главной диагонали и ниже ее.
строка 1: A[1,1]
строка 2:

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

цикл по всем строкам

for j:= 1 to i do
S := S + A[i,j];

складываем нужные элементы строки i

В матрице из N строк и M столбцов переставить

2

4

j

A[2,j]

A[4,j]

for j:=1 to M do begin
c := A[2,j];
A[2,j] := A[4,j];
A[4,j] := c;
end;

Задача 5. К третьему столбцу добавить шестой.

for i:=1 to N do
A[i,3] := A[i,3] + A[i,6];

случайными числами в интервале [10,90] и вывести ее на

«3»: «4»: «5»:

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

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

*.txt, *.log,
*.htm, *.html

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

*.doc, *.exe,
*.bmp, *.jpg,
*.wav, *.mp3,
*.avi, *.mpg

Текстовые

Двоичные

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

с файлом
открыть файл (сделать его активным, приготовить к работе)

assign(f,

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

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

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

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

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

close(f);

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

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

assign, обращение к файлу идет через файловую переменную
файл, который

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

12 5 45 67 56●

конец файла
(end of file, EOF)

12 5 45 67 56●

assign ( f, 'qq.txt' );
reset ( f );

read ( f, x );

f );
reset ( f ); { начать с

readln ( f, x );

12 5 45¤ 36 67¤ 56●

конец строки
(end of line, EOL)

сколько их – неизвестно. Записать в файл output.txt их

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

begin
assign(f, 'input.txt');
reset(f);
s :=

while not eof(f) do begin
readln(f, x);
s := s + x;
end;

f: text;

eof(f)

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

assign(f, 'output.txt');
rewrite(f);
writeln(f, 'Сумма чисел ', s);
close(f);

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

неизвестно.
«3»: Найти сумму чётных чисел и записать её

столбик), сколько их – неизвестно, но не более 100.

f: text;
function ReadArray: integer;
var i: integer;

Глобальные переменные:

Функция: ввод массива, возвращает число элементов

while (not eof(f)) and (i < 100) do begin
i := i + 1;
readln(f, A[i]);
end;

ReadArray := i;

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

text; N, i: integer;
Begin
N :=

function ReadArray: integer;
...
end;

assign(f, 'output.txt');
rewrite(f);
for i:=1 to N do
writeln(f, A[i]);
close(f);

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

что их не более 100.
«3»: Отсортировать массив по

в которых есть слово-паразит «короче». Очистить текст от мусора

Удалить все сочетания ", короче," (Pos, Delete).
Записать строку

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

repeat
i := Pos(', короче,', s);
if i <> 0 then Delete(s, i, 9);
until i = 0;

искать «, короче,»

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

string;
i: integer;
fIn, fOut:

fIn, fOut: text;

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

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

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

begin
readln(fIn, s);
writeln(fOut, s);

repeat
i := Pos(', короче,', s);
if i <> 0 then
Delete(s, i, 9);
until i = 0;

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

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

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

неизвестно.
«3»: Заменить все слова «короче» на «в общем»

имена пользователей сайта (не более 100). Вывести их в

строк, подсчитать их в переменной N
отсортировать первые N строк

Объявление массива (с запасом):

const MAX = 100;
var s: array[1..MAX] of string;

0;
while not eof(f) do begin
N:= N + 1;

var f:Text;
N: integer;

to N-1 do begin
nMin:= i;
for j:=i+1 to

var i, j, nMin: integer;
c: string;

assign(f, 'sort.txt');
rewrite(f);
for i:=1 to N do
writeln(f, s[i]);
close(f);
var

код('в')
'х' > 'в'
'Пароход' > 'Паровоз'

'Пар'

array[1..MAX] of string;
c: string; {вспомогательная строка}
...
for

Никита
2) Иванов Федор
«4»: Выполнить задачу на «3»

фамилии и имена школьников и баллы, полученные ими на

assign(fIn, 'marks.txt');
reset(fIn);
assign(fOut, 'best.txt');
rewrite(fOut);
while not eof(fIn) do begin

begin
readln(fIn, s);
{ обработка строки s }

s, N, r ); { N = 123 }

Из числа в строку:

N := 123;
Str ( N, s ); { '123' }
X := 123.456;
Str ( X, s ); { '1.234560E+002' }
Str ( X:10:3, s ); { ' 123.456' }

var N, r: integer;
X: real;
s: string;

n:= 7; }
fam:= Copy(s,1,n-1); { fam:= 'Пупкин'; }
Delete(s, 1,

var n, r: integer;
s, fam, name: string;

s:

n

1

n

1

Иван 78
2) Анисимов Никита 90
«4»: Выполнить задачу на «3»