Перевод из Pascal в Java

@fsociety12 · Регистрация: 05.06.2018

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

Есть задача: Дан файл товар, содержащий сведения об экспортируемых товарах: указывается наименование товара,
страна, импортирующая товар, и объем поставляемой партии в штуках. Составить список стран, в которые экспортируется данный товар, и общий объем его экспорта.
Файл tovar:
French
25
Hleb
Germany
45
Kolbasa
Germany
36
Vino
French
45
Hleb
Russia
58
Есть код на pascal,прошу помочь перевести на java

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
 Program Cex;
 var f:text;                
 TempValue,i,Count,Error:integer;
 Strans,N:string;
 InfoArr:array[1..3] of string;    
 
Procedure SaveFile;             
var q:text;
begin
assign(q,'Result.txt');
rewrite(q);
writeln(q,'Список Стран:',Strans);
writeln(q,'Общий объем:',Count);
close(q);
end;
 
procedure Info;             
 begin                      
   if Length(Strans) <> 0 then Strans:=Strans + ',' + InfoArr[2]
   else Strans:=InfoArr[2];                 
   val(InfoArr[3],TempValue,Error);        
   Count:=Count+TempValue;              
 end;
                            
 BEGIN
 Writeln('‚Введите имя товара');
 Readln(N);
 Assign(f,'Tovar.txt');             
 Reset(f);
 While not(eof(f)) do                  
 begin
  Readln(f,InfoArr[1]);      
  Readln(f,InfoArr[2]);       
  Readln(f,InfoArr[3]);        
  if InfoArr[1]=N then Info; 
 end;
 close(f);
 SaveFile;             
 readln;
 END.

и то что пока у меня получилось на java

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
package export;
 
 
import java.io.File;
import java.io.FileReader;
import java.io.FileWriter;
import java.io.IOException;
 
public class Main {
    public static void main(String[] args) {
        try {
            File file = new File("tovar.txt");
            FileReader fr = new FileReader(file);
            FileWriter writer = new FileWriter("tovar1.txt", false);
 
 
 
???????????????????????????
 
        } catch (IOException e) {
            e.printStackTrace();
        }
    }
}

@Aviz__ · 13.01.2020, 08:38

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

Файл tovar:

лучше такой формат:
French;25;Hleb
Germany;45;Kolbasa

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .