Движущиеся изображения (видеосигналы)

     function kub (a:real):real;

     begin

     kub:=exp(3*ln(a));

     end;

     Функция вызывается в теле основной программы:

     Vk:=kub(a);

     В качестве фактического параметра выступает  переменная a, являющаяся стороной куба.

     В переменную a1 присваиваем значение начального изменения радиуса l.

     Открываем цикл с постусловием repeat…until. В условие цикла записываем Vp>Vk, таким образом цикл будет выполняться до тех пор, пока объем куба Vk не превысит объем пирамиды Vp.

     Затем в программе происходит выполнение цикла While, который необходим для изменения стороны малого основания a1 от начального значения l до конечного n с шагом m. 

     В теле цикла происходит вычисление объема правильной усеченной пирамиды путем вызова функции Vp:=pir(h,f1,f2):

     function pir (h,f1,f2:real):real;

     begin

     pir:=1/3*h*(f1+sqrt(f1*f2)+f2);

     end;

     В качестве фактических параметров выступают  переменные h (высота), f1 (площадь верхнего основания пирамиды) и f2 (площадь нижнего основания пирамиды).

     С помощью условного оператора if max<a1 then max:=a1 находится максимальное значение стороны малого основания правильной усеченной пирамиды, переприсваивается значение площадей пирамиды и выводится на экран.

     В завершении программы на экране появляется сообщение со значением максимального  малого основания правильной усеченной пирамиды, площадей основания пирамиды:

     writeln ('maksimalnoe znachenie storoni malogo osnovaniya pravilnoi usechennoi piramidi = ', max:2:2);

     writeln ('S verhnego osnovaniya = ', Sv:2:2);

     writeln ('S nignego osnovaniya = ', Sn:2:2);

     Так как переменная max – вещественного типа, то при ее выводе устанавливается формат вывода 2:2.  
 

     ИСПЫТАНИЯ 

     Для проверки правильности работы программы  необходимо провести испытания. Для  этого нам понадобиться таблица  значений, данная с заданием курсовой работы:

 

     Открыв  программу Turbo Pascal, открываем нашу программу (max_storona).Чтобы программа открылась, она должна находиться в корневом каталоге вместе с приложением программы. Открыв код, необходимо запустить его на компиляцию и отладку.

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

     После того, как все переменные станут заполнены, программа выполнит расчеты  и выведет результат-сообщение  на экран. Для эксперимента № 1 окно программы будет выглядеть следующим  образом:

     

     Рис. 1. Эксперимент №1 

     Для второго эксперимента необходимо вернуть  в код программы. Для этого  нажать любую клавишу на клавиатуре.

      И снова запустить программу на выполнение. Вводятся 2-й ряд данных. Результат: 

     Рис.2. Эксперимент №2

     Аналогично  со вторым испытанием выполняем третье, четвертое и пятое:

      Рис.3. Эксперимент №3

     Рис.4. Эксперимент №4 
 
 
 

     

     Рис.5. Эксперимент №5

     Таким образом, мы выполнили все требуемые  расчеты по представленной таблице. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     КОД ПРОГРАММЫ 

     program max_storona;

     uses crt;

     var a1,a2,f1, f2, n,m, b, h,l,max,Vk,Vp, Sv,Sn:real; k:integer;

     function kub (a:real):real;

     begin

     kub:=exp(3*ln(b));

     end;

     function pir (h,f1,f2:real):real;

     begin

     pir:=1/3*h*(f1+sqrt(f1*f2)+f2);

     end;

     begin

     clrscr;

     writeln ('vvedite nachalnoe znachenie izmeneniya storoni malogo osnovaniya');

     read (l);

     writeln ('vvedite konechnoe znachenie izmeneniya storoni bolshogo osnovaniya');

     read (n);

     writeln ('vvedite shag izmeneniya storoni');

     read (m);

     writeln ('vvedite znachenie  visoti piramidi');

     read (h);

     writeln ('vvedite znachenie storoni bolshego osnovaniya ');

     read (a2);

     writeln ('vvedite storonu kuba');

     read (b);

     writeln ('vvedite kol-vo storon');

     read (k);

     max:=0;

     Vk:=kub(b);

     a1:=l;

     repeat

     while a1<=n do

               begin

                 f1:=a1*k;

                 f2:=a2*k;

               Vp:=pir(h,f1,f2);

               if max<a1 then begin max:=a1;

                                      Sv:=f1;

                                      Sn:=f2;

                                      end;

               a1:=a1+m;

               end;

     until Vp>Vk;

     writeln ('maksimalnoe znachenie storoni malogo osnovaniya pravilnoi usechennoi piramidi = ', max:2:2);

     writeln ('S verhnego osnovaniya = ', Sv:2:2);

     writeln ('S nignego osnovaniya = ', Sn:2:2);

     readkey;

     end. 

     БЛОК-СХЕМА ПРОГРАММЫ 

     

     

     

     ЗАКЛЮЧЕНИЕ 

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

     Видео – это последовательность сменяющих друг друга изображений. Учёными было установлено, что при смене 10-12-ти изображений в секунду человеческий мозг уже не различает отдельные картинки или фотографии, которые составляют видеозапись, а воспринимают эти картинки как единое целое. И если каждая картинка будет чуть-чуть отличаться от своих соседей и при этом будет наблюдаться некоторая тенденция изменения кадров (например, тенденция падения шарика или тенденция прыжка лягушки), то наш мозг воспримет такой набор связанных друг с другом картинок как единый поток информации, то есть видео.

     В настоящем полноценном видео  используется 24 кадра в секунду. Все эти кадры являются самыми обычными изображениями, принадлежащими какому-либо из изученных нами форматов изображений. Значит, чтобы представить видеоданные в цифровом виде на компьютере, нужно закодировать в определённой последовательности каждое из изображений, составляющих видео.

     СПИСОК  ЛИТЕРАТУРЫ 

