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

23.05.2019, 13:47. Показов 404. Ответов 0

Метки нет (Все метки)

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

Помогите пожалуйста решить задачу или перевести код с Паскаля на С++

File13. Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла (в обратном порядке), а второй — отрицательные (также в обратном порядке). Если положительные или отрицательные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым.

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
program File13;
var
 S:String;
 F_in,F_out1,F_out2: File of Integer;
 i,temp,len:integer;
 
begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
 
  Write('File_out 1: ');
  Readln(S);
  Assign(F_out1,S);
  ReWrite(F_out1);
 
  Write('File_out 2: ');
  Readln(S);
  Assign(F_out2,S);
  ReWrite(F_out2);
 
  len:=1;
  while (not eof(F_in)) do
   begin
    Read(F_in,temp);
    inc(len);
   end;
 
  while (len>0) do
   begin
    Close(F_in);
    Reset(F_in);
    i:=1;
    while (not eof(F_in)) and (i<>len) do
     begin
      Read(F_in,temp);
      inc(i);
     end;
 
    if temp>0 then Write(F_out1,temp);
    if temp<0 then Write(F_out2,temp);
    dec(len);
   end;
 
  Close(F_in);
  Close(F_out1);
  Close(F_out2);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

23.05.2019, 13:47

Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод из одного кода в другой! Как его можно...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of integer; begin c:=1; ...

Перевести код с Паскаля на С++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и августе, которая хранится в...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

23.05.2019, 13:47

Помогаю со студенческими работами здесь

Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности символов и заменить их другой...

Перевести код с Паскаля
Uses crt; Type book=Record fam: String; pred: String; st: Byte; nagr: Byte; end; Var x: Array of book;

Перевести код с Паскаля на C#
program lm; uses crt; Type P= array of integer; M= array of integer; Var a:p; b:m; i,k,n,x:integer; begin

Перевести код с Паскаля
Составить программу, которая в каждой строке матрицы D(m,n) находит элемент, для которого модуль разности этого элемента и среднего...

Перевести код с паскаля на C#
Доброго времени суток. Пытаюсь перевести этот код на С#, но немного запутался в циклах, слишком уж их много. Помогите, пожалуйста. Если я...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

Наверх