- Главная
- Без категории
- Модули. Введение
Содержание
- 2. ВВЕДЕНИЕ Когда программа превышает определенный объем или когда одновременно несколько человек хотят работать н ад программой
- 3. Структура модуля unit das; Interface procedure p (a,b:real ); implementation procedure p (a,b:real ); begin end;
- 4. Unit MyUnit; Interface Function f(n:Integer):Longint; Implementation Function f(n:Integer):Longint; Var i: Integer; Result: Longint; begin Result:=1; {0!=1}
- 5. Стандартные модули SYSTEM, CRT, GRAPH, DOS, PRINTER
- 6. Стандартные модули SYSTEM, CRT, GRAPH, DOS, PRINTER
- 7. Стандартные модули
- 9. Скачать презентацию
ВВЕДЕНИЕ
Когда программа превышает определенный объем или когда одновременно
несколько человек хотят работать
ВВЕДЕНИЕ
Когда программа превышает определенный объем или когда одновременно
несколько человек хотят работать
можно разбить программу на части. Такое разбиение программы
называется построением ее по модульному принципу. При этом
можно выделить три ступени:
- разбиение на модули исходной программы;
- разбиение на модули программы в объектных кодах ;
- раздельная трансляция модулей исходной программы .
Модули позволяют реально построить программу по модульному
принципу, когда части программы можно компилировать по отдельности.
Структура модуля
unit das;
Interface
procedure p (a,b:real );
implementation
procedure p (a,b:real );
begin
end; (
Структура модуля
unit das;
Interface
procedure p (a,b:real );
implementation
procedure p (a,b:real );
begin
end; (
end.
Интерфейсная часть описывает константы, типы, переменные, процедуры и функции " общего пользования , к которым с помощью uses имя_модуля могут обращаться другие программы или модули .
Вызывающая программа может использовать эти модули, обратившись к ним с помощью uses имя_модуля, также, как если бы они были описаны в самой программе. Все вызванные величины являются для вызывающей программы глобальными. В интерфейсной части стоят лишь заголовки процедур и функций.
Наряду с этим здесь могут описываться константы, типы, переменные, процедуры и функции, которые не общедоступны, а используются модулем " приватно
Unit MyUnit;
Interface
Function f(n:Integer):Longint;
Implementation
Function f(n:Integer):Longint;
Var i: Integer;
Result:
Unit MyUnit;
Interface
Function f(n:Integer):Longint;
Implementation
Function f(n:Integer):Longint;
Var i: Integer;
Result:
begin
Result:=1; {0!=1}
for i:= 1 to n do Result:= Result*i;
f:= Result;
end;
end.{конец модуля}
{ОСНОВНАЯ ПРОГРАММА}
Program fact;
Uses MyUnit; {подключение модуля вычисления факториала MyUnit }
Var m:integer;
Begin
Writeln (‘Введите m’);
Readln(m);
Writeln (‘m!+(m2)! = ’, f(m)+f(m*m):2:2 );
End.
При компиляции модуля на Паскале автоматически создается модуль с расширением имя модуля.TPU
Пример. Описать модуль, содержащий функцию вычисления n! и программу, вычисляющую m!+(m2)!
Стандартные модули
SYSTEM, CRT, GRAPH, DOS, PRINTER
Стандартные модули
SYSTEM, CRT, GRAPH, DOS, PRINTER
Стандартные модули
SYSTEM, CRT, GRAPH, DOS, PRINTER
Стандартные модули
SYSTEM, CRT, GRAPH, DOS, PRINTER
Стандартные модули
Стандартные модули