Функции

 

24. Вычислить значение функции

Program Step;

Uses crt;

var x, k: Integer;

y: Longint;

 

Function Fact (b: Integer):Longint;

var i: byte;

r:Longint;

Begin

r:=1;

for i:=1 to k do

r:=b*r;

Fact:=r;

End;

 

BEGIN

ClrScr;

writeln ('введите число:');

readln (x);

writeln ('в какую степень:');

readln (k);

y:=Fact(x);

Writeln ('y=',y);

readln;

END.

 

Данная методичка не является Догмой, она дорабатывается, обкатывается! Все замечания и предложения только приветствуются! Уважаемые коллеги! Оцените, пожалуйста сей труд!

 

Огромная благодарность Учителю информатики, зам. директора по информатизации из г. Тольятти Владимиру Александровичу Никишину <vlad_an@mail.ru>. Все его замечания учтены! Спасибо!

 

 

С уважением,

Автор: Ямкина Елена Владимировна, учитель информатики высшей категории.

Ульяновск, Муниципальное образовательное учреждение средняя общеобразовательная школа №37

shk37@access.uven.ru shk37-ul@narod.ru