Регистрация Спросить otvet5GPT
alyastoun00
17.04.2020 06:33
Информатика
Есть ответ 👍

Двухканальная (стерео) звукозапись с частотой дискретизации 32 кГц и 24-битным разрешением велась в течение 128 секунд. Определите размер полученного файла в Кбайт

236
272
Посмотреть ответы 1

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

clashof7a
clashof7a
4,7(58 оценок)
1. программа, файл var   f: file of integer;   i,k: integer; begin   randomize;   assign(f,'in.dat'); rewrite(f);   for i: =1 to 20 do begin       k: =random(99)+1;       write(f,k)       end;   close(f) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 2. основная программа uses crt; const   nn=100; var   i,j,k,n: integer;   fin,fout: file of integer;   a: array[1..nn] of integer;   dub: boolean; begin   clrscr;   assign(fin,'in.dat'); reset(fin);   read(fin,k);   if not eof(fin) then begin       n: =1; write(k,' '); a[n]: =k       end   else n: =0;   while (not eof(fin)) and (n< =nn) do begin       read(fin,k); write(k,' ');       j: =1; dub: =false;       while (j< =n) and (not dub) do begin           dub: =(a[j]=k); inc(j);           end;       if not dub then begin inc(n); a[n]: =k; inc(j) end       end;   writeln;   close(fin);   for i: =1 to n do write(a[i],' ');   writeln; writeln('n=',n);   assign(fout,'out.dat'); rewrite(fout);   write(fout,n); close(fout);   readkey end. тестовое решение: 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 в качестве бонуса - решение этой же в современной системе программирования pascalabc.net. // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin   var fin,fout: file of integer;   reset(fin,'in.dat');   var k: integer;   var a: =new integer[fin.filesize];   var n: =0;   while not eof(fin) do begin       read(fin,k); a[n]: =k; inc(n)       end;   close(fin);   a.println;   var b: =a.tohashset;   b.println; writeln('n=',b.count) end. тестовое решение 38 35 14 46 92 49 51 48 84 90 26 14 38 79 82 77 7 24 94 13 38 35 14 46 92 49 51 48 84 90 26 79 82 77 7 24 94 13 n=18 и вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? чтобы показать, "как все это сложно"?

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS