Переведите пожалуйста код с Паскаля на СИ++

@Mentalist_ · Регистрация: 05.11.2016

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

Помогите перенести код на СИ++... До этого не приходилось работать с паскалем(

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
program pokrytie;
type
    pa = array[1..30000] of integer;
var
    n, m, g : integer;
    i, j, k, imin, min : integer;
    a, b : ^pa;
    res : array[1..10000] of integer;
    Inp, Out : Text;
 
begin
    Assign(Inp,'Input.txt');
    Reset(Inp);
    Readln(Inp,m);
    Readln(Inp,n);
    New(a); New(b);
    for i := 1 to n do begin
        Read(Inp,a^[i]);
        Read(Inp,b^[i]);
    end;
    Close(Inp);
    Assign(Inp,'Output.txt');
    ReWrite(Inp);
    k := 0; g := 0; min := -1;
    while g < m do begin
        for i := 1 to n do if a^[i] <= g then begin
            if b^[i] > min then begin
                min := b^[i];
                imin := i;
            end
        end;
        if min > 0 then begin
            g := min;
            Inc(k);
            res[k] := imin;
        end
        else begin
            Write(Inp,0);
            Close(Inp);
            Halt;
        end;
    end;
    WriteLn(Inp,k);
    for i := 1 to k do begin
        WriteLn(Inp,a^[res[i]],' ',b^[res[i]]);
    end;
    Close(Inp);
end.

@Biger18 · 14.06.2018, 09:11

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

'Input.txt'

в наличии ?

@Mentalist_ · 14.06.2018, 09:56 **[ТС]**

Пример INPUT.TXT:
8
3
-1 7
-2 9
6 8

Добавлено через 2 минуты
OUTPUT.TXT для примера:
1
-2 9

Добавлено через 6 минут
Могу кинуть текст задания может поможет

@Biger18 · 14.06.2018, 10:26

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
void main(int argc,char **argv)
{
    fstream Inp("Input.txt",ios_base::in);
    int m,n;
    Inp>>m;
    Inp>>n;
    int *a=new int[30000]; 
    int *b=new int[30000];
    for(int i=0; i<n; i++)
    {
        Inp>>a[i];
        Inp>>b[i];
    }
    Inp.close();
    Inp.open("Output.txt",ios_base::out);
    Inp.clear();
    int k=0; 
    int g=0; 
    int imin,min=-1;
    int res[10000];
    while(g < m)
    {
        for(int i=0; i<n; i++)
        if(a[i]<=g)
            if(b[i]>min)
            {
                min=b[i];
                imin=i;
            }
        if(min>0)
        {
            g=min;
            res[k++]=imin;
        }
        else
        {
            Inp<<0;
            Inp.close();
            return;
        }
    }
    Inp<<k<<endl;
    for(int i=0; i<k; i++)
        Inp<<a[res[i]]<<" "<<b[res[i]]<<endl;
    Inp.close();
    delete[] a;
    delete[] b;
    //system("pause");
}

@anapshy · 14.06.2018, 10:59

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
#include <iostream>
#include <fstream>
 
int a[30000]{}, b[30000]{};
int res[10000]{};
 
int main()
{
    std::fstream file{ "input.txt", std::ios_base::in };
    if (!file.is_open())
    {
        std::cerr << "File not found!" << std::endl;
        return -1;
    }
    int m{}, n{};
    file >> m >> n;
    for (int i{}; i < n; ++i)
    {
        file >> a[i] >> b[i];
    }
    file.close();
    int k{}, g{}, min{ -1 }, imin{};
    file.open( "output.txt", std::ios_base::out | std::ios_base::trunc);
    while (g < m)
    {
        for (int i{}; i < n; ++i)
        {
            if (a[i] <= g)
            {
                min = b[i];
                imin = i;
            }
        }
        if (min > 0)
        {
            g = min;
            res[k++] = imin;
        }
        else
        {
            file << 0;
            return 0;
        }
    }
    file << k << std::endl;
    for (int i{}; i < k; ++i)
    {
        file << a[res[i]] << ' ' << b[res[i]] << std::endl;
    }
}

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Biger18 Заблокирован
	14.06.2018, 09:11
	Сообщение от Mentalist_ 'Input.txt' в наличии ? 0

@Mentalist_ 2 / 2 / 4 Регистрация: 05.11.2016 Сообщений: 64
	14.06.2018, 09:56 [ТС]
	Пример INPUT.TXT: 8 3 -1 7 -2 9 6 8 Добавлено через 2 минуты OUTPUT.TXT для примера: 1 -2 9 Добавлено через 6 минут Могу кинуть текст задания может поможет 0

Опции темы

Переведите пожалуйста код с Паскаля на СИ++

Решение