helenodecca
04.11.2021 14:31

До іть з домашнім завданням, буду вдячним.​
Виконати потрібно в Lazarus.


До іть з домашнім завданням, буду вдячним.​Виконати потрібно в Lazarus.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Nikita1356
25.02.2020 09:06

При попытке воспроизведения файла мультимедиа с проигрывателя Microsoft Windows Media появляется следующее сообщение об ошибке:

Не удается воспроизвести файл. Формат не поддерживается (ошибка=80040265)

Причина

Такое поведение возможно в следующих случаях.

Один или несколько файлов проигрывателя Windows Media отсутствуют или повреждены.

Вы пытаетесь воспроизвести файл мультимедиа, формат которого не поддерживается проигрывателем Windows Media. Например, вы пытаетесь воспроизвести VIV-файл. Проигрыватель Windows Media не поддерживает такие файлы.

Файл мультимедиа поврежден.

Не установлен кодек, необходимый для обработки файла мультимедиа.

Проигрыватель Windows Media не поддерживает кодек, необходимый для обработки файла мультимедиа.

Решение

Чтобы решить проблему, выполните описанные ниже действия. После выполнения каждого действия проверьте, устранена ли проблема.

Примечание. Проигрыватель Windows Media поддерживает наиболее распространенные форматы файлов мультимедиа. Однако он не поддерживает все доступные форматы. В шаге 1 проверьте, что проигрыватель Windows Media поддерживает формат файла, который вы пытаетесь воспроизвести. Если проигрыватель Windows Media не поддерживает его, не выполняйте дальнейшие действия. Вместо этого свяжитесь с распространителем файла и узнайте о наличии подходящего проигрывателя.

Примечание. Приведенные ниже действия могут отличаться в зависимости от версии установленной на компьютере операционной системы Microsoft Windows. В этом случае для выполнения этих действий см. документацию к продукту.

0,0(0 оценок)
Ответ:
shukrona2006221
08.01.2021 21:29

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

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