vera0503
01.01.2021 01:56

Логические основы компьютера. решить

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lehasokol03
26.02.2022 22:17

Звук - это колебания воздуха, воздействующие на орган слуха человека. Впервые запись и воспроизведение звука осуществил выдающийся американский изобретатель сэр Томас Алва Эдисон (1847-1931) в 1877 г. Он изобрел фонограф - восковой валик, на котором игла фонографа при вращении валика оставляла звуковую дорожку. Звуковые колебания передавались на иглу от мембраны, находящейся в рупоре. Так осуществлялась запись звука. Для воспроизведения звука использовался тот же валик, покрытый путем электролиза металлом. Игла фонографа, двигаясь по канавке, передавала колебательные движения на мембрану и рупор. Так воспроизводился звук. Этот записи звука называется механическим. В дальнейшем он был значительно усовершенствован.

В 1888 г. была изобретена грампластинка, и на смену фонографу пришел граммофон. Его изобрел немецкий инженер Эмиль Берлинер. Ему удалось устранить такой недостаток фонографа, как невозможность тиражирования записей. Он отделил запись звука от воспроизведения и создал матрицу для штампования грампластинок.

В это же время французский инженер Шарль Кро предложил портативный вариант граммофона - патефон. Его выпускала в Париже фирма «Пате» (отсюда и название - патефон).

К концу XIX столетия начался век электричества, и в связи с этим изобретатели вели активные поиски новых записи звука. В 1888 г. знаменитый русский физик А.Г. Столетов создал первый в мире фотоэлемент. Это открытие позволило русскому ученому А.Ф. Викшемскому разработать в 1889 г. аппарат для оптической записи звука на светочувствительной ленте. Суть изобретения - в преобразовании звуковых колебаний в электрические и затем - в переменные световые. При освещении таким модулированным светом фотобумаги получается фотографическая фонограмма. Затем был найден воспроизведения звука с фотографической фонограммы. Его предложил в 1900 г. русский инженер И.Л. Поляков.

Объяснение:

0,0(0 оценок)
Ответ:
Sashapro111
09.08.2022 11:43
Uses crt;
const
    nmax = 20;

var
    A: array[1..nmax] of integer;
    I, m, s: integer;
    Am, kon: text;

begin
    Clrscr;
    Assign(Am, 'Am.txt');
    
    {раскоментировать для записи массива в файл}
    {Rewrite(Am);
    m := Random(nmax - 5) + 5;
    for i := 1 to m do
        Writeln(Am, Random(20));
    Close(Am);}
    
    {считывание данных из файла}
    Reset(Am);
    s := 0;
    m := 0;
    while not eof(Am) do
    begin
        m := m + 1;
        Readln(Am, A[m]);
        s := s + A[m];
    end;
    Close(Am);
    
    Assign(kon, 'kon.txt');
    Rewrite(kon);
    
    if s > 50 then
        Writeln('Сумма элементов массива более 50 и равна: s=', s)
    Else
    begin
        Writeln('Сумма элементов менее 50, вывод исходного массива');
        for i := 1 to m do
        begin
            Writeln('A[', i, ']=', A[i], ' ');
            Writeln(kon, 'A[', i, ']=', A[i], ' ');
        end;
    end;
    
    Close(kon);
    Readkey;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота