File10. Решебник Абрамяна М. Э.

File10. Дан файл целых чисел. Создать новый файл, содержащий те же элементы, что и исходный файл, но в обратном порядке.

Решение Pascal

Решение C++

 

Оцените решение
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

File10. Решебник Абрамяна М. Э.: 1 комментарий

  • 24.10.2022
    Permalink

    program file10;

    var
    f1,f2:file of integer;
    s1,s2:string;
    n1,n,i:integer;

    begin

    writeln(‘f1,f2’);
    readln(s1);
    readln(s2);
    assign(f1,s1);
    assign(f2,s2);

    {$I-}
    reset(f1);

    if IOResult=0 then begin
    n:=0;
    while not eof(f1) do begin
    read(f1,i); inc(n);
    end;close(f1);

    writeln(‘f1′);
    reset(f1);
    while not eof(f1) do begin
    read(f1,i);write(i,’ ‘);
    end;close(f1);
    writeln();

    rewrite(f2);
    reset(f1);
    n1:=n;
    while not eof(f1) do begin
    read(f1,i);
    seek(f2,n1-1);
    write(f2,i);
    dec(n1,1);

    end;close(f1);
    close(f2);

    writeln(‘f2′);
    reset(f2);
    while not eof(f2) do begin
    read(f2,i);write(i,’ ‘);
    end;close(f2);
    end;//iores

    end.

    Ответ

Добавить комментарий

Ваш адрес email не будет опубликован.

Решебник Абрамяна М. Э. на Pascal и С++. Двоичные (типизированные) файлы: группа File (1-90)

File1. Решебник Абрамяна М. Э.
File2. Решебник Абрамяна М. Э.
File3. Решебник Абрамяна М. Э.
File4. Решебник Абрамяна М. Э.
File5. Решебник Абрамяна М. Э.
File6. Решебник Абрамяна М. Э.
File7. Решебник Абрамяна М. Э.
File8. Решебник Абрамяна М. Э.
File9. Решебник Абрамяна М. Э.
File10. Решебник Абрамяна М. Э.
File11. Решебник Абрамяна М. Э.
File12. Решебник Абрамяна М. Э.
File13. Решебник Абрамяна М. Э.
File14. Решебник Абрамяна М. Э.
File15. Решебник Абрамяна М. Э.
File16. Решебник Абрамяна М. Э.
File17. Решебник Абрамяна М. Э.
File18. Решебник Абрамяна М. Э.
File19. Решебник Абрамяна М. Э.
File20. Решебник Абрамяна М. Э.
File21. Решебник Абрамяна М. Э.
File22. Решебник Абрамяна М. Э.
File23. Решебник Абрамяна М. Э.
File24. Решебник Абрамяна М. Э.
File25. Решебник Абрамяна М. Э.
File26. Решебник Абрамяна М. Э.
File27. Решебник Абрамяна М. Э.
File28. Решебник Абрамяна М. Э.
File29. Решебник Абрамяна М. Э.
File31. Решебник Абрамяна М. Э.
File32. Решебник Абрамяна М. Э.
File33. Решебник Абрамяна М. Э.
File34. Решебник Абрамяна М. Э.
File35. Решебник Абрамяна М. Э.
File36. Решебник Абрамяна М. Э.
File37. Решебник Абрамяна М. Э.
File38. Решебник Абрамяна М. Э.
File30. Решебник Абрамяна М. Э.
File39. Решебник Абрамяна М. Э.
File40. Решебник Абрамяна М. Э.
File41. Решебник Абрамяна М. Э.
File42. Решебник Абрамяна М. Э.
File43. Решебник Абрамяна М. Э.
File44. Решебник Абрамяна М. Э.
File45. Решебник Абрамяна М. Э.
File46. Решебник Абрамяна М. Э.
File47. Решебник Абрамяна М. Э.
File48. Решебник Абрамяна М. Э.
File49. Решебник Абрамяна М. Э.
File50. Решебник Абрамяна М. Э.
File51. Решебник Абрамяна М. Э.
File52 Решебник Абрамяна М. Э.
File53. Решебник Абрамяна М. Э.
File54. Решебник Абрамяна М. Э.
File55. Решебник Абрамяна М. Э.
File56. Решебник Абрамяна М. Э.
File57. Решебник Абрамяна М. Э.
File58. Решебник Абрамяна М. Э.
File59. Решебник Абрамяна М. Э.
File60. Решебник Абрамяна М. Э.