P:Array Of Array Of Integer;

i,j:Integer;

Begin

//Задание статического массива

WriteLn('Array a:'); // Array a:

For i:=1 To 4 Do // 0 3 86 20 27 67 31 16

Begin // 37 42 8 47 7 84 5 29

For j:=1 To 8 Do // 91 36 77 32 69 84 71 30

Begin // 16 32 46 24 82 27 48 14

a[i,j]:=Random(100);

Write(a[i,j]:5);

End;

WriteLn;

End;

//----------------------------

//Задание статического массива

b:=a; //Присваивание возможно, т.к. описаны вместе

WriteLn('Array b:'); // Array b:

For i:=1 To 4 Do // | 87| 28| 77| 97| 49| 88| 82| 2|

Begin // | 14| 14| 50| 2| 59| 0| 77| 65|

Write('|'); // | 77| 70| 55| 20| 68| 59| 95| 64|

For j:=1 To 8 Do // | 99| 24| 67| 29| 8| 77| 49| 88|

Begin

b[i,j]:=Random(100);

Write(a[i,j]:4,'|');

End;

WriteLn;

End;

//----------------------------

//Задание двух матриц и вычисление суммы

WriteLn('Arrays m,n,k:');

For i:=1 To 2 Do

Begin

For j:=1 To 2 Do

Begin

m[i,j]:=Random(10); // Arrays m,n,k:

n[i,j]:=Random(10); // | 5 9| | 5 6| | 10 15|

k[i,j]:=m[i,j]+n[i,j]; // | 3 7| | 0 9| | 3 16|

End;

Write('|');

For j:=1 To 2 Do

Write(m[i,j]:2);

Write('| |');

For j:=1 To 2 Do

Write(n[i,j]:2);

Write('| |');

For j:=1 To 2 Do

Write(k[i,j]:3);

WriteLn('|');

End;

//----------------------------

//Задание динамического прямоугольного массива

SetLength(d,3,4);

WriteLn('Array d:'); // Array d:

For i:=0 To 2 Do // N O Y R

Begin // I A S Z

For j:=0 To 3 Do // U T F D

Begin //

d[i,j]:=Char(Ord('A')+Random(26));

Write(d[i,j]:4);

End;

WriteLn;

End;

//----------------------------

//Задание динамического треугольного массива (треугольник Паскаля)

SetLength(p,5); //Столько будет строк

For i:=0 To 4 Do //Формирование остальных строк

Begin

SetLength(p[i],i+2); //Столько элементов в i-й строке

p[i,0]:=1; p[i,i+1]:=1; //Задание крайних элементов

For j:=1 To i Do //Вычисление средних элементов

p[i,j]:=p[i-1,j-1]+p[i-1,j];

End;

WriteLn('Array p:'); // Array p:

For i:=0 To 4 Do // 1 1

Begin // 1 2 1

Write('':8-i*2); // 1 3 3 1

For j:=0 To i+1 Do // 1 4 6 4 1

Write(p[i,j]:4); // 1 5 10 10 5 1

WriteLn;

End;

//----------------------------

WriteLn('Len p = ',Length(p));// Len p = 5

WriteLn('Low p = ',Low(p)); // Low p = 0

WriteLn('Hig p = ',High(p)); // Hig p = 4

//----------------------------

ReadLn;

End.

{---------------------}

{ ОПИСАНИЕ МАССИВОВ }

{---------------------}

Var {Статические массивы} s:Array['A'..'C'] Of Boolean; //Логический массив c:Array[1..5] Of Char= //Символьный массив 'ABCDE'; //с начальными данными a:Array[5..10] Of Integer= //Числовой массив (3,5,4,2,6,7); //с начальными данными {Динамические массивы} d:Array Of Integer; //Числовой динамический массив

I:Integer;

Begin

SetLength(d,10); //Выделение памяти дин. массиву

{--------------------}

d[1]:=100; s['A']:=True; //Присваивание значения элементу

a[7]:=Random(100); //Случайное значение

{--------------------}

WriteLn(SizeOf(a)); //Размер статического массива

WriteLn(SizeOf(d[0])*Length(d));//Размера динамического массива

{--------------------}

FillChar(a,SizeOf(a),0); //Заполнение массива нулями

FillChar(d[0],SizeOf(d[0])*Length(d),0);

{--------------------}

WriteLn(Low(d),'-',High(d)); //Получение диапазона индексов

WriteLn(Length(d)); //и длины массива

{--------------------}

For i:=Low(a) To High(a) Do //Заполнение массива

a[i]:=10+Random(90); //случайными двузначными числами

// ЗАМЕЧАНИЕ // Элемент массива не может служить счётчиком цикла FOR: // For a[1]:=1 To 10 Do; - ОШИБКА !

ReadLn;

End.

