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

Скачать 1.02 Mb.

Название	Методические указания по выполнению лабораторных работ. Примеры выполнения заданий
Анкор	Informatika_MUuu_KZ.doc
Дата	16.01.2018
Размер	1.02 Mb.
Формат файла
Имя файла	Informatika_MUuu_KZ.doc
Тип	Методические указания #15233

1. ВВЕДЕНИЕ

2.ПЕРЕЧЕНЬ ЛАБОРАТОРНЫХ РАБОТ

Освоение клавиатуры IBM-совместимого персонального компьютера и основных команд, необходимых при работе на Турбо - Паскале.
Программирование вычислений по формулам
Программирование разветвлений
Программирование циклов. Вычисление сумм и произведений Суммирование рядов с заданной точностью.
Обработка одномерных массивов.
Обработка двумерных массивов.

3.КРАТКИЕ МЕТОДИЧЕСКИЕ УКАЗАНИЯ ПО ВЫПОЛНЕНИЮ ЛАБОРАТОРНЫХ РАБОТ. ПРИМЕРЫ ВЫПОЛНЕНИЯ ЗАДАНИЙ.

В течение первого семестра студентам-заочникам предлагается выполнить одну контрольную работу, которая в общей сложности включает шесть заданий.

Номер варианта выбирается из таблицы вариантов заданий и совпадает с последними двумя цифрами личного шифра студента (Приложение 1).При выполнении контрольных работ во всех заданиях, кроме первого, необходимо разработать блок-схему алгоритма и программу на языке Турбо - Паскаль (в первом задании только программу).

Задания 1.1 - 1.4 охватывают тему «Основные конструкции языка программирования Турбо – Паскаль». Задания 1.3-1.4 и 2.1 охватывают тему «Организация циклических вычислений». Задание 2.2 охватывает тему «Обработка одномерных массивов». Задание 2.3 — тему «Обработка двумерных массивов».

Пример выполнения задания 1.1.

Условие задачи: Два числа X и Y задаются при помощи оператора ввода. Вычислить сумму их квадратов, модуль разности и произведение.

Текст программы на языке Паскаль приводится на Рис.1. Здесь переменная SUM используется для обозначения суммы квадратов, переменная М - для обозначения модуля разности, переменная P -для обозначения произведения.

program prim_1;

{вычисления по формулам}

var x,y:real;

sum,m,p:real;

begin

write('введите x=');readln(x);

write('введите y=');readln(y);

sum:=x*x+y*y;

m:=abs(x-y);

p:=x*y;

writeln('сумма квадратов=',sum:6:3);

writeln('модуль разности=',m:6:3);

writeln('произведение=',p:6:3);

end.

Рис.1 Текст программы для задания 1.1.

Пример выполнения задания 1.2.

Условие задачи: Значения переменных А и В задаются оператором ввода. Программа должна отпечатать А > B, A < B или A = B в зависимости от значений А и В.

Рис.2. Блок-схема для задания 1.2.

Блок-схема и текст программы приведены на Рис.2 и 3. Алгоритм заключается в сравнении вводимых величин А и В и выводе на экран соответствующих сообщений.
program prim_2;

{использование условного оператора}

var a,b:real;

begin

write('введите а=');readln(a);

write('введите b=');readln(b);

if a>b then writeln('А больше В')

else if a

else writeln('А равно В');

end.

Рис.3 Текст программы для задания 1.2.

Пример выполнения задания 1.3.,варианты 1..4.

Условие задачи: Составить блок-схему алгоритма и программу для вычисления и вывода на экран таблицы значений функции

,

где аргумент Х изменяется от начального значения (например, 1) до конечного (например, 2) с заданным шагом (например, 0,05). Параметры А и В задаются оператором ввода.

Здесь переменная xmin используется для обозначения начального значения аргумента Х, xmax - для обозначения конечного значения аргумента Х, dx - для обозначения шага, А и В - для обозначения параметров, необходимых для вычислений, X и Y - для обозначения текущего значения аргумента и текущего значения функции. Эта задача может быть решена четырьмя способами

Блок-схема алгоритма и текст программы с использованием:

- оператора условия (IF-THEN) приведены на Рис.4,8

- цикла с параметром (FOR-DO) приведены на Рис.5,9

- цикла с предусловием (WHILE-DO) приведены на Рис.6,10

