Переписать числа в выходной файл в обратном порядке - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста написать программы: 1. Во входном файле первая строка – количество чисел, во второй строке – сами числа. В выходной файл вывести в первую строку – нечетные числа, имеющиеся со второй строке входного файла. Во вторую строку вписать их количество. 2. Во входном файле первая строка – количество чисел, во второй строке – сами числа (<1000). Переписать эти числа в выходной файл в обратном порядке. 3. В файле первая строка – количество чисел, во второй строке – сами числа (<1000). В этом же файле в следующей строке записать все числа второй строки, увеличив каждое на 1. Я пытался...не получается...

Решение задачи: «Переписать числа в выходной файл в обратном порядке»

textual
Листинг программы
var f,g:text;
    n,i,a,k:integer;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
k:=0;
for i:=1 to n do
 begin
  read(f,a);
  if odd(a) then
   begin
    write(g,' ',a);
    inc(k);
   end;
 end;
close(f);
if k=0 then writeln(g,'Нечетных чисел нет')
else
 begin
  writeln(g);
  writeln(g,k);
 end;
close(g);
write('Файл input прочитан, результат записан в файл output')
end.

Объяснение кода листинга программы

  1. Создаются две переменные типа text: f и g.
  2. Задается имя файла f как 'input.txt' и имя файла g как 'output.txt'.
  3. В файле f с помощью функции assign устанавливается режим чтения.
  4. В файле g с помощью функции rewrite устанавливается режим записи.
  5. Считывается число n из файла f.
  6. Создается переменная k типа integer и инициализируется значением 0.
  7. Запускается цикл for, который выполняется n раз.
  8. На каждой итерации цикла считывается число a из файла f.
  9. Проверяется, является ли число a нечетным с помощью функции odd.
  10. Если число a нечетное, то записывается в файл g с помощью функции write.
  11. Инкрементируется значение переменной k.
  12. После завершения цикла закрываются файлы f и g с помощью функций close.
  13. Выводится сообщение в зависимости от значения переменной k.
  14. Завершается программа.

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы