ВУЗ:
Составители:
61
Продолжение приложения В
Пример:
Составить программу для вычисления a
n
, целые числа a и n (n
0) вводятся
с клавиатуры.
Решение:
Составим процедуру для вычисления степени целого числа.
Procedure Degree(x,y:integer; var st:longint);
Var i:integer; {описательная часть}
Begin {тело процедуры}
st:=1;
For i:=1 To y Do st:=st*x;
End;
Первая строчка описания – это заголовк процедуры, который начинается со
слова Procedure. Процедура названа именем
Degree. В скобках записан список
формальных параметров, то есть перечислены переменные с указанием их типа.
Мы используем три параметра: первый – основание степени, то есть число,
которое надо возвести в степень; второй – показатель степени, третий –
результат. Первые два формальных параметра - параметры-значения, третий –
параметр-переменная, и перед ним указано слово Var. Все
они описаны как
целые (
x и y – переменные типа integer; а St – типа longint, так как степенная
функция быстро возрастает).
После заголовка процедуры идут разделы описаний. В нашем примере
имеется только раздел описания переменных, в котором описывается одна
переменная
i (счетчик цикла).
Далее идет тело процедуры. Оно начинается служебным словом Begin и
заканчивается служебным словом End, после которого стоит точка с запятой ( в
конце программы после последнего End ставится точка). В теле процедуры
вычисляется степень числа
x с помощью цикла For.
В программе процедуры и функции описываются после раздела описания
переменных программы, но до начала ее основной части, то есть до Begin,
начинающего эту часть.
Вся программа для решения задачи имеет следующий вид:
Program
Example_1;
Var a, n:integer;
s:longint;
Procedure Degree(x,y:integer; var st:longint);
Var i:integer;
Begin
st:=1;
For i:=1 To y Do st:=st*x;
End;
Begin
Writeln('введите два числа - основание и показатель степени');
Readln(a,n);
Страницы
- « первая
- ‹ предыдущая
- …
- 59
- 60
- 61
- 62
- 63
- …
- следующая ›
- последняя »