Важная информация
Показано с 1 по 2 из 2

Тема: преобразования типа значения

  1. #1 преобразования типа значения 
    Новичок
    Регистрация
    03.11.2017
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Помогите написать программу для перевода вещественного двоичного числа в десятичное и обратно.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,852
    Сказал(а) спасибо
    1,816
    Поблагодарили 947 раз(а) в 809 сообщениях
    Записей в блоге
    1
    Это бейсик, в паскаль сами переделаете. Взято с небезызвестного форума, автор Softmob.

    Цитата Сообщение от Softmob
    QBasic Code:
    1. DEFDBL A-Z
    2. INPUT "vvedite chislo"; a$: INPUT "vvedite q"; q: INPUT "vvedite p"; p
    3. FOR i = 1 TO LEN(a$)
    4.     IF MID$(a$, i, 1) <> "." THEN b$ = b$ + MID$(a$, i, 1) ELSE r = i - LEN(a$)
    5. NEXT
    6. DIM c(LEN(b$)): u$ = "0123456789ABCDEF": m = 1E6
    7. FOR i = 1 TO LEN(b$): FOR j = 1 TO LEN(u$)
    8.         IF UCASE$(MID$(b$, i, 1)) = MID$(u$, j, 1) THEN c(i) = j - 1
    9. NEXT: NEXT
    10. FOR i = LEN(b$) TO 1 STEP -1
    11.     IF r >= 0 THEN z = z + c(i) * q ^ r ELSE d = d + c(i) * q ^ r * m
    12.     r = r + 1
    13. NEXT
    14. DO
    15.     c$ = MID$(u$, (z MOD p) + 1, 1) + c$: z = z \ p
    16. LOOP UNTIL z = 0
    17. DO
    18.     l = l + 1: d = d * p
    19.     f$ = f$ + MID$(u$, INT(d / m) + 1, 1): d = d - INT(d / m) * m
    20. LOOP UNTIL d = 0 OR l = 10
    21. PRINT STRING$(80, 196); c$ + "." + f$
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. Пользователь сказал cпасибо:

    nik_1 (13.11.2017)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Что-то типа словаря (Map)
    от stabud в разделе FreeBasic
    Ответов: 44
    Последнее сообщение: 14.02.2014, 14:19
  2. Ответов: 4
    Последнее сообщение: 22.02.2012, 21:11
  3. Ответов: 2
    Последнее сообщение: 09.12.2011, 18:34
  4. Ответов: 1
    Последнее сообщение: 16.03.2011, 23:50
  5. Ответов: 5
    Последнее сообщение: 24.11.2010, 18:30
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •