Перевод кода из Pascal в С++

@Yalunin · Регистрация: 27.02.2014

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

Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !

Pascal

function st2(k:integer): integer; 
var j, rez: integer; 
begin 
rez:=1;
for j:=1 to k do rez:=rez*2; 
st2:=rez;
end;
function a(sta: string):integer;
var dl,i,rez: integer;
begin
dl:=length(sta);
rez:=0;
for i:=1 to dl do
if sta[i]='1' then rez:=rez+st2(dl-i); 
a:=rez; 
end;
function ast(x:integer): string;
var i:integer; rez: string; 
begin 
rez:='';
while x>=1 do begin 
if x mod 2= 1 then rez:='1'+rez else rez:='0'+rez; 
x:=x div 2; 
end; 
ast:=rez; 
end;
var op: char; r,xs,ys: string; 
begin
writeln('введите двоичное натуральное число'); 
readln(xs);
writeln('введите одно из действий: + - * /'); 
readln(op);
writeln('введите второй операнд(двоичное натуральное число)'); 
readln(ys); 
case op of
'+':r:=ast(a(xs)+a(ys));
'-':r:=ast(a(xs)-a(ys));
'*':r:=ast(a(xs)*a(ys));
'/': r:=ast(a(xs)div a(ys)); 
end;
writeln('=',r); 
end.

srin · 07.05.2014, 02:19

C++

#include <iostream>
#include <string>
 
using namespace std;
 
int st2(int k){
    int rez = 1;
    for (int j = 1; j < k; j++){
        rez = rez * 2;
    }
    return rez;
}
 
int a(string sta){
    int rez = 0;
    int dl = sta.length();
    for (int i = 0; i < dl; i++) {
        if (sta[i] == '1') {
            rez = rez + st2(dl - i);
        }
    }
    return rez;
}
 
string ast(int x){
    int i = 0;
    string rez = "";
    while (x >= 1){
        if ((x % 2) == 1){
            rez = "1" + rez;
        }
        else {
            rez = "0" + rez;
        }
        x = x / 2;
    }
    return rez;
}
 
 
void main(){
    setlocale(LC_ALL, "Russian");
    char op;
    string r = "", xs = "", ys = "";
    cout << "Введите двоичное натуральное число: ";
    cin >> xs;
    cout << endl << "Введите одно из действий: + - * /: ";
    cin >> op;
    cout << endl << "Введите второй операнд(двоичное натуральное число): ";
    cin >> ys;
 
    switch (op)
    {
    case '+':
        r = ast(a(xs) + a(ys));
        break;
    case '-':
        r = ast(a(xs) - a(ys));
        break;
    case '*':
        r = ast(a(xs) * a(ys));
        break;
    case '/':
        r = ast(a(xs) / a(ys));
        break;
    default:
        break;
    }
 
    std::cout << r << endl;
    system("pause");
}

@Yalunin · 07.05.2014, 07:50 **[ТС]**

Спасибо огромное, всё отлично работает, очень сильно помог!

@Yalunin 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 4
	07.05.2014, 07:50 [ТС]	3
	Спасибо огромное, всё отлично работает, очень сильно помог! 0

Опции темы

Перевод кода из Pascal в С++

Решение