Форум программистов, компьютерный форум CyberForum.ru

Доделать программу. - C++

Восстановить пароль Регистрация
 
Jet1k
1 / 1 / 0
Регистрация: 05.12.2009
Сообщений: 20
05.05.2010, 19:03     Доделать программу. #1
Товарищи программеры, скажите что тут не так? В борланде выдает море ошибок.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
FUNCTION DEC2BASEN(BASE: INTEGER; DEC: LONGINT): STRING;
 
CONST
NUMString: STRING = '0123456789ABCDEFGHAIJKLMNOPQRSTUVWXYZ';
 
VAR
NUM : STRING;
I, J: INTEGER;
 
BEGIN
IF (DEC = 0) OR (BASE <2) OR (BASE >36) THEN NUM := '0'
ELSE
BEGIN
NUM := '';
I := 0;
WHILE Potens(BASE, I + 1) <=DEC DO I := I + 1;
FOR J := 0 TO I DO
BEGIN
NUM := NUM + NUMString[(DEC DIV Potens(BASE, I - J)) + 1];
DEC := DEC MOD Potens(BASE, I - J);
END;
END;
DEC2BASEN := NUM;
END;
С меня "спасибо")

Добавлено через 2 часа 33 минуты
Кто-нибудь поможет?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2010, 19:03     Доделать программу.
Посмотрите здесь:

C++ Доделать программу
C++ Помогите доделать программу
Помогите доделать программу! C++
C++ доделать программу
C++ Объясните как доделать программу
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Patch
2276 / 491 / 11
Регистрация: 01.04.2009
Сообщений: 2,178
05.05.2010, 19:15     Доделать программу. #2
Цитата Сообщение от Jet1k Посмотреть сообщение
скажите что тут не так
да все так.
вот только язык - не С/С++.
Darky
05.05.2010, 19:30
  #3

Не по теме:

А что это за язык?

PointsEqual
ниначмуроФ
 Аватар для PointsEqual
832 / 516 / 33
Регистрация: 12.10.2009
Сообщений: 1,915
05.05.2010, 19:32     Доделать программу. #4
Цитата Сообщение от Darky Посмотреть сообщение
А что это за язык?
паскалеподобный)
Jet1k
1 / 1 / 0
Регистрация: 05.12.2009
Сообщений: 20
05.05.2010, 19:35  [ТС]     Доделать программу. #5
Хм, тогда помогите пожалуйста "перевести" это в C++.
Буду оч. благодарен.
Darky
Быдлокодер
 Аватар для Darky
507 / 294 / 45
Регистрация: 22.11.2009
Сообщений: 892
Завершенные тесты: 1
05.05.2010, 19:49     Доделать программу. #6
Jet1k, "В борланде много ошибок", говорит. Это тоже самое, что землянина привести на другую планету и заставить общаться с местным населением.
Лучше выложи задание, так проще сориентироваться будет.
Oleg462
31 / 30 / 3
Регистрация: 18.01.2010
Сообщений: 123
05.05.2010, 20:00     Доделать программу. #7
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
String const NUMString= "0123456789ABCDEFGHAIJKLMNOPQRSTUVWXYZ" ;
String NUM ;
int I, J ;
if (DEC == 0 || BASE <2 || BASE >36) NUM = "0" ;
else {
NUM = "";
I = 0;
while (Potens(BASE, I + 1) <=DEC) I= I + 1;
for (J= 0 ; J<= I ; J++)
{
NUM = NUM + NUMString((DEC%Potens(BASE, I - J)) + 1);
DEC = DEC%Potens(BASE, I - J);
}
}
DEC2BASEN= NUM;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2010, 20:19     Доделать программу.
Еще ссылки по теме:

Доделать программу C++
не могу доделать программу C++
Доделать программу С++ C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Jet1k
1 / 1 / 0
Регистрация: 05.12.2009
Сообщений: 20
05.05.2010, 20:19  [ТС]     Доделать программу. #8
Цитата Сообщение от Darky Посмотреть сообщение
Лучше выложи задание, так проще сориентироваться будет.
Написать программу перевода целых чисел, не превосходящих 10^9, из десятичной системы счисления в Р-ичную, методом деления с остатком на основание системы Р.
Yandex
Объявления
05.05.2010, 20:19     Доделать программу.
Ответ Создать тему
Опции темы

Текущее время: 13:58. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru