Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Рекурсивная функция, не работает 
V
    Опции темы
navi
  Дата 12.12.2008, 20:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет



Всем привет!!!! задача такая!
написать программу которая вычисляет a в степени b! 
Код

Program p1;
var e:longint;
function f(a:integer;b:integer):longint;
begin
if b=0 then f:=1 else
f:=a*f(a,b-1);
end;
Begin
e:=f(2,3); writeln(e);readln;
end.

сколько пытался так и этак! не получается! smile 
выдаёт ошибку!
компилятор borland delphi 7! создал консольное приложение!

Это сообщение отредактировал(а) navi - 12.12.2008, 22:44
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
bems
Дата 12.12.2008, 20:23 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88



убери точку с запятой перед закрывающей скобкой и в начала добавь {$APPTYPE CONSOLE}


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Metalex
  Дата 12.12.2008, 23:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет



navi, 
Если тебе нужно вычислить a в степени b, то не мучайся и не придумывай велосипед.
Это находится так:
Код

k:=exp(b*ln(a));

Обладая нехитрыми знаниями логарифмов можно заметить, что так и получится. Кстати, так можно находить корни степеня больше 2 - если b задать дробным.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
volvo877
Дата 13.12.2008, 00:02 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Цитата(Metalex @  12.12.2008,  22:48 Найти цитируемый пост)
Если тебе нужно вычислить a в степени b, то не мучайся и не придумывай велосипед.
Велосипед-то велосипед, но работает получше, чем твое знание логарифмов... Попробуй, например, своим способом вычислить значение при A = (-2) и B = 3... А программой из первого поста - легко...
PM MAIL   Вверх
Metalex
Дата 13.12.2008, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет



Цитата(volvo877 @ 13.12.2008,  00:02)
Велосипед-то велосипед, но работает получше, чем твое знание логарифмов... Попробуй, например, своим способом вычислить значение при A = (-2) и B = 3... А программой из первого поста - легко...

Так оно и есть, но все зависит от случая.. А насчет логарифмов - это не я написал, эт из одного учебника. Иногда лучше логарифмы применять - короче будет.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
navi
Дата 13.12.2008, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет



Цитата(volvo877 @  13.12.2008,  00:02 Найти цитируемый пост)
А программой из первого поста - легко... 

Но мой компилер выдаёт ошибку! почему? а вообще мой код правильный?
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
Juice
Дата 13.12.2008, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 30
Регистрация: 13.1.2007

Репутация: нет
Всего: нет



А что за ошибка?
PM MAIL   Вверх
source777
Дата 13.12.2008, 16:24 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: нет
Всего: 56



Цитата(navi @  12.12.2008,  20:03 Найти цитируемый пост)
задача такая!
написать программу которая вычисляет a в степени b! 
компилятор borland delphi 7! создал консольное приложение!

Код

uses Math;
...
IntPower(-2, 3); // и никаких велосипедов с квадратными колёсами не надо...




--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
navi
Дата 13.12.2008, 19:39 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет



Цитата(source777 @  13.12.2008,  16:24 Найти цитируемый пост)
код Pascal/Delphi
1:
2:
3:

uses Math;
...
IntPower(-2, 3); // и никаких велосипедов с квадратными колёсами не надо...

Чувак мне на паскале надо!!!! у меня просто не другой среды и по этому я использую Делфи!!!
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
bems
Дата 13.12.2008, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88



чувак, учти мои замечания выше и если снова не заработает, процитируй текст сообщения об ошибке!!!!!!!!!!


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Metalex
Дата 13.12.2008, 21:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет



У меня Borland Pascal 7.0 программа из первого поста работает smile Ее уже исправили по ходу..


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
source777
Дата 13.12.2008, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1878
Регистрация: 12.3.2007

Репутация: нет
Всего: 56



Цитата

Чувак мне на паскале надо!!!! у меня просто не другой среды и по этому я использую Делфи!!! 
Сам ты чувак, если тебе надо писать на Паскале, то установи себе компилятор Паскаля, а не парь людям мозг!
P.S. Если бы ты не тормозил, то уже давно бы посмотрел исходник функции IntPower, там есть 2 варианта: закомментированный на ObjectPascal и на ассемблере. 


--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
navi
Дата 13.12.2008, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет



Цитата(source777 @  13.12.2008,  21:49 Найти цитируемый пост)
установи себе компилятор Паскаля, а не парь людям мозг!

учту!
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0851 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.