Hhvhyc

  • 24 апр. 2012 г.
  • 908 Слова
Лабораторная работа 2_7

Использование библиотеки модуля CRT



Теоретический материал
Справочник по использованию библиотеки модуля CRT


Цель работы: научиться решать задачи сиспользованием процедур и функций библиотеки модуля CRT.

Общие сведения:

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


Примеры

Пример 1. Написать программу вычисления суммы четныхэлементов квадратной матрицы ниже побочной диагонали и вывода результата в текстовом окне.
Program PR_1;
Uses crt;
Const n=5;
a:array[1..n,1..n] of integer=((0,1,2,3,4),(5,6,7,8,9),(5,1,2,3,4),(5,6,7,8,9),(0,1,2,3,4));
Var i,j:byte; k:integer;
Begin
Textbackground(0);
clrscr;
Textcolor(5);
Window(5,5,21,12);
Textbackground(3);
Clrscr;
Writeln('Данаматрица:');
For i:=1 to n do
Begin
For j:=1 to n do
Begin
if (i+j>n+1)and(a[i,j] mod 2=0)and(A[i,j]0) THEN
Begin TextColor(4); k:=k+a[i,j]
End
elseTextcolor(0);
write(a[i,j]:3);
End;
Writeln;
End;
Textcolor(0);
Writeln;
Window(26,10,78,13);
Textbackground(13);
Clrscr;
Writeln(' Задание:найти сумму четныхэлементов,расположенных');
Writeln(' ниже побочной диагонали');
Writeln;
Window(50,19,65,20);
Clrscr;
Write('Результат ');
Writeln(k);
Readln;
End.

Контрольные вопросы
1. Что представляетсобой модуль CRT?
2. Каково назначение модуля CRT?
3. Как подключить модуль?
4. Какие процедуры и функции входят в состав модуля?

Задания
1. Ввести массив из n чисел. Далее требуется:
а)упорядочить массив по возрастанию. Вывести данные в окно, расположенное в нижней части экрана. Каждое значение упорядоченного массива должно появляться через 3 секунды в...
tracking img