- цикла с постусловием (REPEAT-UNTIL) приведены на Рис.7,11

Рис.4. Блок-схема для задания 1.3.,вариант 1.

Рис.5. Блок-схема для задания 1.3.,вариант 2.

Рис.6. Блок-схема для задания 1.3.,вариант 3.

Рис.7. Блок-схема для задания 1.3.,вариант 4.

program prim_3;

{программа вычислений и вывода на экран таблицы значений функции с использованием оператора IF-THEN}

label l10;

var a,b:real;

xmin,xmax,dx:real;

x,y:real;

begin

write('A=');readln(a);

write('B=');readln(b);

write('начальное значение=');readln(xmin);

write('конечное значение=');readln(xmax);

write('шаг=');readln(dx);

writeln('|___|___|');

writeln('| X | Y |');

writeln('|___|___|');

x:=xmin;

l10:

y:=A*sin(B*x)/x;

writeln('|',x:6:2,'|',y:7:2,'|');

x:=x+dx;

if (x<=xmax) then goto l10;

writeln('|___|___|');

end.

Рис.8. Текст программы для задания 1.3.,вариант 1.

program prim_4;

{программа вычислений и вывода на экран таблицы значений функции с использованием оператора FOR-DO}

var a,b:real;

xmin,xmax,dx:real;

x,y:real;

i,n:integer;

begin

write('A=');readln(a);

write('B=');readln(b);

write('начальное значение=');readln(xmin);

write('конечное значение=');readln(xmax);

write('шаг=');readln(dx);

writeln('|___|___|');

writeln('| X | Y |');

writeln('|___|___|');

n:=trunc((xmax-xmin)/dx)+1;

x:=xmin;

for i:=1 to n do

begin

y:=A*sin(B*x)/x;

writeln('|',x:6:2,'|',y:7:2,'|');

x:=x+dx;

end;

writeln('|___|___|');

end.

Рис.9. Текст программы для задания 1.3.,вариант 2.

program prim_5;

{программа вычислений и вывода на экран таблицы значений функции с использованием оператора WHILE-DO}

var a,b:real;

xmin,xmax,dx:real;

x,y:real;

begin

write('A=');readln(a);

write('B=');readln(b);

write('начальное значение=');readln(xmin);

write('конечное значение=');readln(xmax);

write('шаг=');readln(dx);

writeln('|___|___|');

writeln('| X | Y |');

writeln('|___|___|');

x:=xmin;

while x < xmax+dx/2 do

begin

y:=A*sin(B*x)/x;

writeln('|',x:6:2,'|',y:7:2,'|');

x:=x+dx;

end;

writeln('|___|___|');

end.

Рис.10. Текст программы для задания 1.3.,вариант 3.

program prim_6;

{программа вычислений и вывода на экран таблицы значений функции с использованием оператора REPEAT-UNTIL}

var a,b:real;

xmin,xmax,dx:real;

x,y:real;

begin

write('A=');readln(a);

write('B=');readln(b);

write('начальное значение=');readln(xmin);

write('конечное значение=');readln(xmax);

write('шаг=');readln(dx);

writeln('|___|___|');

writeln('| X | Y |');

writeln('|___|___|');

x:=xmin;

repeat

y:=A*sin(B*x)/x;

writeln('|',x:6:2,'|',y:7:2,'|');

x:=x+dx;

until x > xmax+dx/2;

writeln('|___|___|');

end.

Рис.11. Текст программы для задания 1.3.,вариант 4.

Пример выполнения задания 1.4.

Условие задачи: Составить блок-схему алгоритма и программу для вычисления и вывода на экран таблицы значений функции

,

которая не определена на интервале (1.0,4.0)

Результаты работы программы должны быть представлены в виде таблицы:

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

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

шаг=0.5

----------------------

x | y

----------------------

3.00 |Функция не определена

3.50 |Функция не определена

4.00 | 0.00

4.50 | 1.32

5.00 | 2.00

5.50 | 2.60

6.00 | 3.16

----------------------

Здесь переменная xmin используется для обозначения начального значения аргумента Х, xmax - для обозначения конечного значения аргумента Х, dx - для обозначения шага, X и Y - для обозначения текущего значения аргумента и текущего значения функции, R -вспомогательная переменная.
program prim_7;

{программа вычислений и вывода на экран таблицы значений функции с использованием оператора WHILE и проверкой на допустимость вычисляемого значения}

