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

File9. Даны имена двух файлов вещественных чисел. Известно, что один из них (не обязательно первый) существует и является непустым, а другой в те-кущем каталоге отсутствует. Создать отсутствующий файл и записать в него конечный и начальный элементы существующего файла (в указанном порядке).

Решение Pascal

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

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

  • 23.10.2022
    Permalink

    program file9;

    var
    fin,fout,f1:file of integer;
    s1,s2:string;
    first,last,num,num2,i:integer;

    begin

    writeln(‘f1,f2′);

    readln(s1);
    readln(s2);

    assign(f1,s1);

    {$I-}
    reset(f1);

    if IOResult=0 then

    begin //f1 exist
    close(f1);
    assign(fin,s1);
    reset(fin); //fin=s1
    assign(fout,s2);
    rewrite(fout);//fout=s2
    end//create f2

    else

    begin //f1 doesnt exist
    assign(fin,s2);
    reset(fin);//open s2 fin=s2
    assign(fout,s1);
    rewrite(fout);//create fout=s1
    end;

    reset(fin);
    num:=1;
    while not eof(fin) do begin
    read(fin,i);
    if num=1 then first:=i;
    inc(num,1);
    num2:=i;
    end;
    last:=num2;
    write(fout,last);
    write(fout,first);
    close(fin);

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

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