{---------------------}

{ ОПИСАНИЕ МАССИВОВ }

{---------------------}

Var

a:Array[0..9] Of Integer; {Числовой массив}

IMax,IMin:Integer; {Наибольший и наименьший}

c:Array[1..11] Of Char= {Символьный массив}

'ABRACADABRA';

S:Char;

I:Integer;

Begin

//-------------------------------------------------

//ЗАДАЧА 1.

//Заполнить массив случайными двухзначными числами.

//Найти

//а) индексы наибольшего и наименьшего элементов

//б) диапазон значений элементов

//-------------------------------------------------

Randomize;

For i:=Low(a) To High(a) Do //Заполнение числового массива

Begin

a[i]:=10+Random(90); //случайными двузначными числами

Write(a[i],' '); //Вывод элементов в строчку

End;

WriteLn;

IMax:=Low(a); IMin:=Low(a); //Начальные значения индексов

For i:=Low(a)+1 To High(a) Do

Begin

If a[i]<a[IMin] Then IMin:=i; //Обновление наименьшего

If a[i]>a[IMax] Then IMax:=i; //Обновление наибольшего

End;

WriteLn('Min: a[',IMin,'] = ',a[IMin],' Max: a[',IMax,

'] = ',a[IMax]);

//-------------------------------------------------

//ЗАДАЧА 2.

//В заданном символьном массиве найти первую позицию

//указанной буквы

//-------------------------------------------------

For i:=Low(c) To High(c) Do //Вывод символьного массива

Write(c[i]);

WriteLn;

Write('Symbol: '); ReadLn(s);

For i:=Low(c) To High(c) Do //Перебор элементов массива

If c[i]=s Then Break;

If i<=High(c) Then WriteLn('Result: ',i)

Else WriteLn('No Result');

ReadLn;

End.

Билет №11, 12:

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

//Строки

Var

S,T,F:String; //Описание строк

i,c:Integer;

Ch:Char;

Begin

//Образование строк

T:=''; //Пустая строка

S:='asd'; //Присваивание произвольного текста

S:=StringOfChar('@', 20); //Строка с повторяющимся символом

S:=S+T; //Соединение строк (конкатенация)

//Числовые функции строковых аргументов

i:=Length('qwerty'); //Длина i строки 'qwerty'

i:=StrToInt('123'); //Преобразование строки '123' в целое число i

i:=Pos('mid','piramida'); //Поиск подстроки 'mid' в строке 'piramida'

//i - позиция вхождения (иначе i = 0)

//Строковые функции строковых аргументов

S:=AnsiUpperCase('Abc'); //Преобразование малых букв 'Abc' в большие

S:=AnsiLowerCase('Abc'); //Преобразование больших букв 'Abc' в малые

S:=Trim(' qwerty '); //Удаление нач. и кон. пробелов около 'qwerty'

S:=TrimLeft(' qwerty'); //Удаление только нач. пробелов ' qwerty'

S:=TrimRight('qwerty '); //Удаление только кон. пробелов 'qwerty '

S:=Copy('qwerty', 2, 3); //Выделение из 'qwerty' подстроки 'wer'

//Строковые функции числовых аргументов

S:=IntToStr(123); //Преобразование целого числа 123 в строку '123'

S:=FloatToStr(123.34); //Преобразование вещественного числа в строку

//Строковые процедуры

Delete(S,2,3); //Удаление из S со второго символа трёх штук

Insert('qwerty',S,4); //Вставка 'qwerty' в S от четвёртого символа

Val('123',i,c); //Преобразование строки '123' в число i,

//c - позиция неправильного символа (иначе c = 0)

//Пример 1. Замена всех малых латинских букв пробелами

//----------------------------------------------------

S:='123asd123';

For i:=1 To Length(S) Do

If ('a'<=S[i]) And (S[i]<='z') Then S[i]:=' ';

WriteLn('Result ',S);

//Пример 2. Переворот строки

//----------------------------------------------------

Write('String : '); ReadLn(S);

T:='';

For i:=1 To Length(S) Do

T:=S[i] + T;

WriteLn('Result ',T);

//Пример 3. Замена указанного символа на заданный текст

//----------------------------------------------------

Write('String: '); ReadLn(S);

Write('Symbol: '); ReadLn(Ch);

Write('Text : '); ReadLn(F);

T:='';

For i:=1 To Length(S) Do

If S[i]=Ch Then T:=T+F Else T:=T+S[i];

WriteLn('Result ',T);

//Пример 4. Разбиение строки на слова

//----------------------------------------------------

Write('String: '); ReadLn(S);

c:=0;

For i:=1 To Length(S) Do

If S[i]=' ' Then

Begin

If i>c+1 Then

WriteLn(Copy(S,c+1,i-c-1));

c:=i;

End;