var xmin,xmax,dx:real;

y,x,r:real;

begin

write('начальное значение=');readln(xmin);

write('конечное значение=');readln(xmax);

write('шаг=');readln(dx);

writeln('|___|___|');

writeln('| X | Y |');

writeln('|___|___|');

x:=xmin;

while x < (xmax+dx/2) do

begin

r:=x*x-5*x+4;

if (r>=0.0) then

begin

y:=sqrt(r);

writeln('|',x:6:2,'|',y:7:2,'|');

end

else

writeln('|',x:6:2,'|','Функция не определена');

x:=x+dx;

end;

writeln('|___|___|');

end.

Рис 12. Текст программы для задания 1.4.

Рис.13. Блок-схема для задания 1.4.

Пример выполнения задания 2.1.

Условие задачи: составить блок-схему алгоритма и программу для вычисления суммы бесконечного числового ряда:

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

Блок-схема алгоритма и вариант текста программы приведены на Рис.14,15.Переменная I обозначает номер, а переменная А- значение каждого слагаемого, входящего в сумму. Суммирование слагаемых продолжается до тех пор, пока выполняется условие A > d.
program prim_8;

var s,a,d:real;

i:integer;

begin

write('введите погрешность');readln(d);

s:= 0;

i:= 2;

a:= 1/4;

while abs(a) > d do

begin

s:= s+a;

inc(i,2);

a:= 1/sqr(i);

end;

writeln('сумма ряда =',s:8:5);

end.

Рис.14. Текст программы для задания 2.1.

Рис.15. Блок-схема для задания 2.1.

Пример 1 выполнения задания 2.2.

Условие задачи : В заданном целочисленном массиве A из 20 элементов найти сумму элементов, имеющих четное значение, и сумму элементов, имеющих нечетное значение.

Рис.16.Блок-схема для выполнения задания 2.2,пример 1.

Блок-схема алгоритма и текст программы изображены на Рис.16,17.Переменные S1 и S2 обозначают соответственно суммы четных и нечетных элементов, переменная I - порядковый номер элементов массива.

program prim_9;

type vector = array[1..20] of integer;

var A:vector;

i,s1,s2:integer;

begin

writeln('введите массив целочисленных значений');

for i:= 1 to 20 do

begin

write('A[',i,']=');

readln( A[i] );

end;

s1:= 0; s2:= 0;

for i:= 1 to 20 do

if A[i] mod 2 =0 then s1:= s1 + A[i]

else s2:= s2 + A[i];

writeln('сумма четных элементов=',s1);

writeln('сумма нечетных элементов=',s2);

end.

Рис.17. Текст программы для задания 2.2,пример 1.

Пример 2 задания 2.2.

Условие задачи : В заданном массиве X из N элементов найти элемент, имеющий максимальное значение, и его порядковый номер.

Переменная nmax обозначает порядковый номер элемента, имеющего максимальное значение. Переменная xmax содержит его значение. Массив X определен, как вектор вещественных значений, содержащий максимум 100 элементов. Реальное количество элементов вводится во время выполнения программы.

Поиск элемента, имеющего максимальное значение, и его порядкового номера выполняется в цикле FOR. Перед выполнением цикла предполагается, что максимальным является первый элемент массива. В цикле происходит сравнение всех последующих элементов с максимальным. Если очередной проверяемый элемент окажется больше, то он принимается за максимальный и т.д.

Блок-схема и текст программы изображены на Рис. 18,19.

Рис.18.Блок-схема алгоритма для задания 2.2,пример 2.
program prim_10;

type vector = array[1..100] of real;

var X:vector;

n,i,nmax:integer;

xmax:real;

begin

write('введите число элементов массива');

readln(n);

writeln('введите массив ');

for i:= 1 to N do

begin

write('X[',i,']=');

readln( X[i] );

end;

xmax:= X[1]; nmax:= 1;

for i:= 2 to N do

if X[i] > xmax then begin

xmax:= X[i];

nmax:= i;

end;

writeln('максимальный элемент массива=',xmax:8:4);

writeln('номер элемента=',nmax);

end.

Рис.19. Текст программы для задания 2.2,пример 2.

Пример выполнения задания 2.3.

