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

File13. Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла (в обратном порядке), а второй — отрицательные (также в обратном порядке). Если положительные или отрицательные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым.

Решение Pascal

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

File13. Решебник Абрамяна М. Э.: 2 комментария

  • 25.10.2022
    Permalink

    program file13;

    var
    f1,f2,f3,f22,f33:file of integer;
    s1,s2,s3,s4,s5:string;
    n2,n3,n,i,i1:integer;

    begin

    writeln(‘f1=f3′);
    readln(s1);
    assign(f1,s1);

    {$I-}
    reset(f1);

    if IOResult=0 then begin
    s2:=’4et’;s3:=’ne4et’;
    assign(f2,s2);
    assign(f3,s3);

    rewrite(f2);
    rewrite(f3);

    //n:=1;
    n2:=0;n3:=0;
    while not eof(f1) do begin

    read(f1,i);
    if (i>=0) then begin write(f2,i);inc(n2,1);end
    else begin write(f3,i);inc(n3,1);end;
    //inc(n,1);

    end;
    close(f1);close(f2);close(f3);
    writeln(n2,’ ‘,n3);
    end;//iores

    s4:=’plus’;s5:=’minus’;
    assign(f22,s4);
    assign(f33,s5);

    rewrite(f22);
    reset(f2);
    n:=n2;
    for i:=1 to n2 do begin
    seek(f2,n2-i);
    read(f2,i1);
    write(f22,i1);
    end;
    close(f2);

    rewrite(f33);
    reset(f3);
    n:=n3;
    for i:=1 to n3 do begin
    seek(f3,n3-i);
    read(f3,i1);
    write(f33,i1);
    end;
    close(f3);

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

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

    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. Решебник Абрамяна М. Э.