Преобразование изображения таким образом, чтобы строки располагались в порядке возрастания по средней яркости

Федеральное агентство по образованию РФ

Санкт-Петербургский государственный электротехнический
университет "ЛЭТИ" им. В. И. Ульянова (Ленина)

Кафедра телевидения и видеотехники

ОТЧЕТ

По Курсовой работе на тему:

«Преобразование изображения таким образом, чтобы строки располагались в порядке возрастания по средней яркости»

Выполнил ст. гр. 9105                                                                    Тенизбаев А.Б.

Проверил доц. каф. ТВ                                                               А. М. Мончак

Санкт-Петербург

2010

1.Неформальная постановка задачи.

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

2.Формальная постановка задачи:

- проверить является ли tif (в заголовке 73,73,42,0)

- вывести исходное изображение на экран дисплея, используя:

·  процедуру «new», для выделения места в динамической области памяти.

·  процедуру «putpixel» для по точечного вывода изображения

- рассчитать значение средней яркости каждой строки, суммируя значения яркости каждой точки в строке.

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

       3.Постановка задачи для ЭВМ:

5. Текст Программы:

program Kursovik;

uses Graph,Crt;

const dy=600;

      dx=600;

type

          Dim = array[1..dx] of byte;

          DimPtr = ^Dim;

          poi = array[1..dy] of DimPtr;

var

        x,y,Driv,Mode,seektiff,col                    : integer;

        Size,temp1,temp2,                                : word;

        Wx,Wy,z                                                        : longint;

        f                                                            : file;

        ImageFile1                                            : string;

        po                                                         : poi;

        br                                                          : array[1..dy,1..2] of longint;

PROCEDURE HeadRead;

Const

   TH      : array[0..3] of byte  =  (73,73,42,0);

Var

   NumberofTag,IFDlength, i,TagType,PoinTyp      : integer;

   comp,PoinAdr, head,IFDInd,BegIFD                 : longint;

   TiffHead                                                              : longint absolute TH;

Begin

    Blockread(f,head,4);