Условие задачи : Ввести двумерный вещественный массив, выполнить его транспонирование: поменять строки и столбцы местами. Осуществить контрольный вывод исходного массива и массива результатов. Результаты работы программы должны быть представлены в виде:

Введите к-во строк и столбцов

2 2

Введите массив А

a(1,1)=1

a(1,2)=2

a(2,1)=3

a(2,2)=4

Массив A

1.0 2.0

3.0 4.0

Массив B

1.0 3.0

2.0 4.0

Рис.21.Блок-схема для выполнения задания 2.3.
program prim_11;

const row=10;col=10;

type

matr1=array[1..row,1..col] of real;

matr2=array[1..col,1..row] of real;

var

i,j,n,m:integer;

a:matr1; b:matr2;

begin

{ввод массива A}

writeln('Введите к-во строк и столбцов'); readln(n,m);

writeln('Введите массив А');

for i:=1 to n do

for j:=1 to m do

begin

write('a(',i:1,',',j:1,')=');

readln(a[i,j]);

end;

{вывод массива A}

writeln('Массив A');

for i:=1 to n do

begin

for j:=1 to m do write(a[i,j]:7:1);

writeln;

end;

{формирование массива В}

for i:=1 to n do

for j:=1 to m do

b[j,i]:=a[i,j];

{вывод массива B}

writeln('Массив B');

for i:=1 to n do

begin

for j:=1 to m do write(b[i,j]:7:1);

writeln;

end;

readln;

end.

Рис.21. Текст программы для задания 2.3.

Упрощенная блок-схема алгоритма и текст программы изображены на Рис.20,21.

4. ВАРИАНТЫ ЗАДАНИЙ

Задание 1.1.

Составить программу для вычисления по формулам. Предусмотреть задание исходных данных при помощи оператора ввода.

1. Треугольник задан длинами сторон a и b, и величиной угла С. Найти сторону с и площадь S данного треугольника.

;

, где

Предусмотреть ввод угла  в градусах и перевод его в радианы:

2. Треугольник задан длинами сторон. Найти длины высот :

;

3. Треугольник задан длинами сторон. Найти длины медиан:

;

4. Треугольник задан длинами сторон. Найти длины биссектрис:

;

5. Треугольник задан длинами сторон. Найти углы треугольника:

;

6.Даны два угла треугольника A, B и высота h_a . Вычислить площадь треугольника и две стороны по формулам:

;

7. Даны два угла треугольника B,С и высота h_a . Вычислить длины всех сторон по формулам:

;

8. В треугольнике заданы сторона a и углы В и С. Найти площадь S и стороны b и c:

;

9. В треугольнике заданы сторона a, высота h_a и угол С. Найти стороны b,с и площадь S.

;

10. Треугольник задан координатами своих вершин. Найти площадь треугольника:

;

Замечание: расстояние между точками A(x₁, y₁) и B(x₂, y₂), расположенными на плоскости рассчитывается:

11. Треугольник задан координатами своих вершин. Найти периметр треугольника.

12. Вокруг треугольника со сторонами a, b, c описана окружность. Определить ее радиус R, угол треугольника A и площадь, ограниченную стороной a и радиусами, проведенными в вершины B, C.

;

13. В окружность радиуса R вписан правильный треугольник. Определить длину его стороны a, площадь S и площадь круга S₀ , вписанного в треугольник:

;

14. Вычислить значения Z1 и Z2 по формулам:

;

15. Определить дальность полета тела, запущенного с начальной скоростью V₀ с высоты h под углом к горизонту  , пренебрегая сопротивлением воздуха. Траектория движения тела описывается уравнениями:

;

, где

, V_0x_, V_0y - компоненты скорости V₀ вдоль осей X и Y. Замечание: в момент падения тела Y=0.

Задание 1.2.

Составить блок-схему алгоритма и программу с использованием условного оператора. Предусмотреть задание исходных данных при помощи оператора ввода.

1. На плоскости задана прямоугольная система координат с осями OX и OY, которая делит плоскость на 4 квадранта. Составить программу, которая вводит координаты точки (X,Y) и сообщает, в каком квадранте или на какой оси расположена эта точка.

2. Найти действительные корни уравнения

для любых вводимых значений коэффициентов a, b, c, в том числе -равных нулю

3. Даны три числа A,B и C. Удвоить эти числа, если А > В > С, и заменить их абсолютными значениями, если это не так.

