Program Posledovatelnost; var a: char; b: string; code, c: integer; label dne;begin readln(a); //Читаем code := Ord(a); //Преобразуем b := Concat(b, a); for c := 1 to 31 do begin case code of 97, 65: begin//если "A" readln(a); code := Ord(a); case code of 101, 69: b := Concat(b, a); 105, 73: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 98, 66: begin//Если "B" read(a); code := Ord(a); case code of 102, 70: b := Concat(b, a); 106, 74: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 99, 67: begin//Если "C" read(a); code := Ord(a); case code of 103, 71: b := Concat(b, a); 107, 75: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 100, 68: begin//Если "D" read(a); code := Ord(a); case code of 104, 72: b := Concat(b, a); 108, 76: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 101, 69: begin//Если "E" readln(a); code := Ord(a); case code of 97, 65: b := Concat(b, a); 105, 73: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 102, 70: begin//Если "F" readln(a); code := Ord(a); case code of 98, 66: b := Concat(b, a); 106, 74: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 103, 71: begin//Если "G" readln(a); code := Ord(a); case code of 99, 67: b := Concat(b, a); 107, 75: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 104, 72: begin//Если "H" readln(a); code := Ord(a); case code of 100, 68: b := Concat(b, a); 108, 76: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 105, 73: begin//Если "I" readln(a); code := Ord(a); case code of 97, 65: b := Concat(b, a); 101, 69: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 106, 74: begin//Если "J" readln(a); code := Ord(a); case code of 98, 66: b := Concat(b, a); 102, 70: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 107, 75: begin//Если "K" readln(a); code := Ord(a); case code of 99, 67: b := Concat(b, a); 103, 71: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; 108, 76: begin//Если "L" readln(a); code := Ord(a); case code of 100, 68: b := Concat(b, a); 104, 72: b := Concat(b, a); else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end; end; end; end; end; writeln(b); dne: end.
Для начала посчитаем, сколько бит информации было передано: 2 минуты и 45 секунд = 165 секунд 165 с * 128000 бит/с = 21120000 бит
Теперь вспомним, что такое частота дискретизация и уровни квантования. Дело в том, что аудио сигнал - это такая прикольная сложная синусоида. Чтобы записать сигнал в цифровом виде, каждую секунду сигнала как бы делят на промежутки (количество этих промежутков в секунде и есть частота дискретизации). Для каждого из этих промежутков записывается что-то вроде среднего значения высоты. Количество возможных значений - количество уровней квантования. Но это так - если говорить очень упрощённо. Подробнее прочитайте в своём учебнике информатики.
Итак - у нас 256 уровней квантования. Значит каждое из значений можно записать 8 битами. И на секунду у нас приходится 22000 таких записей. То есть каждая секунда записи у нас кодируется 22000 * 8 = 176000 битами.
21120000 / 176000 = 120 секунд.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
