Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2010, 17:50   #1
555shiro
Пользователь
 
Регистрация: 03.01.2010
Сообщений: 10
По умолчанию адаптировать данный код

Здравствуйте!
ПОМОГИТЕ ПОЖАЛУЙСТА
адаптировать данный код в
VBasic 6.0, сам код написан в QBasic.

это программа для перевода чисел из одной системы в другую "Перевод из системы по основанию 8 в систему по основанию 4".

DIM STR1$(8 ), str2$(4)
DATA 000,001,010,011,100,101,110,111
FOR i = 0 TO 7
READ STR1$(i)
NEXT
DATA 00,01,10,11
FOR i = 0 TO 3
READ str2$(i)
NEXT
INPUT "vvedite vosmerichnoe chislo ", v
DO
d = v MOD 10
dv$ = STR1$(d) + dv$
v = v \ 10
LOOP UNTIL v = 0
IF LEN(dv$) MOD 2 <> 0 THEN dv$ = "0" + dv$
FOR i = 1 TO LEN(dv$) STEP 2
k$ = MID$(dv$, i, 2)
FOR j = 0 TO 3
IF k$ = str2$(j) THEN chislo = chislo + j
NEXT
IF i < LEN(dv$) - 1 THEN chislo = chislo * 10
NEXT
PRINT "chetverichnoe chislo="; chislo
555shiro вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему не работает данный код? C# byte916 Помощь студентам 4 11.12.2009 21:19
Постоянно обновляющаяся база данный cowboy БД в Delphi 4 16.09.2009 11:30
Почему данный код не создаёт кнопку на форме VovanZ Общие вопросы Delphi 7 23.05.2009 17:42
адаптировать SQL запрос в отдельной процедуре DS75 БД в Delphi 6 26.04.2009 22:43
Требуется адаптировать слоты vit26 Фриланс 0 15.01.2007 07:41