Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.85
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
#1

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

15.12.2009, 21:39. Просмотров 1716. Ответов 9
Метки нет (Все метки)

Нужна программа для перевода из 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2009, 21:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод из PASCAL в C++ (C++):

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...

Перевод из Pascal в C++ - C++
В файле W задан массив из девяти элементов. В новом файле WW сформировать массив, в котором каждому элементу будет присвоено значение...

перевод с Pascal на C++ - C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

9
M128K145
Эксперт С++
8297 / 3517 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
16.12.2009, 08:08 #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;
}
1
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 17:29  [ТС] #3
cпасибо а можешь еще написать из двоичной в десятеричную ?
0
M128K145
Эксперт С++
8297 / 3517 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
16.12.2009, 18:21 #4
crewe, собственно это и реализовано в строках 12 - 18. Основная суть в 16 строке
0
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 21:29  [ТС] #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();
}
0
M128K145
Эксперт С++
8297 / 3517 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
16.12.2009, 22:05 #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;
}
0
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10
16.12.2009, 23:19  [ТС] #7
чет я совсем запутался.... ты мне еще раз написал перевод из 10ричной в 2чную а мне надо наоборот из 2 в 10
там же иначе как то надо

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

Добавлено через 48 минут
блин совсем голова не варит ( никак не могу допереть как сделать чтоб надо было вводить 2чный код и оно переводило в 10 а не вводить 10 оно переводило в 2 и обратно
0
M128K145
Эксперт С++
8297 / 3517 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
17.12.2009, 01:02 #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;
0
17.12.2009, 01:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2009, 01:02
Привет! Вот еще темы с ответами:

Перевод с Pascal на C++ - C++
Помогите пожалуйста перевести код с Pascal на C++, паскаль совсем не знаю. Задание :Дана строка символов, в конце которой стоит точка....

Перевод из Pascal в С++ - C++
Помогите пожалуйста перевести программу из Паскали в С++ var k,n: integer; d: char; procedure AddDigit(s: string); var ...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод с Pascal на С++ - C++
Будьте добры, кто понимает, кому не сложно, очень нужна помощь в переводе. program z2; var a,b,s : integer; begin ...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru