Реферат: Основы программирования

tcurr:=first;

while tcurr <> nil do

begin

act(tcurr^.inf);

tcurr:=tcurr^.next;

Возможно вы искали - Дипломная работа: Защита данных от несанкционированного доступа

end;

end;

Function Find(first:pitem; test:t_test; act:taction):pitem;

var tcurr:pitem;

begin

Похожий материал - Курсовая работа: Автоматизация работы в офисе

tcurr:=first;

while tcurr <> nil do

begin

if test(tcurr^.inf)=false then

tcurr:=tcurr^.next

Очень интересно - Реферат: Программирование логической игры на visual basic

else

begin

if test(tcurr^.inf)=true then

begin

act(tcurr^.inf);

Вам будет интересно - Реферат: Внедрение новых компьютерных и информационных технологий в учебно-воспитательный процесс

tcurr:=tcurr^.next;

end;

end;

end;

end;

Похожий материал - Реферат: Методы снижения помех в RadioEthernet-сетях

Procedure Deleting(first:pitem; test:t_test);

var tcurr,temp:pitem;

begin

tcurr:=first;

К-во Просмотров: 180
Бесплатно скачать Реферат: Основы программирования