Курсовая работа: Разработка программных продуктов

CONTINUE

END;

seek(f,0); {указатель в начало файла}

repeat {начало поиска в файле F}

read(f,z); {чтение очередной записи}

IF ( pos(pfio,z.fio)>0 )and(poklad=z.oklad)THEN

begin

sh;

P;

GoTo MK;

end; {сведенья найдены}

until eof(f);

MK:UNTIL EOF (FI);

CLOSE(FI); Close(f);

END;

{Функция удаления лишних пробелов}

Function filtr;

Var i,j,l:integer;

Begin

l:=length(str); {определение длины строки}

For i:= 1 to l do {перебор номеров символов слева направо}

IF STR[i]<>' ' THEN {поиск "непробела" слева}

FOR J:=L DOWNTO I DO {поиск номеров символа справа}

If STR[j]<>' ' THEN {поиск "непробела" справа}

BEGIN

FILTR:=COPY(STR,I,j-i+1); {копирование строки}

EXIT {выход из функции}

END;

FILTR:=' '; {возврат пустой строки}