IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

2 страниц V  1 2 >  
 Ответить  Открыть новую тему 
> Калькулятор
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


Помогите! Ума не приложу как сделать икс в степени игрик?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


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


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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



--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


Цитата(Наська @ 22.03.2007 21:55) *

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


А так не пойдет. Код написан на Паскале.
Код
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.



--------------------
... И сказал Господь: " Да будет свет ! "
И откомпилировал исходники своя, и нажал F5,
и снизошел свет в мир сей ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


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


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Кирилл

Репутация: -  0  +


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

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


--------------------
... И сказал Господь: " Да будет свет ! "
И откомпилировал исходники своя, и нажал F5,
и снизошел свет в мир сей ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


А как плюс/минус сделать??? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


Код

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


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






А факториал можешь? Срочно11111
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


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


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


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


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


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

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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


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


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


А такой ряд, как посчитать 1!*2!"*3!*4!*...n! ???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Наська @ 26.03.2007 7:37) *

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

Назовем такую функцию "супер-факториал" smile.gif
Если у тебя уже есть функция для вычисление обычного факториала, то наш супер-факториал вычислить можно так:
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;
Оффтоп: держу пари, твой преп задал тебе этот "супер" после того, как ты принесла ему обычный факториал без рекурсии.. smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


Да нет, она всем задала
Спасибо, это просто супер...суперфакториал cool.gif .
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


а можно еще один вопросик? а как его вывести
FloatToStr не хочет. как правильно-то,
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской
Реальное имя: Максим

Репутация: -  1  +


inttostr попробуй


--------------------
Три пути ведут к знанию: путь размышления - это путь самый благородный, путь подражания - это путь самый легкий и путь опыта - это путь самый горький.
Конфуций
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V  1 2 >
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 5:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name