Отсортировать по убыванию числа, содержащиеся в файле, и записать их в другой файл

@maaarlo · Регистрация: 16.12.2017

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

В Файле А есть 10 чисел, отсортировать их по убыванию и записать в файл Б

@JuriiMW · 16.01.2018, 10:24

Pascal

begin
  var а,б : File of Real;
  var a:array of Real;SetLength(a,10);
  Reset(а,'а.dat');for var i:=0 to 9 do Read(а,a[i]);Close(а);
  Rewrite(б,'б.dat');foreach var n in a.Sorted().Reverse do Write(б,n);Close(б);
end.

@Hitoku · 16.01.2018, 12:06

Pascal

begin
  WriteAllText('b.dat',ReadAllLines('a.dat').Select(v -> integer.Parse(v))
    .OrderByDescending(v -> v).JoinIntoString(NewLine));
end.

@volvo · 16.01.2018, 20:03

Pascal

1
2
3

begin
  WriteAllText('b.dat', ReadAllText('a.dat').ToReals.SortedAscending.JoinIntoString);
end.

@JuriiMW · 17.01.2018, 05:37

Hitoku и volvo, ваше решение для текстовых файлов,
когда моё — для типизированного.

@maaarlo · 18.01.2018, 05:29 **[ТС]**

ох, я такое в паскале не видел)
полагал будет что-то вроде

Pascal

reset(a)
read(a,A[i]);
for i:=1 to n-i
for j:=1 to n-i
if A[j]>A[i+1] then A[j]:=

1. Читаем с файла А числа. (Можно обойтись и без массива, если идет речь о сортировке?)
2. Сортируем.
3. Записываем в файл Б.

@JuriiMW · 18.01.2018, 06:44

maaarlo, ну, дык, это же ABC.NET, а не Turbo Pascal…

Он даже предупреждение выдаёт на такие строки, как 3 и 4 у вас:
„Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла“

@maaarlo 0 / 0 / 0 Регистрация: 16.12.2017 Сообщений: 56
		1
	Отсортировать по убыванию числа, содержащиеся в файле, и записать их в другой файл 16.01.2018, 09:53. Показов 1091. Ответов 6 Метки нет (Все метки) В Файле А есть 10 чисел, отсортировать их по убыванию и записать в файл Б 0

@JuriiMW 5059 / 2633 / 2346 Регистрация: 10.12.2014 Сообщений: 9,997
	17.01.2018, 05:37	5
	Hitoku и volvo, ваше решение для текстовых файлов, когда моё — для типизированного. 0

@JuriiMW 5059 / 2633 / 2346 Регистрация: 10.12.2014 Сообщений: 9,997
	18.01.2018, 06:44	7
	maaarlo, ну, дык, это же ABC.NET, а не Turbo Pascal… Он даже предупреждение выдаёт на такие строки, как 3 и 4 у вас: „Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла“ 0

Опции темы