Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 09.01.2010, 18:50   #1
555shiro
Пользователь
 
Регистрация: 03.01.2010
Сообщений: 10
Репутация: 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему не работает данный код? C# byte916 Помощь студентам 4 11.12.2009 22: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 08:41


05:34.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru