перевод из PASCAL в C++

@crewe · Регистрация: 09.12.2009

Студворк — интернет-сервис помощи студентам

Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти ничего не могу понять . объясните пжл как это написать на с++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
{ Составить программу перевода десятичного числа в двоичное }
uses crt;
var a : longint;
function DEC_BIN(x:longint):string;
const digits:array [0..1] of char = ('0','1');
var res:string; d:0..1;
begin
   res:='';
   while (x<>0) do begin
      d:=x mod 2; res:=digits[d]+res;
      x:=x div 2;
   end;
   DEC_BIN:=res;
end;
 
begin { основная программа }
  clrscr;
  write('Введите десятичное число а= ');
  readln( a );
  writeln( DEC_BIN(a) );
  readln
end.
 
{ Составить программу перевода двоичного числа в десятичное }
uses crt;
var a : string;
function BIN_DEC(x:string):longint;
const digits:array [0..1] of char = ('0','1');
var res,ves:longint; i,j:byte;
begin
   res:=0; ves:=1;
   for i:=length(x) downto 1 do begin
      j:=0;
      while (digits[j]<>x[i]) do inc(j);
      res:=res+ves*j;
      ves:=ves*2;
   end;
   BIN_DEC:=res;
end;
 
begin { основная программа }
  write('Введите бинарное число а= ');
  readln( a );
  writeln( BIN_DEC(a) );
  readln
end.

@M128K145 · 16.12.2009, 08:08

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <iostream>
int main()
{
    setlocale(LC_ALL, "Russian");
    int chislo, size(sizeof(chislo)*8), i;
    std::cout<<"Введите число:\n> ";
    std::cin>>chislo;
    std::cout<<"Двоичный код:\n< ";
    for(i = size-1; i >= 0; --i)
        std::cout<<((chislo>>i)&1);
    std::cout<<"Результат:\n";
    int rez(0);
    for(i = size-1; i >= 0; --i)
    {
        std::cout<<((chislo>>i)&1);
        rez += ((chislo>>i)&1)<<i;
    }
    std::cout<<'\n'<<rez<<std::endl;
    system("pause");
    return EXIT_SUCCESS;
}

@crewe · 16.12.2009, 17:29 **[ТС]**

cпасибо а можешь еще написать из двоичной в десятеричную ?

@M128K145 · 16.12.2009, 18:21

crewe, собственно это и реализовано в строках 12 - 18. Основная суть в 16 строке

@crewe · 16.12.2009, 21:29 **[ТС]**

странно как суть в 16 строке я немного сократил прогу оставил самое главное и она работает без 16 строки наверно суть в 15 ... но всеже я не понял как переделать чтоб из 2 в 10 .можешь написать именно эту строку ? вот скоращенный код :

C++
1
2
3
4
5
6
7
8
9
10
11
12
#include <iostream.h>
#include <conio.h>
main()
{int chislo, size(sizeof(chislo)*3), i;
        cout<<"Vv 4iso:";
        cin>>chislo;
        cout<<"\nResult:\n";
        for(i = size-1; i >= 0; --i)
                cout<<((chislo>>i)&1);
 
        getch();
}

@M128K145 · 16.12.2009, 22:05

В этом вся суть. Ты ему подаешь допустим массив из 1 и 0, смещаешь это число на индекс в массиве и прибавляешь к rez

C++
1
2
3
4
5
6
int rez(0);
for(i = size-1; i >= 0; --i)
{
    std::cout<<((chislo>>i)&1);
    rez += ((chislo>>i)&1)<<i;
}

@crewe · 16.12.2009, 23:19 **[ТС]**

чет я совсем запутался.... ты мне еще раз написал перевод из 10ричной в 2чную а мне надо наоборот из 2 в 10
там же иначе как то надо

Добавлено через 8 минут
и если не сложно объясни что именно делает
((chislo>>i)&1);
как я понял сначала смещает вправо число на i а потом ?

@M128K145 · 16.12.2009, 23:36

crewe, почувствуй разницу

C++
1
2
3
((chislo>>i)&1);//в двоичную
//и
rez += ((chislo>>i)&1)<<i;//в десятичную

Собери программу и посмотри как она работает

@crewe · 17.12.2009, 00:36 **[ТС]**

спасибо огромное недоглядел

Добавлено через 48 минут
блин совсем голова не варит ( никак не могу допереть как сделать чтоб надо было вводить 2чный код и оно переводило в 10 а не вводить 10 оно переводило в 2 и обратно

@M128K145 · 17.12.2009, 01:02

Вот так попробуй

C++
1
2
3
4
5
6
bool chislo[32];
int i, rez = 0;
for(i = 0; i < 32; ++i)
    std::cin>>chislo[i];
for(i = 31; i >= 0; --i)
    rez += ((int)chislo[i])<<i;

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@crewe 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	16.12.2009, 17:29 [ТС]
	cпасибо а можешь еще написать из двоичной в десятеричную ? 0

@M128K145 8384 / 3617 / 419 Регистрация: 03.07.2009 Сообщений: 10,709
	16.12.2009, 18:21
	crewe, собственно это и реализовано в строках 12 - 18. Основная суть в 16 строке 0

@crewe 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	16.12.2009, 23:19 [ТС]
	чет я совсем запутался.... ты мне еще раз написал перевод из 10ричной в 2чную а мне надо наоборот из 2 в 10 там же иначе как то надо Добавлено через 8 минут и если не сложно объясни что именно делает ((chislo>>i)&1); как я понял сначала смещает вправо число на i а потом ? 0

@crewe 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	17.12.2009, 00:36 [ТС]
	спасибо огромное недоглядел Добавлено через 48 минут блин совсем голова не варит ( никак не могу допереть как сделать чтоб надо было вводить 2чный код и оно переводило в 10 а не вводить 10 оно переводило в 2 и обратно 0