Цитата:
|
Сообщение от cash
мне нужно (-1)^(j+1) сделать
|
Введите функцию от (J):
Код:
function Minus1Pow(const J: LongWord): Integer;
begin
if Odd(J) then Result:= -1
else Result:= 1;
end;
Кстати, в Delphi Pi это также функция, а не число, как у нас, людей.
Пример проверки:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:= IntToStr(Minus1Pow(StrToInt(Edit1.Text)));
end;
(в Edit1 вводишь неотр. целое число, в Edit2 - результат)
Пардон, не заметил, что в соседнем ответе привели готовую ф-цию Power.