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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ вывести в массиве индексы http://www.cyberforum.ru/cpp-beginners/thread75020.html
Привет всем.Помогите пожалуйста решить задачу. В массиве найти максимальный элемент(это легко) и все элементы равные ему вывести их индексы(в принципе тоже легко но я не доканца понял как) Пример...
C++ Работа с устройствами Требуется: Получение списка устройств, определение числа pсi-слотов на мат.плате, их характеристики, и вообще работу с железной частью как можно организовать? советовали WinAPI, но там не нашел,... http://www.cyberforum.ru/cpp-beginners/thread75012.html
C++ "строки в с++"
помогите пожалуйста, никак не могу разобраться с этими строками. нужно написать программу, которая определяет, какое слово встречаеться в строке чаще всего?
Регистр букв C++
не знаю как вопрос правильно задать... int drawTriangle(int lines,string a){ if(a=="isosx") drawIsosXTriangle(lines); if(a=="equil") drawEquilTriangle(lines); if(a=="isos")...
C++ Классы в C++ http://www.cyberforum.ru/cpp-beginners/thread74980.html
Условие такое: Найдите сумму членов ряда Фибоначчи. Без классов программа работает, а вот классы вставить что то не получается...:( помогите исправить... #pragma argsused #include <iostream.h>...
C++ определить значение корня уравнения Программа на С++: На отрезке с точностью ε(ε >0) определить значение корня уравнения 43.9*pow(x,5)- 12*pow(x,3) + 14.3. Перед этим функцию на отрезке протабулировать, чтобы убедиться в наличии... подробнее

Показать сообщение отдельно
crewe
0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 10

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

15.12.2009, 21:39. Просмотров 1721. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.