Меню сайта

Задача №3

Найти —xnc -помощью функции возведения в степень.


Program func3-

Uses crt-

Var n,x,rez:integer-

Function Step (x,k: integer): longint-

var i,p: integer-

begin

p:=1-

for i:=1 to k do p:=p*x-

step:=p-

end-

begin

ClrScr-

Writeln(‘введите n’)-

readln(n)-

Writeln(‘введите x’)-

readln(x)-

rez:=step(x,n)-

Writeln(‘степень=’,rez)-

Readln-

End.

Категория: Подпрограммы | Дата: 31.12.12

Меню раздела
Блок