Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 37 стр.

UptoLike

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

37
Рассмотрим задачу с использованием процедуры
Задача 8. Составить программу вычисления степени Z=a
m
, где m –
любое целое (положительное или отрицательное) число и ‘a’ не равно нулю.
Для решения использовать процедуру с параметром.
a
m
, если m>0;
Z = 1, если m=0;
1/(a)
m
, если m<0.
Учитывая, что 1/(a)
-m
= (1/a)
-m
, и используя процедуру с параметром, составим
программу.
Программа решения задачи имеет вид:
program step; {заголовок программы}
var {описание переменных}
m:integer; {показатель степени}
a,z:real; {число, результат}
procedure step1 (n:integer; x:real;var y:real); {заголовок процедуры}
var
i:integer;
begin {операторная часть процедуры}
y:=1;
for i:=1 to n do {цикл для вычисление степени}
y:=y*x; {цикл для вычисление степени}
end; {конец процедуры}
begin
writeln (' Введите a,m '); {вывод сообщения}
readln (a,m); {
ввод с клавиатуры значений в массив}
If m=0 then z:=1 {проверка условия, выполнение оператора}
else if m>0 then step1(m,a,z) {иначе проверка условия, выполнение
оператора}
else step1(-m,1/a,z); {иначе выполнение оператора}
writeln (a:4:2,' в степени ',m:3,' равно ',z:4:2); {вывод результата}
end. {конец программы}
2.5.2. Функции
Функцияэто подпрограмма, результат выполнения которой есть
единственное скалярное значение, присваиваемое имени этой функции.
Функция является частным случаем
процедур. Отличия процедуры от функции:
- результат выполнения функцииодно значение, а процедурыодно
или несколько;
- результат выполнения функции передается в основную программу как
значение имени этой функции, а результаты выполнения процедурыкак
значение ее параметров.
Заголовок функции представляет собой:
FUNCTION < и м я> : тип,
где FUNCTION – служебное слово;