4. Даны действительные числа A,B,C и D. Если A < B < C < D, то каждое число заменить наибольшим из них, если A > B > C > D, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.

5. Дано действительное число А. Вычислить F(А),если

6. Даны действительные положительные числа А,В,С, X,Y. Выяснить, пройдет ли кирпич с ребрами А,В,С в прямоугольное отверстие со сторонами X и Y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.

7. Если значение переменной W не равно 0 и при этом котангенс от W меньше 0.5, тогда поменять знак у W, а если значение W равно 0, тогда присвоить W значение 1.

8. Даны действительные числа A и B. Найти корень уравнения

. Предусмотреть выдачу сообщения «Уравнение не имеет решения», если A равно нулю, а В не равно нулю, или «Уравнение имеет бесчисленное множество решений», если А и В равны нулю.

9. Решить систему уравнений по формулам Крамера:

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

10. Даны два числа M и N. Меньшее из этих двух чисел заменить их полусуммой, а большее - их удвоенным произведением. Вывести полученные значения.

11. Дано число Х. Напечатать в порядке возрастания:

;

12. Дано действительное число А. Для функции F(X), график которой представлен на Рис 21. вычислить F(A).

13. Дано действительное число А. Для функции F(X), график которой представлен на Рис 22. вычислить F(A).

Рис. 21 Рис.22

14. Даны действительные числа X,Y. Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости.(Рис.23)

15. Даны действительные числа X,Y. Определить, принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости. (Рис.24)

Рис.23 Рис.24

Задание 1.3.

Составить блок-схему алгоритма и программу для вычисления и вывода на экран таблицы значений функции. Вывод выполнить в два столбика: первый столбик - значения аргумента, второй - значения функции. При разработке программы следует учитывать область определения функции и в случае необходимости организовать печать сообщения - “функция не определена”.

Таблица 1

_________________________________________________________

Вар-т Функция нач.зн. кон.зн. шаг

_________________________________________________________
1. 0.1 1.25 0.1

2. 3 5.5 0.3

3. 0.5 3.75 0.5

4. -4 4.5 1

5. 0.1 1.25 0.1

6. 0.5 3.75 0.5

7. 3 5.5 0.3

8. 0.2 1.7 0.2

9. 0.3 3.7 0.4

10. 20 115 9

11. 0 2.2 0.4

12. -9.5 9.5 2.5

13. 0.5 3.75 0.5

14. -4 -2.5 0.2

15. -8 8 2.5

Задание 2.1.

Составить блок-схему алгоритма и программу для вычисления суммы бесконечного сходящегося ряда. Суммирование прекратить при появлении в сумме слагаемых, имеющих абсолютную величину, меньшую заданной погрешности d. Значение d задается при помощи оператора ввода.
1.

(суммирование осуществляется последовательно слева направо)

10.

(суммировать отдельно слагаемые со знаком + и слагаемые со знаком -.Затем второе значение вычитается из первого)

11.

12.

13.

14.

15.

Задание 2.2

Составить программу для выполнения заданных действий над массивом чисел. В программе предусмотреть ввод значений его элементов.

1. В заданном массиве А из N элементов есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.

2. В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля.

3. В заданном массиве X из N элементов умножить все элементы массива, имеющие четные номера на максимальный элемент всего массива.

4. В заданном массиве Y из N элементов вычислить сумму положительных элементов и произведение отрицательных.

5. В заданном массиве D из N элементов все отрицательные элементы заменить на их квадраты, а все положительные элементы разделить на 2.

6. В заданном массиве С из N элементов найти максимальный элемент и его номер, а также минимальный элемент и его номер.

7. В заданном массиве Z из 15 элементов вычислить сумму всех элементов за исключением элемента, имеющего максимальное значение.

8. В заданном целочисленном массиве P из N элементов вычислить произведение элементов, имеющих четные значения, а также количество положительных элементов.

9. В заданном массиве S из N элементов вычислить сумму и произведение элементов, значения которых больше заданного числа X (значение Х задается при помощи оператора ввода).

10. В заданном массиве Н из 30 элементов найти сумму первых 10 элементов, произведение последних 10 элементов и среднее арифметическое элементов, имеющих номера от 11 до 20.

11. В заданном массиве К из N элементов найти сумму элементов, имеющих четные номера, и произведение элементов ,имеющих нечетные номера.

