В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
daniil14537
daniil14537
20.10.2022 01:34 •  Информатика

переписать программу с Паскаля на С++ var
n:integer;
e,a1,an:real;
begin
repeat
write('e>0 e=');
readln(e);
until e>0;
a1:=0;
an:=1;
n:=1;
repeat
n:=n+1;
a1:=an;
an:=an*(1-1/n);
until abs(an-a1)
write('an=',an:0:6,' |an-a1|=',abs(an-a1):0:6)
end.

Показать ответ
Ответ:
145781жл
145781жл
23.01.2023 04:48
Требуемая процедура
Sub ex1(ByRef a() As Integer, ByRef nn As Integer, ByRef nz As Integer)
    Dim i As Integer
    nn = 0: nz = 0
    For i = 1 To 45
        If a(i) = 0 Then
            nz = nz + 1
        Else
            If a(i) < 0 And i <= 35 Then
                nn = nn + 1
            End If
        End If
    Next i
End Sub

Процедура для тестирования с выводом на лист Excel
Sub Test()
    Dim p(1 To 45) As Integer
    Dim n1 As Integer, n2 As Integer, i As Integer
    Randomize Timer
    For i = 1 To 45
        p(i) = Int(25 * Rnd - 12)
        Cells(i, 1) = p(i)
    Next i
    ex1 p, n1, n2
    Cells(1, 2) = n1
    Cells(1, 3) = n2
End Sub
0,0(0 оценок)
Ответ:
penny2912p0bvxj
penny2912p0bvxj
08.07.2022 20:36
Частота дискретизации D = 44000 гц
разрядность i = 16 бит
t = 1 мин = 60 сек.
Стереозапись включает в себя 2 дорожки,а значит объем информации увеличивается вдвое, поэтому добавим в конечную формулу коэффициент 2.
Объем информации L =2*D*i*t = 44000*16*60*2=84480000 бит=10560000 байт=10Мбайт.

ответ: одна минута стереозаписи занимает 10Мбайт.

L = 700Мбайт = 734003200 байт
D = 44000 гц
i=16 бит = 2 байта
(тип звукозаписи - стерео => добавляется коэффициент 2)
t=L/(D*i*2)
t = 734003200/(2*44000*2) = 4170,47 сек = 69,5 мин.

ответ: 69,5 минут максимальная продолжительность стереозаписи на диске 700 Мбайт 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота