Записать строки в файл в порядке убывания оклада служащего

@Berriyu · Пример ввода Вывод в файл

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

На вход программы подается натуральное число N, не превосходящее 100,а за ним N строк следующей структуры:
Служащий-ФИО(текстовое 50 символов),должность(текстовое 15 символов),оклад(вещественное). Программа должна записать строки в файл EMPLOYEE.TXT в порядке убывания оклада служащего.

Пример ввода	Вывод в файл
3
Иван Иваныч столяр 200	Петр Ильич директор 500
Петр Ильич директор 500	Анна Ивановна завлаб 300
Анна Ивановна завлаб 300	Иван Иваныч столяр 200

@Joy · 23.03.2016, 07:46

Pascal

uses Arrays, System.IO;
type ar=array of string;
var 
  z:array of ar;
  x:string:='';
  n:integer;
function SP(s : string) : ar;
begin
  SetLength(Result,3);
  Result[0] := copy(s,1,50);
  Result[1]:=copy(s,51,15);
  Result[2]:=copy(s,66,length(s));
end;
begin
  readln(n);
  z:=ReadArrString(n).Select(c->SP(c)).ToArray().OrderByDescending((t:ar)->strtofloat(t[2])).ToArray();
  foreach L : ar in z do x:=x+string.Join('', L)+newline;
  &File.WriteAllText('EMPLOYEE.TXT',x,Encoding.Default);
end.

@volvo · 23.03.2016, 16:11

Pascal

uses Arrays, System.IO;
begin
  &File.WriteAllLines('EMPLOYEE.TXT',
    ReadArrString(ReadLnInteger()).OrderByDescending(s -> StrToFloat(s.Split(' ').Last())).ToArray()
    Encoding.Default)
end.

Записать строки в файл в порядке убывания оклада служащего

Решение

Решение

	23.03.2016, 16:11