Презентация на тему по информатике на тему Паскаль часть 2

имя, но различные индексы.
Особенности:
все элементы имеют один тип
весь массив

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

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]*2;

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

Массив A:
10 24 68 112 26

найти среднее арифметическое всех элементов массива.
Пример:
Введите

считаем, что первый элемент – максимальный }
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
writeln('Исходный массив:');
for

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

поиск максимального

в интервале [-10..10] и найти в нем максимальный и

массивов

местами 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
{ заполнить массив }

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

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

for

почему не N?

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

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

массивов

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

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

сложность O(N·logN)

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

начиная снизу, сравниваем два соседних элемента; если они стоят "неправильно", меняем их местами
за 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
{ заполнить массив

i

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

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

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=True }

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-1

N

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

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

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

i+1

i

в интервале [0..100] и отсортировать его по последней цифре.

в массиве

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

if A[i] = X then begin
nX :=

nX := 0; { пока не нашли ...}
for i:=1 to N do { цикл по всем элементам }
if A[i] = X then { если нашли, то ... }
nX := i; { ... запомнили номер}
if nX < 1 then writeln('Не нашли...')
else writeln('A[', nX, ']=', X);

nX – номер нужного элемента в массиве

Улучшение: после того, как нашли X, выходим из цикла.

nX := 0; i := 1;
while i <= N do begin
if A[i] = X then begin
nX := i; i := N;
end;
i := i + 1;
end;

break;

i := N;

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

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

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

нашли

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

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

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

строки

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

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

строки:
n := length ( s );
var i: 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 >

var n: integer;

s[3]

3

n = 11

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

'Петя', 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);

изменить его расширение на ".exe".
Пример:
Введите имя

перебор

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

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

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

s

p+1

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

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

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 вводится с клавиатуры.
"4":

массив, в котором каждый элемент имеет два индекса (номер

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
for j:=1 to M do
write ( A[i,j]:5 );
writeln;
end;

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

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

вывод строки

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

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

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

"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,10] и вывести ее на

"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.dat' );
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 :=

f: text;

eof(f)

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

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

неизвестно.
"4": Найти среднее арифметическое всех чисел и записать

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

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

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

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

ReadArray := i;

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

text; N: integer;
Begin
N := ReadArray;

function ReadArray: integer;
...
end;

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

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

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

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

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

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

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

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

i: integer;
fIn, fOut: text;
begin

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;

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

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

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