unit nub;
interface
function Power(var st,nm,i:integer data: integer):integer;
implementation
function Power(var st,nm,i:integer data: integer):integer;
begin
for i:=0 to st do nm:=nm*nm;
Power:= nm;
end;
end.
Я хочу сделать небольшой модуль
в нём будет функция возведения в степень
и я уже чтото делаю неправильно
но что?
------------ Дoбавленo в 23.54:
P.S
Входные данные - st и nm
там както всё надо расставить
------------ Дoбавленo в 00.04:
moduleunit nub;
interface
function Power( i:integer; var st,nm:integer):integer;
implementation
function Power( i:integer; var st,nm:integer):integer;
begin
for i:=0 to st do nm:=nm*nm;
Power:= nm;
end;
end.
interface
function Power( i:integer; var st,nm:integer):integer;
implementation
function Power( i:integer; var st,nm:integer):integer;
begin
for i:=0 to st do nm:=nm*nm;
Power:= nm;
end;
end.
Немного исправил,но всёравно неработает
Поиск
Друзья
Администрация