Модульное программирование. Стандартные модули. Назначение и использование.
Модуль – библиотека констант, переменных, процедур, функций, данных. Каждый модуль транслируется отдельно и может быть использован в программах пользователей. Турбо Паскаль имеет 10 предопределений модулей, которые могут быть использованы для программ реального режима ДОС. Модули могут быть в виде PAS файлов с исходными текстами и в виде объектных модулей TPU в файлах. Паскаль содержит следующие стандартные модули: System, Dos, CRT,Printer,GRAPH,Overlay. В библиотеке модулей, которые называются turbo.tpl содержатся модули System,Dos,CRT,Printer,Overlay. Остальные Graph,String,Windos,Turbo3,GraphS находятся в отдельных файлах библиотеки Turbo Vision. Максимальная длина сегмента модуля может быть не более 64к.байт. Количество используемых модулей ограничиваются только внешней памятью. Структура модуля. Он состоит из заголовка ( (1)интерфейсная оболочка; 2)исполняемая часть или часть реализации; 3) инициализирующая часть ); 1) interface (а)uses – глобальные объекты модуля; б)заголовки процедур и функций с параметрами); 2)implementation (а) локальные процедуры и функции; б)тексты процедур и функций); 3) может начинаться служебным словом begin, а может на начинаться этим словом. Важно, чтобы она заканчивалась служебным словом end. В этой части, если это требуется, могут открываться нужные файлы и инициализироваться переменные. Использование модулей. Для использования модулей надо: после оператора programставим служебное слово USES Printer,Crt,Graph; Модуль System подключается автоматически без указания его в uses. Краткое описание модулей. Модуль System – это библиотеку поддержки Турбо Паскаль. Он обеспечивает выполнение низкоуровневых программ, таких как файловый ввод, вывод, обработка строк, операции с плавающей запятой и управление динамической памятью. Все модули и программы Паскаля автоматически используют модуль System. Модуль DOS и WinDOS – эти модули поддерживают большинство наиболее часто используемых функций операционной системы и обработки файлов. Модуль WinDos в отличии от модуля Dos используют специальный тип строки завершающейся нулем и предназначенный для взаимодействия с операционной системой Windows. Модуль CRT дает возможность управлять чтением расширенных кодов клавиатуры, экранным режимом, использовать звук, цвет и окна. Модуль Printer позволяет перенаправлять стандартный вывод Турбо Паскаля на принтер, используя процедуры writeln,write.
Образцы решений задач
1. Написать программу для вычисления функции:
на промежутке [-20,20] с шагом 0,5
Ответ
Program prim1;
var x,y:real;
begin x:=-20;
while x<=20 do {цикл смены X из интервала [-20,20] }
begin
if x<-10 then y:=2-x else {проверка условия}
if x<-5 then y:=x-x*x else
if x<2 then y:=x*x*x else
y:=sqrt (x);
writeln ('y=',y:6:2,'при x=',x:6:2);
x:=x+0.5;
end;
end.
2. Сформировать двухмерный массив, состоящий из n X n элементов.
После чего: найти сумму элементов столбца, в котором расположен минимальный элемент матрицы.
Ответ
program prim2;
uses crt;
const n=13;
var a:array[1..n,1..n] of integer; {объявляем двухмерный массив}
s,min:integer;
i,k,j:byte;
begin
clrscr;
writeln ('Элементы матрицы ->');
randomize; {инициализация процедуры генерации случайных чисел}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random (100) {заполняем массив случайными числами в диапазоне от 0 до 100};
write (a[i,j],'':5);
end;
writeln;
end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if min>a[i,j] then
begin
min:=a[i,j];
k:=j;
end;
for i:=1 to n do
s:=s+a[i,k];
writeln ('Сумма элементов столбца ',k,' в котором расположен Min=',min,' равна->',s);
readkey
end.
3. Задан двумерный массив A (NxN). Найти, сколько отрицательных эллементов массива А=a[i,j] удовлетворяют условию: -110<=a[i,j]<=-1. Из этих элементов сформировать новый массив В.
Ответ
program prim3;
uses crt;
const n=5;m=10;
var a:array[1..n,1..n] of integer; {объявляем двухмерный массив}
b:array[1..m] of integer; {объявляем одномерный массив} r,i,j:integer;
begin
clrscr;
writeln ('Элементы матрицы ->');
randomize; {инициализация процедуры генерации случайных чисел}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random (200+200)-200; {заполняем массив случайными
числами в диапазоне от -200 до 200}
write (a[i,j]:5,' ');
end;
writeln;
end;
r:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[I,j]<0 then
if (a[I,j]>=-110)and (a[I,j]<=-1)then {проверяем условие}
begin
r:=r+1; b[i]:=a[i,j]; write (b[i]:3,',');
end;
end;
end;
writeln;
writeln ('условию удовлетворяют ',r,' элемента массива' );
readln
end.
4. Известно, что в текст Т входит восклицательный знак. Подсчитать в последовательности символов, предшествующих восклицательному знаку количество пробелов.
Ответ
Program prim4;
var t: string;
I: byte; {счетчик цикла}
c: byte; {количество пробелов}
Begin
write ('введите текст:');
readln (t);
I:=1; c:=0;
while t[i]<>'!' do
Begin
if t[i]=' ' then
inc (c); inc (i); {увеличение на 1}
end;
writeln ('количество пробелов равно',с)
end.