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

File28. Дан файл вещественных чисел. Заменить в файле каждый элемент, кроме начального и конечного, на его среднее арифметическое с предыдущим и последующим элементом.

Решение Pascal

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

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

  • 15.11.2022
    Permalink

    program file28;

    var
    f1:file of integer;
    f2:file of real;
    s1:string;
    temp1,temp2,temp3,num,i,temp:integer;
    res:real;
    begin

    writeln(‘vhodnoy file’);
    readln(s1);
    assign(f1,s1);
    assign(f2,’~’+s1);

    {$I-}

    writeln(‘original’);
    reset(f1);
    num:=1;
    while not eof(f1) do begin
    read(f1,i);write(i,’ ‘);
    inc(num,1);
    end;
    close(f1);
    writeln();

    reset(f1);
    rewrite(f2);

    read(f1,temp);
    temp1:=temp;
    write(f2,temp1);

    read(f1,temp);
    temp2:=temp;

    program file28;

    var
    f1:file of integer;
    f2:file of real;
    s1:string;
    temp1,temp2,temp3,num,i,temp:integer;
    res:real;
    begin

    writeln(‘vhodnoy file’);
    readln(s1);
    assign(f1,s1);
    assign(f2,’~’+s1);

    {$I-}

    writeln(‘original’);
    reset(f1);
    num:=1;
    while not eof(f1) do begin
    read(f1,i);write(i,’ ‘);
    inc(num,1);
    end;
    close(f1);
    writeln();

    reset(f1);
    rewrite(f2);

    read(f1,temp);
    temp1:=temp;
    write(f2,temp1);

    read(f1,temp);
    temp2:=temp;
    if IOResult=0 then begin

    while not eof(f1) do begin
    read(f1,temp);
    temp3:=temp;

    res:=(temp1+temp3)/2;
    write(f2,res);

    temp1:=temp2;
    temp2:=temp3;

    end;//end while
    write(f2,temp3);
    close(f1);
    close(f2);

    end;//ior

    writeln(‘itog:’);
    reset(f2);
    while not eof(f2) do begin
    read(f2,res);write(res:2:0,’ ‘);
    end;close(f2);

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