Калькулятор Опции

[Наська]

Помогите! Ума не приложу как сделать икс в степени игрик?

[мисс_граффити]

FAQ читать не пробовала?
Общие вопросы по математике.

[St@senk@]

А почему Power не подходит ?

[мисс_граффити]

Тогда надо подключить модуль math
З.Ы. Заходила из "обзора непрочитанных" и не обратила внимание, что тема в Delphi, а не в задачах...

[Kirill_]

Помогите! Ума не приложу как сделать икс в степени игрик?

А так не пойдет. Код написан на Паскале.

Код

var
   x1,x2,y,i:integer;
begin
write('x');
readln(x1);
write('y');
readln(y);
x2:=x1;
     for i:=0 to y do
         begin
              if y=0 then begin
                          x1:=1;
                          break;
                          end;
              x1:=x1*x2;
         end;
     x1:=x1 div (x2*x2);
writeln(x1);
readln;
end.

[St@senk@]

А если Y дробный?

[Lapp]

Kirill, твой код работает только для неотрицательных целых степеней (как уже заметил St@senk@), но если уж на то пошло, позволь дать совет.
Читай значение х с клавы в х2, а в х1 положи 1.
Цикл делай от 1 до y.
Тогда можно выбросить проверку на y=0 и деление после цикла.
Ок?

[Kirill_]

Понял как делать.
Сутра код выложу. Спать охота.

Сообщение отредактировано: Kirill_ - 23.03.2007 5:24

[Наська]

А как плюс/минус сделать???

[St@senk@]

Код

var a,b,res : integer;
...
res:=a+b; //сумма
res:=a-b; //разность
res:=-a; // изменение знака на противоположный

[Гость]

А факториал можешь? Срочно11111

[мисс_граффити]

Поиском пользуйся. 100 раз решалось!

[St@senk@]

 
Function Factorial(n:Integer):Integer;Assembler;
Asm
 MOV CX,[n]
 MOV AX,1
@@1:
 MUL CX
 LOOP @@1
End;

Вот это пожалуй самое быстрое из красивых реализаций факториала, которе я видел.


Добавлено через 3 мин.
кажется, я потихоньку научаюсь искать
факториал
Если делаешь калькулятор, то неплохо было бы добавить сюда проверку того, что а>=0, и напомню, что 0!=1

[Наська]

Вот факториал

procedure TForm1.Button30Click(Sender: TObject);
var
  ves,i,j: byte;
begin
  ves := 1;
  j := StrToInt(Edit1.Text);
  for i := 1 to j do
     begin
       ves := ves*i
     end;
  Edit1.Text := IntToStr(ves);
end;

end.

[St@senk@]

Вот видишь, у тебя получилось , поздравляю, но проверку я бы добавил.

[Наська]

А такой ряд, как посчитать 1!*2!"*3!*4!*...n! ???

[Lapp]

как посчитать 1!*2!"*3!*4!*...n! ???

Назовем такую функцию "супер-факториал"
Если у тебя уже есть функция для вычисление обычного факториала, то наш супер-факториал вычислить можно так:

function Factorial(x:integer):LongInt;
begin
  if x=0 then Factorial:=1 else Factorial:=x*Factorial(x-1)
end;

function SuperFactorial(x:integer):LongInt;
begin
  if x=0 then SuperFactorial:=1
  else SuperFactorial:=Factorial(x)*SuperFactorial(x-1)
end;

Оффтоп: держу пари, твой преп задал тебе этот "супер" после того, как ты принесла ему обычный факториал без рекурсии..

[Наська]

Да нет, она всем задала
Спасибо, это просто супер...суперфакториал .

[Наська]

а можно еще один вопросик? а как его вывести
FloatToStr не хочет. как правильно-то,

[St@senk@]

inttostr попробуй