1. Александр Колганов, Системы мультимедиа сегодня // HARD&SOFT №4 апрель 1995г.
2. Андрей Борзенко, Программное обеспечение для мультимедиа // HARD&SOFT №2 февраль 1995г
3. Антон Веснушкин, «Живое» видео на PC // HARD&SOFT №6 декабрь 1994г.
4. В. Дьяконов “Мультимедиа–ПК”. Домашний Компьютер, 1’96.
5. В.Э. Фигурнов “IBM PC для пользователя. Краткий курс” – М.: ИНФРА-М, 1998.
6. Константин Гласман «Методы передачи данных в цифровом телевидении»
7. Лев Севальнев «Международный стандарт кодирования с информационным сжатием MPEG-2»
8. Мультимедиа — синтез трех стихий. С. Новосельцев // Компьютер–Пресс №7 1991г.
9. Мультимедиа–ПК. В. Дьяконов // Домашний Компьютер №1 1996г
10. С. Новосельцев “Мультимедиа — синтез трех стихий”. Компьютер–Пресс, 7’91.

 

 

СПИСОК  ЛИТЕРАТУРЫ 

      1. Абрамов В.Г., Трифонов Н.П. Введение  в язык Паскаль. – М. :Наука, 1988.-320 с.

      2. Абрамов С.А., Зима Е.В. Начала  программирования на языке Паскаль.– М.: Наука, 1987. – 112 с.

      3. Бутомо И.Д., Самочадин А.В., Усанова  Д.В. Программирование на алгоритмическом  языке Паскаль. – Л.: Издательство  Ленинградского университета, 1985. –  216 с.

      4. Грэхем Р. Практический курс  языка Паскаль. – М.: Радио и связь. 1986– 200 с.

      5. Йенсен К., Вирт Н. Руководство  для пользователя и описание языка. М., 1982. 151 с.

      6. Пильщиков В.Н. Сборник упражнений по языку Паскаль. – М.: Наука, 1989. – 160 с.

     7. http://lessons-tva. info/edu/telecom-loc/loc.html

     8. http://revolution. allbest.ru/programming/00048433_0.html

     9. http://ru. wikipedia.org/wiki/LAN