Программирование в среде Турбо Паскаль. Закутский С.Н - 58 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

58
Здесь
uses
(использует) – служебное слово ;
<список модулей>
– имена
модулей, разделенных запятыми, к которым обращается данная програм-
ма . Указанное объявление должно открывать раздел основной программы.
В качестве примера ниже приводится текст модуля с именем
DemoMod,
в
котором запрограммировано вычисление целой степени n вещественного
числа f. Вычисление степени производится путем последовательного пе-
ремножения: f
n
= f
n-1
·f. В тексте модуля охарактеризована константа
Author
104
,
которой присваивается в качестве значения фамилия автора
модуля (в рассматриваемом примере ‘Иванов’). В инициирующую часть
помещен вывод сообщения ‘
Работает модуль DemoMod, автор: Иванов
’.
UNIT DemoMod;
INTERFASE
Const Author = ‘Иванов’;
Function St(f : real; n : integer) : real;
IMPLEMENTATION
Function St;
Var i:integer; b:real;
Begin
If n = 0
Then St:=1
Else begin
b:=f;
For i:=2 to Abs(n) do
b:=f*b;
If n < 0
Then St:=1/b
Else St:=b
End
End;
BEGIN
Writeln(‘Работает модуль DemoMod, автор:’, Author)
END.
После набора текста модуля его следует сохранить в файле
DemoMod.pas.
Созданный модуль используется в программе, вычисляющей
выражение S = a
5
+(a+1)
–7
. Значение а вводится с клавиатуры.
PROGRAM ModTest;
Uses DemoMod;
Var a,rsum : real;
BEGIN
WriteLn(‘Введите значение a’);
Readln(a);
104
Author [осо] – автор.

Страницы