VPF::помогите перевести - Форум программистов

artur

Дата 24.10.2006, 23:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

  dim i,s As  integer
  dim sum as variant
  sum=1

  s=cdbl(EditField1.text)
  for i = 1 to s
    sum=sum*i
  next i
  EditField1.text=str(sum)
Помогите правильно перевести на С++.

artur

Дата 24.10.2006, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

я перевел
int j,s;
Variant sum;
sum=1;
s=StrToInt(Edit1->Text);

for(i=1;s;){
sum=sum*i;
}
Edit1->Text=String(sum);
но прога виснет

586

Дата 25.10.2006, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Цитата(artur @ 25.10.2006, 00:35

)

for i = 1 to s
sum=sum*i
next i

Код


for (i=1; i<=s; i++) sum*=i;

Link90

Дата 25.10.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

"Битый" пиксель

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 25.11.2005
Где: Иркутск - середин а земли!

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

[УДАЛЕНО]

Это сообщение отредактировал(а) Link90 - 25.10.2006, 10:33

Rodman

Дата 25.10.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Код


int s, sum=1;
s=StrToInt(Edit1->text);
for(int i=1;i<=s;i++)
    sum*=i;
Edit1->text=IntToStr(sum);

вот так вроде все...

или

Код


int sum=1;
for(int i=1;i<=StrToInt(Edit1->text);i++)
    sum*=i;
Edit1->text=IntToStr(sum);

Это сообщение отредактировал(а) Rodman - 25.10.2006, 10:42

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »