Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Kak vozvisti chislo v spemen' ???? Добавлено: 20.08.04 00:40  

Автор вопроса:  rx | Web-сайт: erix.times.lv | ICQ: 310731115 
A imenno v Pascal'e
v VB eto tak 2^3 budet 8

a v Paskale kak eto zdetat (dolzhno bit' pohozhe na Dephi)
2*2*2 ne pridlogat'... imenno v stepen'
v c++ yest' funkcija pow(x,y), a v Paskale chota takoje jest' ?????? HEEEELLLPPP :O

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 dNW



Вопросов: 30
Ответов: 683
 Профиль | | #1 Добавлено: 20.08.04 09:53
Так здесь же программирование на VB а не на паскале.

Тебе в офф-топ

Ответить

Номер ответа: 2
Автор ответа:
 rx



ICQ: 310731115 

Вопросов: 10
Ответов: 45
 Web-сайт: erix.times.lv
 Профиль | | #2
Добавлено: 20.08.04 12:15
Офф-топ = Нетехнические разговоры и вопросы !!!не связанные с программированием!!!.
Общий форум = В форуме обсуждаются все темы.

Skopiroval Pryamo s saita...
I yesli nemozhesh otvetit na etot voperos, togda ne otvichai.....

Ответить

Номер ответа: 3
Автор ответа:
 rx



ICQ: 310731115 

Вопросов: 10
Ответов: 45
 Web-сайт: erix.times.lv
 Профиль | | #3
Добавлено: 20.08.04 12:45
Ladno...
Dzdelal sam function....
Toka yest nedostatok ... stepen' mozhet bit' toka celoe chislo....

function pow(x,y:integer):integer;
 BEGIN
  if y=1 then pow:=x
  else pow:=pow(x,y-1);
 END;
{opyat zhe rekursiya}

Yesli yest' vstroinnaya funkciya, skazhite plz !

Ответить

Номер ответа: 4
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
 Web-сайт: basicproduction.nm.ru
 Профиль | | #4
Добавлено: 21.08.04 06:13
 Странный ты парень однако. Наверное в Прибалтике все такие. Эх, жаль не успел я в советские времена туда съездить.
 Ладно, скажу тебе по секрету: Паскаль - масдай, Бейсик - форева. ;)

Ответить

Номер ответа: 5
Автор ответа:
 rx



ICQ: 310731115 

Вопросов: 10
Ответов: 45
 Web-сайт: erix.times.lv
 Профиль | | #5
Добавлено: 21.08.04 12:56
Kazhdij so svoimi strannostyami ;)
A nashot:
"Паскаль - масдай, Бейсик - форева. ;)"
Soglasin, toka znaja odzin Basic, daleko ne popodzosh...
Da prosto dlya shkoli nado....

Ответить

Номер ответа: 6
Автор ответа:
 dNW



Вопросов: 30
Ответов: 683
 Профиль | | #6 Добавлено: 21.08.04 15:59
Так ведь сейчас каникулы...?

Ответить

Номер ответа: 7
Автор ответа:
 rx



ICQ: 310731115 

Вопросов: 10
Ответов: 45
 Web-сайт: erix.times.lv
 Профиль | | #7
Добавлено: 21.08.04 20:48
>"Так ведь сейчас каникулы...?"
Ti prav koneshno... ;)
Toka ya student.... I zdaju vsjo v poslednij moment ;)
DOLGI ??? U KAVO TAKIH NIBIVAJET << A ????
Do 30 avgusta nado vsyo zdac, a to p.z.ec :(

Ответить

Номер ответа: 8
Автор ответа:
 Aracon



ICQ: 221881915 

Вопросов: 16
Ответов: 28
 Web-сайт: aracon-studios.com
 Профиль | | #8
Добавлено: 22.08.04 14:34
??? Не понял, зачем тебе рекурсия для возведения в степень???
Вот так разве нельзя:

function Stepen(a,x: integer): integer;
var i: integer;
begin
  Stepen:=a;
  for i:=2 to x do
    Stepen:=Stepen*a;
end;

Это первый способ. Теперь второй (математический):

function Stepen(a,x: integer): integer;
begin
  Stepen=exp(x*ln(a));
end;

Если ты не забыл математику, то это равно a^x...

Ответить

Номер ответа: 9
Автор ответа:
 dNW



Вопросов: 30
Ответов: 683
 Профиль | | #9 Добавлено: 23.08.04 14:48
>;DOLGI ??? U KAVO TAKIH NIBIVAJET << A ????

А я тебя и не упрекаю. Так, поинтересовался

Ответить

Номер ответа: 10
Автор ответа:
 Kodo



Разработчик Offline Client

ICQ: 293048085 

Вопросов: 37
Ответов: 457
 Профиль | | #10 Добавлено: 23.08.04 15:23
AASoft, а ты не пробовал приклеивать русские наклейки на клаву? Или хотя бы экранной пользоваться? Хотя я всю русскую клаву наизусть знаю...

Ответить

Номер ответа: 11
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #11
Добавлено: 24.08.04 11:23
> function Stepen(a,x: integer): integer;
> begin
> Stepen=exp(x*ln(a));
> end;
Маленькая поправочка:
function Stepen(a,x: integer): integer;
begin
  Stepen := exp(x*ln(a));
end;

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам