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

File50. Даны два файла вещественных чисел с именами S1 и S2, элементы которых упорядочены по возрастанию. Объединить эти файлы в новый файл с именем S3 так, чтобы его элементы также оказались упорядоченными по возрастанию.

 

Решение Pascal

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

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

  • 07.12.2022
    Permalink

    program file50;

    var

    f1,f2,f3,f4,fmin,fmax:file of integer;
    s,s1,s2,s3,s0:string;
    st,n1,n2,n3,i,i1:integer;

    begin
    s1:=’sb’;
    s2:=’sa’;

    assign(f1,s1);
    assign(f2,s2);

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

    writeln();

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

    writeln(‘enter sc name’);
    read(s);
    assign(f3,s);

    reset(f1);reset(f2);
    rewrite(f3);
    read(f1,n1);read(f2,n2);

    if n1n2 then begin write(f3,n2);n2:=n1;fmin:=f2;fmax:=f1;st:=2; end;

    while ( (not eof(f1)) or (not eof(f2)) ) do begin

    read(fmin,n1);

    if n1n2 then begin
    write(f3,n2); n2:=n1;
    if st=1 then begin fmin:=f2;st:=2; continue;end;
    if st=2 then begin fmin:=f1;st:=1;continue;end;
    end;

    if st=1 then fmax:=f2 else if st=2 then fmax:=f1;

    if ( (eof(fmin)) and (not eof(fmax)) ) then
    begin

    write(f3,n2);
    while not eof(fmax) do begin read(fmax,n2); write(f3,n2);end;
    end;//endif

    end;

    close(f1);close(f2);close(f3);
    writeln();

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

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