Перевод кода с Pascal на C++

@kolyapain · Регистрация: 13.05.2018

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

Здравствуйте нужна помощь в переводе кода Pascal на C++.
Я пробовал сам перевести но не получается, много ошибок сначала было а потом просто не правильно работала
Помогите пожалуйста перевести код в С++)
Вот код:

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
47
48
49
50
51
52
53
54
55
56
uses crt;
var
a,b : integer;
rez,us : real;
oper : byte;
c : char;
 
begin
clrscr;
randomize;
repeat
clrscr;
a := random(10)+1;
b := random(12)+1;
oper := random(3)+1;
if random(6)=1 then oper := oper + 1;
 
write(a,' ');
case oper of
 1 : begin
     rez := a+b;
     write('+ ');
     end;
 2 : begin
     rez := a-b;
     write('- ');
     end;
 3 : begin
     rez := a*b;
     write('* ');
     end;
 4 : begin
     rez := a/b;
     write('/ ');
     end;
 
 end; {case}
write(b);
writeln;
write('Result= ');
readln(us);
if us=rez then
 writeln('Otvet vernyj!')
else
 begin
 write('Otvet nevernyj. Pravilnyj otvet: ');
 if oper <> 4 then writeln(rez:0:0)
 else writeln(rez:0:3);
 end;
 
writeln('Prodolzhit? (Esc dlya vyhoda)');
c := readkey;
if c=#27 then break;
until c=#27;
 
end.

@Herji · 21.05.2018, 15:39

Вам что-то вроде этого?

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
#include <iostream> 
 
int main()
{
    char next = 'y';
    //srand и т.д.
    while(next == 'y')
    {
        int q = rand()%4;
        int a = rand()%10+1;
        int b = rand()%10+1;
        int result; // это будет пока целочисленный, на делении проще
 
        std::cout << "\n" << a;
 
        switch(q)
        {
        case(0):
            {
                std::cout << "+";
                result = a+b;
                break;
            }
        case(1):
            {
                std::cout << "-";
                result = a-b;
                break;
            }
        case(2):
            {
                std::cout << "*";
                result = a*b;
                break;
            }
        case(3):
            {
                std::cout << "/";
                result = a/b; // тут, конечно, интересная задачка выйдет
 
                break;
            }
        default: break;
        }
 
        std::cout << b << " = ";
 
        std::cin >> q;
        if(result == q)
        { 
            std::cout << "Right!\n\n";
        } else {
            std::cout << "Wrong! Result is " << result << "\n\n";
        }
 
        std::cout << "Another question? (y/n)";
        std::cin >> next;
 
    }
 
    system("pause");
    return 0;
}

Лучше бы сразу условие писали

@kolyapain · 21.05.2018, 20:24 **[ТС]**

Добавлено через 1 минуту

Сообщение от Herji

Лучше бы сразу условие писали

А вот и задачка
Устный счет: Составить программу обучения устной счете. На каждом шагу должны предлагаться числа и арифметические действия, которые следует выполнить над этими числами. Оформить обучение в виде игры.
P.S: спасибо огромное,очень помогли

@Herji · 21.05.2018, 20:30

Сообщение от kolyapain

спасибо огромное,очень помогли

не торопитесь с выводами, написано это очень бестолково, на коленке. Доработать сможете самостоятельно?

@kolyapain · 21.05.2018, 21:00 **[ТС]**

Сообщение от Herji

не торопитесь с выводами, написано это очень бестолково, на коленке. Доработать сможете самостоятельно?

Не уверен если честно

Добавлено через 22 минуты
Herji, Может быть Вы знаете как сделать вывод рандомных чисел и рандомных операций над ними?

@Herji · 21.05.2018, 21:23

Сообщение от kolyapain

Не уверен если честно

Основную проблему топорно убрал:

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
#include <iostream> 
 
int main()
{
    char next = 'y';
    //srand и т.д.
    while(next == 'y')
    {
        int q = rand()%5; //увеличим на единицу, в делении далее объяснения
                        //но даже с этой поправкой деление будет довольно редким явлением
        int a = rand()%10+1;
        int b = rand()%10+1;
        int result;
 
        
 
        switch(q)
        {
        case(0):
            {
                std::cout << "\n" << a << "+";
                result = a+b;
                break;
            }
        case(1):
            {
                std::cout << "\n" << a << "-";
                result = a-b;
                break;
            }
        case(2):
            {
                std::cout << "\n" << a << "*";
                result = a*b;
                break;
            }
        case(3):
        case(4):
            {
                if(a%b) continue;// ежли не целочисленный ответ - заново прогон
 
                    std::cout << "\n" << a << "/";
                    result = a/b; 
                    break;
            }
        default: break;
        }
 
        std::cout << b << " = ";
 
        std::cin >> q;
        if(result == q)
        { 
            std::cout << "Right!\n\n";
        } else {
            std::cout << "Wrong! Result is " << result << "\n\n";
        }
 
        std::cout << "Another question? (y/n)";
        std::cin >> next;
 
    }
 
    system("pause");
    return 0;
}

Сообщение от kolyapain

Может быть Вы знаете как сделать вывод рандомных чисел и рандомных операций над ними?

пример в любом коде выше, за исключением srand() и знаний, которые Вы обретёте, прочитав об этом srand.

@kolyapain · 21.05.2018, 21:28 **[ТС]**

Herji, Спасибо огромное

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@kolyapain 0 / 0 / 0 Регистрация: 13.05.2018 Сообщений: 11
	21.05.2018, 21:28 [ТС]
	Herji, Спасибо огромное 0

Перевод кода с Pascal на C++

Решение