Отсортировать массив в файле по возрастанию первой цифры - Pascal
Формулировка задачи:
В файле input.txt записаны числа (в столбик), известно, что их не более 100.
Отсортировать на
ДИСКЕ
массив по возрастанию ПЕРВОЙ цифрыРешение задачи: «Отсортировать массив в файле по возрастанию первой цифры»
textual
Листинг программы
const f_in = 'input.txt'; f_out = 'output.txt'; var f, g: text; c: char; s: string; i, n, k: integer; begin assign(f, f_in); rewrite(f); repeat write('Введите количество чисел: '); readln(n); if n <= 0 then writeln('Количество чисел должно быть больше 0, повторите ввод.') until n > 0; writeln('Введите ', n, ' целых чисел:'); for i := 1 to n do begin write(i:2, ': '); readln(k); writeln(f, k) end; writeln('Исходный файл:'); reset(f); for i := 1 to n do begin readln(f, k); write(k:10) end; writeln; assign(g, f_out); rewrite(g); for c := '0' to '9' do begin reset(f); while not eof(f) do begin readln(f, s); if (length(s) > 0) and (s[1] = c) or (length(s) > 1) and (s[1] = '-') and (s[2] = c) then writeln(g, s) end end; reset(g); writeln('Отсортированный файл:'); reset(g); for i := 1 to n do begin readln(g, k); write(k:10) end; writeln; close(f); close(g); write('Нажмите <Enter> для выхода из программы'); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д