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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Bebebe
0 / 0 / 0
Регистрация: 09.09.2014
Сообщений: 27
#1

Перевод из С++ в Delphi - Delphi

01.12.2014, 15:11. Просмотров 228. Ответов 0
Метки нет (Все метки)

поможете с переводом?
C++
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
#include <stdio.h>   
#include <conio.h>   
#include <math.h>   
#include <iostream> 
 
using namespace std; 
 
//  Переводить десятичное число в двоичное
int int_to_binary(int x1)   
{  
    int i, b;  
    long c = 0;  
     for(i=0;x1 > 0;i++)  
     {
        b = x1 % 2;  
        x1 = (x1-b)/2;
        c += b * pow(10,i);
    }
 
    return c;   
}   
 
//  Переводить десятичное число в восьмеричное
int int_to_octal(int x1)   
{  
    int i, b;  
    long c = 0;  
     for(i=0;x1 > 0;i++)  
     {
        b = x1 % 8;  
        x1 = (x1-b)/8;
        c += b * pow(10,i);
    }
 
    return c;   
}   
 
// Переводить десятичное число в шестнадцатеричное, это функция строковая, так как в шестнадцатеричных числах используется буквы
string int_to_hex(int a)
{
    string tmp("");
    do
    {
        int r(a%16);
        if (r>9) {r+=(int)'A'-10;}
        else  {r+=(int)'0';};
        tmp=(char)r+tmp;
        a/=16;
    } while (a);
    return tmp;
}
 
//Операция сложения
int op_sum(int x, int y)
{
    return x + y;
}
 
//Операция минусования
int op_min(int x, int y)
{
    return x - y;
}
 
//Операция умножения
int op_mul(int x, int y)
{
    return x * y;
}
 
//Операция деления(целая часть)
int op_del(int x, int y)
{
    return x / y;
}
  
int main()   
{
    int a, b, s, op_number, error_check = 0;
    string out;
      
    cout<<"Vvedite pervoe desyatichnoe chislo: ";  
    cin >> a;
    
    cout<<"Vvedite vtoroe desyatichnoe chislo: ";  
    cin >> b;
    
    cout<<"1. Plus(+)\n";
    cout<<"2. Minus(-)\n";
    cout<<"3. Multiply(*)\n";
    cout<<"4. Delete(/)\n";
    
    cin >> op_number;
    
    switch(op_number)
    {
        case 1:
            s = op_sum(a, b);
            break;
        case 2:
            s = op_min(a, b);
            break;
        case 3:
            s = op_mul(a, b);
            break;
        case 4:
            s = op_del(a, b);
            break;
        default:
            error_check = 1;
            break;
    }
    
    if(error_check == 1)
    {
        cout<<"Nepravilnyi operator";
    }
    else{
        
        cout<<"Rezultat operatsii\n";
        cout<<"V dvoichnom formate :"<<int_to_binary(s)<<"\n";
        cout<<"V vosmerichnom formate :"<<int_to_octal(s)<<"\n";
        cout<<"V shestnadtsaterichnom formate :"<<int_to_hex(s)<<"\n";  
    } 
    getch();  
}
0
Вложения
Тип файла: zip program.zip (2.2 Кб, 0 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.12.2014, 15:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод из С++ в Delphi (Delphi):

Перевод из Delphi 7 в Delphi XE2 - Delphi
Вообщем Этот код на delphi 7 спокойно компилируется: Function ResolveIP(HostName: String): String; Type tAddr = Array Of...

Перевод из 2 сс в 10 на Delphi - Delphi
помогите пожалуйста программу на Delphi написать..перевод Ip адреса в 2 систему счисления

Перевод на Delphi - Delphi
Не получается перевести текст Pascal на Delphi. var i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел:...

Перевод с С++ на Delphi - Delphi
Доброго вечера всем, пожалуйста, помогите перевести на Delphi. Необязательно весь код, можно просто суть того, что здесь происходит. int...

Перевод из С в Delphi - Delphi
Прошу прощения, не знал куда можно обратиться, но нужна помощь, перевести из языка (скорее всего это С) в Delphi Собственно сам код void...

Перевод из С в Delphi - Delphi
Как это будет выглядить в Delphi? p=strstr(start,word); if(p=NULL)break then; cw++; start=p+len;

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2014, 15:11
Привет! Вот еще темы с ответами:

Перевод C++ на Delphi - Delphi
Кто может перевести эти функции из с++ на Delphi,Заранее спс... std::string pkcs1pad2(std::string data,size_t keysize) { using...

Перевод из Си в Delphi - Delphi
Помогите нужно срочно перевести #include &lt;ctype.h&gt; #include &lt;stdio.h&gt; enum { BUFFER_SIZE = 100 }; int skv(const char*...

Перевод с++ на delphi - Delphi
Переведите пожалуйста код с с++ на delphi!! Задача: Описать структуру с именем ORDER , содержащую следующие поля: 1) расчетный счет...

перевод из C в Delphi - Delphi
Доброго времени суток! Есть код на С который считает CRC16. Его надо перевести на Delphi (использую Delphi7) /* Name : CRC-16 ...


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

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

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