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

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

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.85
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
15.12.2009, 21:39     перевод из PASCAL в C++ #1
Нужна программа для перевода из 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2009, 21:39     перевод из PASCAL в C++
Посмотрите здесь:

C++ Перевод из pascal в С
C++ Перевод с Pascal на C++
Перевод с pascal на c++ C++
C++ Перевод с Pascal на С++
C++ Перевод с pascal на c++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
M128K145
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
16.12.2009, 08:08     перевод из PASCAL в C++ #2
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
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 17:29  [ТС]     перевод из PASCAL в C++ #3
cпасибо а можешь еще написать из двоичной в десятеричную ?
M128K145
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
16.12.2009, 18:21     перевод из PASCAL в C++ #4
crewe, собственно это и реализовано в строках 12 - 18. Основная суть в 16 строке
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 21:29  [ТС]     перевод из PASCAL в C++ #5
странно как суть в 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
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
16.12.2009, 22:05     перевод из PASCAL в C++ #6
В этом вся суть. Ты ему подаешь допустим массив из 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
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 23:19  [ТС]     перевод из PASCAL в C++ #7
чет я совсем запутался.... ты мне еще раз написал перевод из 10ричной в 2чную а мне надо наоборот из 2 в 10
там же иначе как то надо

Добавлено через 8 минут
и если не сложно объясни что именно делает
((chislo>>i)&1);
как я понял сначала смещает вправо число на i а потом ?
M128K145
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
16.12.2009, 23:36     перевод из PASCAL в C++ #8
crewe, почувствуй разницу
C++
1
2
3
((chislo>>i)&1);//в двоичную
//и
rez += ((chislo>>i)&1)<<i;//в десятичную
Собери программу и посмотри как она работает
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
17.12.2009, 00:36  [ТС]     перевод из PASCAL в C++ #9
спасибо огромное недоглядел

Добавлено через 48 минут
блин совсем голова не варит ( никак не могу допереть как сделать чтоб надо было вводить 2чный код и оно переводило в 10 а не вводить 10 оно переводило в 2 и обратно
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2009, 01:02     перевод из PASCAL в C++
Еще ссылки по теме:

Перевод с Pascal на C++ C++
C++ Перевод c Pascal на С++
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
M128K145
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
17.12.2009, 01:02     перевод из PASCAL в C++ #10
Вот так попробуй
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;
Yandex
Объявления
17.12.2009, 01:02     перевод из PASCAL в C++
Ответ Создать тему
Опции темы

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