TURBO PASCAL:Учебное пособие. Терёхин В.В. - 96 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

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

Рубрика: 

96
Задача:
Написать функцию для возведения целых чисел в нату-
ральную степень.
program р35;
function fstep(x, n: integer) : Longint;
{x - целое число, n - натуральная степень }
var
i: integer;
p: Longint ;
begin
p:= x;
for i:= 2 to n do
p:= p * x;
fstep:= p; {- значение функции}
end;
begin
Writeln (fstep (3 , 3));
Writeln (fstep (5, 6) ) ;
Writeln(fstep(7, 4));
end.
Задача:
Решить предыдущую задачу используя процедуру.
program рЗб;
procedure pstep(x, n: integer ; Var p: Longint);
{x целое число, n - натуральная степень, р -
результат выполнения процедуры, передаваемый
через параметр-переменную}
var
i: integer;
begin
p : = x ;
for i: = 2 to n do p := p * x;
end;
var 
        Задача:
        Написать функцию для возведения целых чисел в нату-
ральную степень.
program р35;
function fstep(x, n: integer) : Longint;
{x - целое число, n - натуральная степень }
var
   i: integer;
   p: Longint ;
begin
   p:= x;
   for i:= 2 to n do
       p:= p * x;
   fstep:= p; {- значение функции}
end;
begin
   Writeln (fstep (3 , 3));
   Writeln (fstep (5, 6) ) ;
   Writeln(fstep(7, 4));
end.
        Задача:
Решить предыдущую задачу используя процедуру.
program рЗб;
procedure pstep(x, n: integer ; Var p: Longint);
{x      целое число, n - натуральная степень, р -
результат выполнения процедуры,             передаваемый
через параметр-переменную}
var
   i: integer;
begin
   p:=x;
   for i: = 2 to n do p := p * x;
end;
var
                                                          96

Страницы