Распечатать владельцев машин одного цвета и их грузоподъемность - PascalABC.NET
Формулировка задачи:
В текстовый файл занесена информация типа record об грузовиках: грузоподъемность, марка, цвет, владелец.
Отсортировать машины по марке(в разные файлы). Распечатать владельцев машин одного цвета и их грузоподъемность.
Пример входного файла:
Спойлер
Решение задачи: «Распечатать владельцев машин одного цвета и их грузоподъемность»
textual
Листинг программы
- begin
- var lst := ReadAllLines('thread1686479.txt');
- var gr := lst.GroupBy(s -> s.Split(' ')[1].Trim());
- foreach var g in gr do
- WriteAllLines(g.Key + '.txt', g.ToArray());
- var colors := lst.GroupBy(s -> s.Split(' ')[2]);
- foreach var c in colors do
- PrintLn(c.Key, ':', c.Select(s -> Format('({0}):{1}', s.Split(' ')[0], s.Split(' ')[3])));
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
