Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 83 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

82
procedure
function
begin {инициализация }
<операторы> {исполняются один раз перед выполнением
}
{операторов программы
, включающей модуль }
end.
Пример использования модуля.
Рассмотрим программу, которая включает модуль
Math, содержа-
щий функцию
power(a,b) возведения числа a в произвольную сте-
пень
b и функцию log(c) вычисления десятичного логарифма числа c.
Исходный текст модуля сохраняем в файле
Math.pas:
unit Math;
interface
function power( base, exponent: real): real;
function log ( argument : real): real;
implementation
function power( base, exponent: real): real;
begin
power:= exp( exponent * ln(base));
end;
function log ( argument : real): real;
const
base=10;
begin
log:= ln(argument) / ln(base);
end;
end.
После его успешной компиляции создается файл Math.tpu (рас-
ширение
tpu – Turbo Pascal Unit). Разместим этот файл в том же ка-
талоге, что и текст программы
ex_Math. 
   procedure
   function
  begin       {инициализация }
  <операторы> {исполняются один раз перед выполнением }
              {операторов программы, включающей модуль }
  end.


   Пример использования модуля.
   Рассмотрим программу, которая включает модуль Math, содержа-
щий функцию power(a,b) возведения числа a в произвольную сте-
пень b и функцию log(c) вычисления десятичного логарифма числа c.
   Исходный текст модуля сохраняем в файле Math.pas:
  unit Math;
  interface
   function power( base, exponent: real): real;
   function log ( argument     : real): real;
  implementation
   function power( base, exponent: real): real;
   begin
     power:= exp( exponent * ln(base));
   end;
   function log ( argument : real): real;
    const
     base=10;
   begin
     log:= ln(argument) / ln(base);
   end;
  end.
   После его успешной компиляции создается файл Math.tpu (рас-
ширение tpu – Turbo Pascal Unit). Разместим этот файл в том же ка-
талоге, что и текст программы ex_Math.




                                82

Страницы