Процедуры и функции пользователя

Процедура	Пример процедуры для обмена значений между целыми переменными m и n
program имя-программы;	program primer; var x,y: integer;
procedure имя(параметры);	procedure swap(var m,n:integer);
описания локальных величин	var s: integer;
begin	begin
операторы процедуры	s:=m; m:=n; n:=s
end;	end;
BEGIN	BEGIN
операторы программы	read(x,y); swap(x,y); writeln(x:10,y:10)
END.	END.

 

Функция	Пример функции для вычисления натуральной степени (n) целого числа (m)
program имя-программы;	program primer; var x,y: integer;
function имя(параметры): тип-результата;	function power(m,n:integer):integer;
описания локальных величин	var s,i: integer;
begin	begin
операторы функции	s:=1; for i:=1 to n do s:=s*m; power:=s
end;	end;
BEGIN	BEGIN
операторы программы	read(x,y); writeln(power(x,y))
END.	END.

 

Часть III.

Символьные типы данных

Тип	Описатель типа (имя)	Значение типа (пример)
Символьный (литерный)	char	'a'
		#13
Строковый	string	'задача'
		'тема'#13#10'урока:'

 

Функция	Результат функции	Пример
length(s)	Длина строки	n:=length(s)
pos(s1,s2)	Начало первого вхождения строки s1 внутри строки s2 (номер позиции)	n:=pos('+',s)
copy(s,p,n)	Часть строки s длиной n, начиная с позиции p	c:=copy(s,4,2)
concat(s1,s2,s3,...sn)	Соединить строки (функция конкатенации)	c:=concat(s,';',t,'.')

 

Функция	Результат функции	Пример
upcase(c)	Преобразовать малую букву латинского алфавита в большую (символ верхнего регистра)	c:=upcase(c)
chr(n)	Символ с номером n	c:=chr(n)
ord(c)	Номер символа со значением c	n:=ord(c)
succ(c)	Следующий символ таблицы ASCII	c:=succ(c)
pred(c)	Предыдущий символ таблицы ASCII	c:=pred(c)

 

Процедура	Операция	Пример
delete(s,p,n)	Удалить часть строки s длиной n, начиная с позиции p	delete(s,n,1)
insert(s1,s2,p)	Вставить строку s1 в строку s2, начиная с позиции p	insert('+',s,1)
val(s,x,r)	Преобразовать строку s в число x с признаком результата r	val(s,x,nan)
str(x:f,s)	Преобразовать число x в строку s с форматом числа f	str(x:10,s)
		str(x:10:2,s)
s1 + s2	Соединить строки (операция конкатенации)	s:=s+';'+t+'.'

 

Множества

Тип множества	Описание множества	Пример
Постоянное множество (константа)	[ тип-элемента ]	const a = [ 0..100 ];
Переменное множество (переменная)	set of [ тип-элемента ]	var a: set of [ '0'..'9', '+', '-' ];

 

Пример описания постоянного множества	Элементы множества
const A = [ 'A'..'Z', 'a'..'z' ];	Буквы латинского алфавита
const B = [ 'a'..'z' ];	Малые буквы латинского алфавита
const C = [ 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё' ];	Буквы алфавита-кириллицы
const D = [ 'А'..'Я' ];	Большие буквы алфавита-кириллицы
const M = [ '0'..'9' ];	Цифровые символы от 0 до 9
const N = [ 0..100 ];	Целые числа от 0 до 100

 

Пример описания переменного множества	Элементы множества
var a set of [ 'A'..'Z', 'a'..'z' ];	Буквы латинского алфавита
var b set of [ 'a'..'z' ];	Малые буквы латинского алфавита
var c set of [ 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё' ];	Буквы алфавита-кириллицы
var d set of [ 'А'..'Я' ];	Большие буквы алфавита-кириллицы
var m set of [ '0'..'9' ];	Цифровые символы от 0 до 9
var n set of [ 0..100 ];	Целые числа от 0 до 100

 

Операция	Результат операции	Пример
М1 + М2	Объединение множеств М1 и М2	['0'..'9'] + ['+']
М1 - М2	Разность множеств М1 и М2	['a'..'z'] - ['x'..'z']
М1 * М2	Пересечение множеств М1 и М2	['a'..'m'] * ['c', 'i', 'n']

 

Операция	Когда результат операции равен true	Пример
значение in множество	Значение является элементом множества	not (s[i] in ['a'..'z'])
М1 = М2	Множества М1 и М2 равны между собой
М1 <> М2	Множества М1 и М2 не равны
М1 < М2	Множество М1 является подмножеством множества М2
М1 <= М2	Множество М1 является подмножеством множества М2 или равно М2
М1 > М2	Множество М1 является надмножеством множества М2
М1 >= М2	Множество М1 является надмножеством множества М2 или равно М2

 

Часть IV.

Файлы

Тип файла	Описание файла	Пример
текстовый файл (текст)	text	var t: text;
типизированный файл	file of тип-элемента	var a: file of integer;

 

Процедуры и функции	Операция	Пример
read(файл, список ввода)	Ввод данных из файла	read(t,a,b,c);
readln(файл, список ввода)	Ввод данных из файла	readln(t,a,b,c);
write(файл, список вывода)	Вывод данных в файл	write(t,x,y,z);
writeln(файл, список вывода)	Вывод данных в файл	writeln(t,x,y,z);
assign(файл, имя файла)	Определить имя файла	assign(t,'c:\text\info.txt');
reset(файл)	Открыть файл для ввода	reset(t);
rewrite(файл)	Открыть файл для вывода	rewrite(t);
close(файл)	Закрыть файл	close(t);
eof(файл)	Если конец файла, то true (функция)	while not eof(t) do read(t,a);
eoln(файл)	Если конец строки, то true (функция)	while not eoln(t) do read(t,a);

 

Типы и записи

Описание типа записи	Пример
имя типа = record	type data = record
имя-1: тип-1;	x:integer;
имя-2: тип-2;	y:integer;
имя-N: тип-N;	t:string;
end;	end;
	var a1, a2, a3: data;

Ссылки и указатели

Описание указателя	Пример
имя-указателя: ^имя-типа;	var pdata: ^data;

 

Ссылка с помощью указателя	Пример
имя-указателя^	pdata^:= 0;

 

Процедура	Операция	Пример
new(имя-указателя)	Выделить память для переменной (создать переменную для указателя)	new(pdata);
dispose(имя-указателя)	Освободить память переменной (указатель:=nil)	dispose(pdata);

Объекты и классы

Описание типа объекта (класс)	Пример
имя класса = object (класс-родитель)	type donkey = object (animals)
свойство-1: тип-1;	x:integer;
свойство-2: тип-2;	y:integer;
свойство-N: тип-N;	t:string;
метод-1(параметры);	function run(m:string):boolean;
метод-2(параметры);	procedure show;
метод-N(параметры);	procedure hide;
end;	end;
	var a1, a2, a3: donkey;