12. В заданном массиве В из N элементов переставить местами первый и минимальный элементы, а также последний и максимальный элементы.

13. В заданном массиве М из N элементов заменить все элементы массива ,кратные 4, на единицы.

14. В заданном целочисленном массиве А из N элементов все элементы, дающие остаток от деления на 3, равный 2, заменить их удвоенным произведением.

15. В заданном целочисленном массиве Р из N элементов вычислить среднее арифметическое его элементов, имеющих четное значение.

Задание 2.3

Составить программу для выполнения заданных действий над двумерным массивом вещественных чисел A(N,M). В программе предусмотреть ввод значений его элементов, вывод исходной и, при необходимости, преобразованной матриц.

1. Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты отпечатать в виде двух строк.

2. Вычислить и запомнить сумму и число отрицательных элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов.

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

4. Вычислить сумму и число элементов матрицы, находящихся над главной диагональю и на ней.

5. Записать на место отрицательных элементов матрицы нули, а на место положительных элементов матрицы — единицы.

6. Найти максимальный элемент на главной диагонали матрицы и присвоить нулевые значения другим элементам строки и столбца, на пересечении которых он стоит.

7. Найти наибольший и наименьший элементы матрицы и поменять их местами

8. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.

9. Найти столбец с наибольшей и наименьшей суммой элементов. Вывести на печать найденные столбцы и суммы их элементов.

10. Каждый элемент строки разделить на предварительно рассчитанную сумму элементов этой строки.

11. Удалить последнюю строку матрицы и вывести ее на печать.

12. Удалить последний столбец матрицы и вывести ее на печать.

13. Найти максимальный элемент на главной диагонали матрицы.

14. Найти максимальный по модулю элемент матрицы и вычислить сумму столбца, в котором он находится.

15. Найти минимальный по модулю элемент матрицы и вычислить сумму строки, в которой он находится.

ПРИЛОЖЕНИЕ 1

Варианты заданий.

Таблица 2

Номер задания
N_вар	1.1	1.2	1.3	1.4	1.5	1.6
Номер задачи в задании
	1	4	11	10	3	10
	2	14	11	15	2	5
	15	7	13	4	10	14
	2	7	14	15	1	6
	7	11	12	9	1	6
	8	5	10	11	10	13
	6	15	9	15	6	3
	14	1	4	2	7	10
	6	11	10	11	14	1
	12	9	15	11	4	7
	5	3	14	12	11	8
	7	12	9	8	3	12
	5	12	3	7	6	10
	12	5	12	7	3	15
	15	12	7	4	3	8
	7	12	8	3	6	11
	11	3	7	14	3	2
	7	11	9	14	1	6
	9	4	6	13	8	13
	11	7	12	10	2	7
	3	14	13	5	5	9
	4	15	4	7	15	4
	14	2	7	12	7	10
	12	4	5	15	6	11
	8	14	1	9	10	11
	9	4	8	4	14	2
	2	5	1	3	2	5
	10	14	5	6	15	14
	7	3	2	5	6	8
	2	2	12	15	10	9
	14	14	2	6	6	6
	12	9	1	9	14	11
	1	2	8	7	14	6
	4	13	3	9	5	2
	4	4	7	5	5	13

ЛИТЕРАТУРА

Йенсен К. Руководство для пользователя и описание языка Паскаль /К. Йенсен, Н. Вирт: Пер. с англ. - М.: Мир, 1979. – 532 с.
Форсайт Р. Паскаль для всех /Р. Форсайт: Пер. с англ. - М.: Машиностроение, 1986. – 312 с.
Абрамов С.А. Начала программирования на языке Паскаль /С.А. Абрамов, Е.В. Зима - М.: Наука, 1987. - 114 с.
Перминов О.Н. Программирование на языке Паскаль / О.Н. Перминов - М.: Радио и связь, 1988. - 348 с.
Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо-Паскаль /В.В. Фаронов - М.: Изд-во МГТУ, 1990. - 547 с.
Джон З. Решение задач в системе Турбо-Паскаль: / З. Джон, К. Харроу: Пер. с англ. - М.: Финансы и статистика, 1991. 643 с.
Рапаков Г.Г. Программирование в среде Turbo Pascal. Часть 1 / Г.Г. Рапаков, Н. А. Бубнова, С.Ю. Ржеуцкая - Вологда: ВоГТУ, 2001. – 81 с.