Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Pascal.DOC
Скачиваний:
23
Добавлен:
21.03.2015
Размер:
1.77 Mб
Скачать

Практическое задание n 1. 33

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

1_1. суммой элементов в столбцах матрицы "A" (NxM),

1_2. суммой элементов в строках матрицы "A" (NxM),

1_3. наибольшими элементами в строках матрицы "A" (NxM),

1_4. наименьшими элементами в строках матрицы "A" (NxM).

1_5. наибольшими элементами в столбцах матрицы "A" (NxM),

1_6. наименьшими элементами в столбцах матрицы "A" (NxM). N=30, M=10.

Значения элементов матрицы "A" определяются в основной программе функцией Random(10), N=15, M=6. Программа выводит на экран значения элементов массивов "A" и "В".

2. Составить модуль, содержащий процедуры или функции для расчета:

2_1. скалярного произведения двух векторов "A" и "B" длиной "N", т. е.

С= A * B = a1*b1 + a2*b2 + ... + aN*bN, где N<=100.

2_2. суммирования двух матриц "A" и "B" размером (МxN), N<=30, M<=30, т. е.

С= A + B , где c11= a11+ b11; b12 = a12+ b12; и т. д. cMN = aMN+ bMN.

2_3. умножения двух матриц "A" (МxN) и "B" (NxK) , N<=30, K <=30, M<=30, т. е. С= A * B , где cij= ai1* b1j+ ai2* b2j + ... + aiN* bNj ; и т. д.

Элемент с индексом "i, j" новой матрицы "С" (МхК) получается как сумма произведений элементов i -ой строки матрицы "A" на соответствующие элементы j -ого столбца матрицы "В".

Значения элементов матрицы "A" определяются в основной программе функцией Random(200), М=5, N=10. Программа выводит на экран массивы "A", "В" и "С".

66

1. 14. Модуль сrt

1. 14. 1. Управление экраном в текстовом режиме

Модуль CRT служит для управления экраном в текстовом режиме, а также для управления клавиатурой и звуковыми сигналами. Модуль содержит библиотеку процедур (подпрограмм) и функций, которые выполняются при их вызове. Модуль подключается в начале раздела описания основной программы оператором Uses CRT;

Наименование Параметры процедуры Результат выполнения

процедуры процедуры

TextMode(N); N - тип Word Задание текстового режима

N=0 (40x25)-CGA- ч. б. работы монитора.

1 Xm x N=1 (40x25) -CGA, Экран очищается, курсор

1 N=2 (80x25) -EGA, VGA, устанавливается в позицию 1, 1.

N=3 (80x25) цветной Цвета - исходные: белые

N=N+256 (80x43)-EGA цветной символы на черном экране

Ym (80x50)-VGA цветной Наибольшие значения координат

N=7 (80x25)-монохромный; Хm:= Lo(WindMax)+1;

y ( 80 колонок х 25 строк ); Ym:= Hi(WindMax)+1;

Window(x1, y1, x2, y2); Задание окна на экране.

x1 x2 x1, y1, x2, y2 - тип Byte. Курсор устанавливается в пози-

y1 цию (1, 1) в системе координат

1 <= x1 < x2 <= Xm окна.

y2 1 <= y1 < y2 <= Ym Превышение координат экрана

в системе координат экрана. игнорируется.

TextBackGround(N); N - тип Byte Назначение цвета фона.

0 <=N<= 7 При N>7 N:= N mod 8

Clrscr; Использование процедуры Очистка активного окна, экрана

после TextBackGround(N); курсор устанавливается в пози-

закрашивает активное окно. цию (1, 1). Закрашивание окна.

TextColor(N); N - тип Byte Назначение цвета символов.

0 <=N<= 15 При N>15, N:= N mod 16,

а также при N:= N + 128 -

вывод мерцающих символов

GotoXY(x, y); x, y - тип Byte Установка курсора в позицию

( x, y ) в системе координат

активного окна, экрана.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]