If i>c+1 Then WriteLn(Copy(S,c+1,i-c-1));

//Пример 5. Сортировка массива строк

//----------------------------------------------------

SetLength(M,5);

M[0]:='Cat'; M[1]:='Dog';

M[2]:='Horse'; M[3]:='Bird';

M[4]:='Mouse';

WriteLn('Strings: ');

For i:=0 To High(M) Do Write(M[i],' ');

WriteLn;

For i:=Low(M)+1 To High(M) Do

Begin

S:=M[i]; c:=i;

While (c>0) And (M[c-1]>S) Do

Begin

M[c]:=M[c-1];

c:=c-1;

End;

M[c]:=S;

End;

WriteLn('Result: ');

For i:=0 To High(M) Do Write(M[i],' ');

WriteLn;//----------------------------------------------------

ReadLn;

End.

Билет №13, 14:

Существует 2 вида подпрограмм: Procedure (процедура) и Function(функция)

Что такое подпрограмма

ü это оператор, разработанный программистом

ü имеет имя

ü может иметь входные и выходные параметры

ü размещается в разделе описаний в виде полноценной программы

Как пишется п/п

П/п имеет заголовок, который начинается словом
Procedure или Function
(процедура) (функция)
Рядом указывается имя п/п, которое программист выбирает самостоятельно
Если необходимо добавляются параметры (в круглых скобках)
Для имени функции задаётся тип(результата)
В конце заголовка ставится знак «;»
Ниже заголовка размещается текст п/п по правилам написания программы
После заключительного слова End ставится знак «;» (а не «.»)

Как вызывается п/п

Упоминанием своего имени в тексте программы

Пример процедуры без параметров

Program Examp1;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//--------------------------------------

//Пример процедуры, выполняющей задержку

//--------------------------------------

Procedure MyPause; //Заголовок с именем MyPause

Begin //Начало раздела операторов подпрограммы

Write('Press ENTER');

ReadLn;

End; //Конец подпрограммы

Begin //Раздел операторов основной программы

MyPause; //Вызов подпрограммы

End.

Параметры п/п

Параметры используются для обмена данными между основной программой и п/п. Различают функциональные параметры и аргументы.

С помощью параметров –аргументов передаются данные от основной программы к п/п. Аргументы описываются рядом с именем п/п в круглых скобках как обычные переменные, но без слова Var.

При вызове п/п вместо аргументов можно подставлять любые выражения соответствующего типа.

Program Examp2;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//------------------------------------

//Процедура, выводящая разряжённый текст

//------------------------------------

Procedure WidthTxt(s:String); //Заголовок с именем WidthTxt и аргументом s

Var //Раздел описаний подпрограммы

I:Integer;

Begin //Раздел операторов подпрограммы

For i:=1 To Length(s) Do

Write(s[i],' ');

End; //Конец подпрограммы

Begin //Раздел операторов основной программы

WidthTxt('Dog'+'Cat'); //Вызов подпрограммы

ReadLn;

End.

Аргументы и переменные раздела описаний п/п называют локальными переменными. Они формируются в начале выполнения п/п и удаляются из памяти по окончании работы п/п.

С помощью функциональных параметров передаются данные от п/п к основной программе. Функциональные параметры описываются так же, как и аргументы, но с приставкой слова Var.

При вызове п/п вместо функционального параметра необходимо подставить переменную соответствующего типа (а не выражение).

Program Examp3;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//------------------------------------

//Процедура, удаляющая лишние пробелы

//ВХОД: s - строка текста

//ВЫХОД: t - строка без лишних пробелов

//------------------------------------

Procedure KillSpace(s:String; Var t:String);

Var //Раздел описаний подпрограммы

I:Integer;

Begin //Раздел операторов подпрограммы

t:=s[1];

For i:=2 To Length(s) Do

If (s[i]<>' ') Or

(s[i-1]<>' ') Then

t:=t+s[i];

t:=Trim(t);

End; //Конец подпрограммы

Var

x:String; //Раздел описаний основной программы

Begin //Раздел операторов основной программы

KillSpace(' Dog Cat ',x); //Вызов подпрограммы

WriteLn(x); //Вывод результата

ReadLn;

End.

Функциональные параметры разрешается употреблять и в качестве аргументов для передачи данных в п/п.

При написании подпрограмм можно пользоваться уже имеющимися подпрограммами, в том числе и функциями API (Application Programming Interface), которые находятся в библиотеках DLL.

Program Examp4;

{$APPTYPE CONSOLE}

Uses

Windows, SysUtils;

//-----------------------------------------

// Установка курсора по координатам X, Y

//-----------------------------------------

procedure GotoXY(X, Y: Word);

Var

Coord: TCoord; //Для установки позиции экрана (Windows)

Begin

Coord.X := X;