Решить 1. файл с монозвуком имеет глубину кодирования 16 битов и частоту дискретизации 16000. вычислите информационный объем файла в килобайтах, если продолжительность его звучания 30 с. 2. информационный объем файла со стереозвуком составляет 1760000 байтов. с какой частотой дискретизации он закодирован, если продолжительность звучания файла – 20 с, а глубина кодирования – 16 битов? 3.оцените информационный объем стереоаудиофайла длительностью 1 с при частоте дискретизации 48000 и разрешении 16 битов.

1) Происходит 16000 измерений в секунду, на одно измерение отводится 16 бит, значит, на секунду необходимо 16000 * 16 бит = 16000 * 2 байт = 32000 байт, а на 30 секунд - 30 * 32 000 байт = 960 000 байт = 937,5 Кб

2) Необходимо 1 760 000 байт на 20 секунд, т.е. 1 760 000 / 20 = 88 000 байт. Есть 2 канала по 16 бит = 2 байта, одно измерение занимает 2 * 2 = 4 байта, тогда всего измерений в секунду 88 000 / 4 = 22 000, частота дискретизации 22 000 Гц.

3) 2 * 1 * 48000 * 16 бит = 48000 * 4 байт = 187,5 Кб

1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r

Интернет по сути своей не представляет опасности для подрастающего поколения. Вредоносное влияние оказывают многочисленные сайты и всплывающие окна рекламного характера. Помимо образовательной роли виртуальная реальность таит и множество негативных моментов, в особенности для детей. Это может быть:

незаконный контент: «взрослая» реклама табака, алкоголя, секса, азартные игры, порнография;платные сервисы и услуги, которые оплачиваются отдельно;призывы к асоциальному поведению, насилию и жестокости;пропаганда сексуальной эксплуатации и суицидального поведения;общение на форумах и чатах с мошенниками, аферистами и преступниками под личиной доброжелателей;вынуждение предоставления личной информации ребенка или его семьи, которая может быть использована в преступных целях;Интернет-зависимость.