Форум программистов, компьютерный форум, киберфорум
Java для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 13.12.2019
Сообщений: 1

Перевод задачи из pascal в java

13.12.2019, 20:40. Показов 1255. Ответов 2

Студворк — интернет-сервис помощи студентам
Решил эту задачу на паскале, переведите пж на JAVA

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{$H+}
var a,b:array[1..1000000]of string;
        s:string;
        k,i:longint;
begin
    assign(input,'input.txt');reset(input);
    assign(output,'output.txt');rewrite(output);
    while not eof do
    begin
        inc(i);
        readln(s);
        if s[1]='9' then writeln(s) else 
            if s[2]='0' then a[i]:=s else b[i]:=s;
    end;
    for k:=1 to i do
        writeln(a[k]);
    for k:=1 to i do
        writeln(b[k]);
    close(input);close(output);
end.
P.S. Вот условие (В каждой строке сначала записан номер класса (число, равное 9, 10 или 11), затем (через пробел) — фамилия ученика.

Выходные данные
Необходимо вывести список школьников по классам: сначала всех учеников 9 класса, затем — 10, затем — 11. Внутри одного класса порядок вывода фамилий должен быть таким же, как на входе.

Примеры
входные данные
9 Ivanov
10 Petrov
11 Sidorov
9 Grigoryev
9 Sergeev
10 Yakovlev
выходные данные
9 Ivanov
9 Grigoryev
9 Sergeev
10 Petrov
10 Yakovlev
11 Sidorov)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.12.2019, 20:40
Ответы с готовыми решениями:

Перевод кода с Pascal на Java - Java SE
var a:Int64; begin Reset(Input,'input.txt'); Rewrite(Output,'output.txt'); read(a); Write(a,9,9-a) end. Заранее...

Перевод задачи с Pascal на C++
Program Metod_Nutona_nelinein; Uses Crt; Var i,x,y,xn,yn,eps,a,b,c,d,pr :real; Begin clrscr; Write('Введите начальное значение...

Перевод задачи с языка С на Pascal
Нужно решить задачку: Рассчитать число золотых монет, принесенных в дань господину, если N+1 подданных последовательно передают монеты от...

2
485 / 411 / 126
Регистрация: 23.05.2016
Сообщений: 1,653
14.12.2019, 08:29
И что, программа работает как надо? (Спойлер: нет)
0
 Аватар для Aviz__
2753 / 2060 / 509
Регистрация: 17.02.2014
Сообщений: 9,488
14.12.2019, 13:42
Lebedko_Artem, в лоб))
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
25
26
27
28
29
30
31
32
33
import java.io.IOException;
import java.nio.file.Files;
import java.nio.file.Paths;
import java.util.Comparator;
 
public class Helper {
 
    public static void main(String[] args) {
        try {
            Files.lines(Paths.get("input.txt"))
                    .map(line -> new Pupil(Integer.parseInt(line.split(" ")[0]), line.split(" ")[1]))
                    .sorted(Comparator.comparing(p -> p.cl))
                    .forEach(System.out::println);
        } catch (IOException ex) {
            ex.printStackTrace();
        }
    }
 
    private static class Pupil {
        Integer cl;
        String name;
 
        Pupil(Integer cl, String name) {
            this.cl = cl;
            this.name = name;
        }
 
        @Override
        public String toString() {
            return cl + " " + name;
        }
    }
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.12.2019, 13:42
Помогаю со студенческими работами здесь

Перевод c Java на Pascal
Всем доброго времени суток, помогите пожалуйста перевести программу с Java на Pascal. Рылся рылся по интернетам но половину операторов не...

Перевод с Pascal на Java
Помогите пожалуйста перевести на Java, 2 программы. program Vector; Const Nmax=1000; Type TVector=array of real; Var ...

Перевод с Pascal на Java
Нужна помощь с переводом кода с Pascal на Java Само задание : Для значений Х, изменяющихся от –1 до 3 с шагом 0,25 , вычислить...

Перевод с Pascal на Java
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, ...

Перевод из Pascal в Java
Есть задача: Дан файл товар, содержащий сведения об экспортируемых товарах: указывается наименование товара, страна, импортирующая...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
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-код на мобильном. Вращайте камеру одним пальцем,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru