Вверх ↑
Ответов: 1321
Рейтинг: 37
#1: 2011-05-02 00:04:50 ЛС | профиль | цитата

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:
module
unit 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.

Немного исправил,но всёравно неработает
карма: 0

0