Перевод кода из Паскаля на С++

@a_lar · Регистрация: 07.12.2017

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

Я еще не обладаю достаточными знаниями работы с файлами на С++ поэтому помогите перевести код

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
program DFG;
var file1,file2:file of integer;
    n,i,num:integer;
begin
    writeln('Введите кол-во чисел:'); readln(n);
    writeln('Введите ',n,' целых чисел:');
    assign(file1,'D:\числа1.txt');
    rewrite(file1);
    for i:=1 to n do
    begin
         read(num);
         write(file1,num);
    end;
    close(file1);
    assign(file2,'D:\числа2.txt');
    rewrite(file2);
    reset(file1); //для чтения
    while not eof(file1) do      //используется для проверки, достигнут ли конец файла.
    begin
    
          read(file1,n);          //записывает в перем n
          if n>0 then
             begin write(file2,n); end;
    end;
    close(file1); close(file2);   //закрывает
    reset(file2);       //открывает файл
    writeln('Во втором файле: ');
    while not eof(file2) do
    begin
         read(file2,n);            //записывает в перем n
         write(n,' ');
    end;
    close(file2);
end

@D1973 · 20.10.2018, 12:54

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

Я еще не обладаю достаточными знаниями работы с файлами на С++

Да и в Паскале, если быть откровенным, Вы не очень... Может, проще задание озвучить и попробовать что-то самому сделать, а не собирать всякий говонокод?

@FFPowerMan · 20.10.2018, 19:50

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
#include <iostream>
#include <conio>
#include <fstream>
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
using namespace std;
 
int main(int argc, char* argv[])
{
fstream File1, File2;
int n, i, num;
 
//File1
cout << "Vvedite kolichestvo chisel:";
cin >> n;
File1.open("D:\\Text1.txt", ios::in | ios::out | ios::trunc);
if(!File1)
{
    //Обработка ошибки открытия файла
    cout << "\nNe udalos otkrit file.\n";
    getch();
    return 1;
}
for(i=1; i<=n; i++)
{
    cin >> num;
    File1 << num;
    if(i!=n)
        File1 << "\n";
}
 
//File2
File2.open("D:\\Text2.txt", ios::in | ios::out | ios::trunc);
File1.seekg(0);
File1.clear();
while(!File1.eof())
{
    File1 >> n;
    if(n>0)
        File2 << n <<"\n";
}
 
File2.seekg(0);
File2.clear();
cout << "\Vo vtorom file:\n";
while(!File2.eof())
{
    File2 >> n;
    cout << n << "\n";
}
 
File1.close();
File2.close();
getch();
return 0;
}

Я код переконвертировал, но есть 1 маленькая проблемка - при чтении файла 2: все 5 элементов читает правильно(если я ввожу "1\n2\n3\n4\n5\n" через Enter, он из файла читается еще 1 дополнительный символ - просто какое-то число 4233550 - что-то типа такого. Как это убрать? Что за проблема последнего символа? - При чтении группы целых чисел. Это символы 0x0D 0x0A читаются. Как порядок тут навести? Помогите, пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .