Регистрация Спросить otvet5GPT
AronJegerRivai2
15.10.2020 10:18
Информатика
Есть ответ 👍

:pascal: создать файл f целого типа. вычислить сумму четных компонент файла. увеличить на значение суммы отрицательные компоненты второй половины файла, после этого из файла f удалить минимальную компоненту. исходный и файл после замены распечатать.

292
497
Посмотреть ответы 2

Ответы на вопрос:

ТупицаТян
ТупицаТян
4,6(97 оценок)
// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin   // создание файла   var f: file of integer;   var n: =20; // размер файла   randomize;   rewrite(f,'f.bin');   var b: integer;   loop n do begin       b: =random(-50,50);       write(f,b)       end;   f.close;   // вывод содержимого исходного файла   reset(f,'f.bin');   while not f.eof do print(f.read);   writeln;   // нахождение суммы четных компонент файла   // в связи с двусмысленностью условия считается, что   // понятие четности применяется к значению компоненты.   f.reset;   var s: =f.readelements.where(t-> t.iseven).sum; // -48   // увеличение на значение суммы отрицательных компонент   // второй половины файла   f.seek(f.filesize div 2);   while not f.eof do begin       b: =f.read;       if b< 0 then begin           b+=s;           f.seek(f.filepos-1);           write(f,b)           end       end;   // удаляем минимальную компоненту   f.reset;   var a: =f.readelements.toarray;   var imin: =a.indexmin;   a: =(a? [: imin]+a? [imin+1: ]).toarray;   f.reset;   foreach b in a do write(f,b);   f.truncate;   // вывод содержимого полученного файла   f.reset;   while not f.eof do print(f.read);   writeln;   f.close end. пример -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -47 -42 41 -38 36 26 -2 -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -90 41 -86 36 26 -50 замечание чтобы получить именно такие данные, укажите в программе randomize(3);
Мариянадубу
Мариянадубу
4,5(94 оценок)
Var s,i,n: integer; begin   readln(n); //цикл for   s: =0;   i: =0;   for i: =1 to n do s: =s+i+1;   writeln(s); //цикл while   s: =0;   i: =0;   while i< n do begin         i: =i+1;         s: =s+i+1;   end; writeln(s); //цикл repeat   s: =0;   i: =0;   repeat         i: =i+1;         s: =s+i+1;   until i=n;   writeln(s); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS