Записать в файл все четные числа, а затем - все нечетные - Pascal
Формулировка задачи:
1.Дано файл целых чисел f. Переписать компоненты файла f в файл g так, чтобы сначала были записаны все четные числа, а затем - все нечетные.
2.Дан текстовый файл f. Записать в файл g компоненты файла f в обратном порядке.
Решение задачи: «Записать в файл все четные числа, а затем - все нечетные»
textual
Листинг программы
type iFile = file of char; var f, g: iFile; i, s, count, lengthF: integer; ch: char; procedure printFile(ff: iFile); var v: char; begin reset(ff); while not EoF(ff) do begin read(ff, v); write(v); end; reset(ff);writeln; end; begin lengthF := 0; assign(f, 'f.txt'); assign(g, 'g.txt'); writeln('Входной файл: ');printFile(f); writeln; rewrite(g); while not EoF(f) do begin read(f, ch); lengthF := lengthF + 1; end; count := lengthF; reset(f); while count >0 do begin for i := 1 to count do read(f, ch); {if ch<>#13then} write(g, ch); //убрать скобки для улучшенного вывода, если нужно dec(count); reset(f); end; close(g); writeln('Итоговый файл: ');printFile(g); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д