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

процессора (ассемблер)
Языки высокого уровня – приближены к естественному (английскому) языку,

программа}
readkey;
end.
{ процедуры и функции }
комментарии в фигурных скобках не обрабатываются

имеющая имя (ячейка памяти).
Процедура – вспомогательный алгоритм, описывающий некоторые действия

и строчные буквы не различаются
2. Разделители
любой управляющий символ (коды от

имя не может начинаться с цифры

3. Специальные символы
знаки пунктуации [ ],( ), { }, * *, :=, .. , #, $
знаки операций: буквенные (not, div, or, mod) и небуквенные (+, =, *, /, <, >, <>, <=, >=)
зарезервированные слова (begin, end)

4. Неиспользуемые символы (буквы рус. алфавита, %, &)

= 3.14; { вещественное число }

qq = 'Вася'; { строка

целая и дробная часть отделяются точкой

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

может принимать два значения:
True (истина, "да")
False (ложь, "нет")

переменной можно изменять во время работы программы.
Типы переменных:
integer { целая }
real,

Объявление переменных (выделение памяти):
var a, b: integer;
Q: real;
s1, s2: string;

присваивания служит для изменения значения переменной.
Пример:
program qq;
var a, b: integer;
begin

a

?

5

5

b

?

5+2

7

a

5

7*4

28

арифметических операций:
+ - * /

умножение

деление

деление нацело

остаток от деления

:= 5;
10 := x;
y

Какие операторы неправильные?

имя переменной должно быть слева от знака :=

целая и дробная часть отделяются точкой

нельзя записывать вещественное значение в целую переменную

направо
сложение и вычитание слева направо
2 3

2 6 3 4 7 5 1 12 8 11 10 9
x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a));

a}
read ( a, b ); { ввод значений переменных a

Как вводить два числа?
через пробел:
25 30
через Enter:
25
30

a}
writeln ( a ); { вывод значения переменной a и

writeln ( 'Привет!' ); { вывод текста}

writeln ( 'Ответ: ', c ); { вывод текста и значения переменной c}

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

15;
writeln ( '>', i, '',

всего символов

всего символов

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

в километры(1 миля =1,852 км)

2. Составить программу, запрашивающую 2

по этому имени.
3. Вычислить периметр и площадь прямоугольника, по

пустой оператор)
Структурированные операторы (составной оператор, условный оператор IF, условный оператор

условие верно}
end
else begin
{что

Особенности:
перед else НЕ ставится точка с запятой
вторая часть (else …) может отсутствовать (неполная форма)
если в блоке один оператор, можно убрать слова begin и end

наибольшее из них.
Алгоритмы, в которых последовательность шагов зависит от выполнения

целых числа');
read ( a, b );
if

max := a;

max := b;

полная форма условного оператора

условий (отношений), связанных с помощью логических операций:
not – НЕ (отрицание,

равно

не равно

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

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

read ( x );
if x >= 25

read ( x );
if (x >= 25) and

сложное условие

«Привет друг» если возраст введен меньше 16 лет и отвечающую

2. Составить программу - отзывающуюся только на имя «Саша»

на 1 , если оно больше или равно100 и уменьшающее

4. Составить программу, вычисляющую функцию:

известным числом шагов
цикл с неизвестным числом шагов (цикл с условием)

do begin
{тело цикла}

Увеличение переменной на 1:

for <переменная> := <начальное значение> downto
<конечное значение> do begin
{тело цикла}
end;

Уменьшение переменной на 1:

чисел от 1 до 8 (от a до b).
Особенность: одинаковые

to 8 do begin
i2 := i*i;
i3

переменная цикла

начальное значение

конечное значение

кубы целых чисел от 8 до 1 (в обратном порядке).
Особенность:

downto

end;
Особенности:
можно использовать сложные условия:
если в теле цикла только

while (a {тело цикла}
end;

while a < b do
a := a + 1;

условие на входе в цикл ложно, цикл не выполняется ни

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

< b do a := a + 1;
2 раза
a =

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;

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

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




Проблема: Неизвестно,

n := n div 10;
обнулить счетчик цифр
ввод n


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

count := 0;
while n 0 do begin

, n1: integer;

n1 := n;

n1,

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

begin
{тело цикла}
end;
i := 1;
while i

for i:=a downto b do
begin
{тело цикла}
end;

i := a;
while i >= b do begin
{тело цикла}
i := i - 1;
end;

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

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

10
2. Напечатать таблицу умножения на
введенное с клавиатуры число,
например

сделать в любом случае => проверку условия цикла надо делать

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

процесс"
ввод n
основной алгоритм

число');
read(n);
until n > 0;

until n > 0;

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

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

тех пор, пока не ввели числа большего 50.

2. Составить программу,

выражение целого типа (integer)
или символьного типа (char)
case i+3

var c: char;
...
case c of
'а': writeln('Антилопа');
'б': writeln('Барсук');
else writeln('Не знаю');
end;

end можно не писать
нельзя ставить два одинаковых значения
case i+3 of

case i+3 of
1: a := b;
2: a := c;
end;

of
1: a :=

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

диапазон

смесь

дней в этом

31;
нет
M = 2?
D := 28;
да
нет
M = 12?
D := 31;
да
вывод

ошибка

read ( M );
case M of

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

до 7 определить день недели- например 1

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

законченной последовательности действий.

Для исполнения подпрограммы процедуры необходимо сначала описать ее,

имеют к ним доступа


program qq;
procedure A(x, y: integer);
var

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

из 2-х чисел

program max;
uses crt;
var a,b,c,d,p,q,m: integer;
procedure bid(x,y: real;

некоторое значение.
Примеры:
вычисление ,

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

в переменную, имя которой совпадает с названием функции; объявлять ее

из 2-х чисел

program max;
uses crt;
var a,b,c,d,p,q,m: integer;
function bid(x,y: real):

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

памяти
Массив целых чисел:


Размер через константу:
имя
начальный индекс
конечный индекс
тип
элементов

var A:

const N=5;

N

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

of integer;
i: integer;
for i:=1 to N do begin

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

на экран сумму 2 и 5 элементов

uses crt;

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

символов) может лежать в диапазоне 0..255
Для определения длины данных строкового

var s: string[20];

"а" на буквы "б".
program qq;
var s: string;
i: integer;
begin

readln(s);

writeln(s);

Length(s)

ввод строки

длина строки

вывод строки

значения:
var s, s1, s2: string;
s := 'Вася';
s1 := 'Привет';
s2 :=

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

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

s := '123456789';

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

'345678'

'456'

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

6 штук

s, 3, 6 );
с 3-его символа
6 штук
строка
меняется!
'123456789'
'129'
s :=

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

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

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

'12ABC3456789'

'12ABQC3456789'

вывести 3 символ, а так же вывести вырезку с 2

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

оформления, не содержат управляющих символов (с кодами < 32)
ACSII (1 байт

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

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

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

Текстовые

Двоичные

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

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

assign(f, 'qq.dat');
reset(f); {для чтения}
rewrite(f);

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

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

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

close(f);

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

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

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

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

– неизвестно. Записать в файл output.txt их сумму.
Алгоритм:
Открыть файл input.txt

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

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

f: text;

eof(f)

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

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

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

сочетания ", короче," (Pos, Delete).
Перейти к шагу 1.
Обработка строки

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

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

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

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

integer;
fIn, fOut: text;
begin
assign(fIn, 'instr.txt');

fIn, fOut: text;

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

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

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

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

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

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

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

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