Навчальне видання. Пример 8. Процедура поиска звена в списке

Усіх форм навчання.

Конспект лекцій

END.

Пример 8. Процедура поиска звена в списке

Необходимо найти звено с заданным элементом. Результатом поиска будет ссылка rp на найденное звено с элементом m или пустая ссылка (rp=nil).

Алгоритм:

Необходимо организовать просмотр элементов списка (р – ссылка на звено с которого начинается просмотр, текущая ссылка). Просмотр следует закончить, когда найден нужный элемент p^.inf=m или просмотрен весь список p=nil

Рrocedure poisk(m:integer;p:ss; var rp:ss);

Begin

while (p^.inf<>m) and (p<>nil) do

p:=p^.sled;

rp:=p;

End;

Пример 9. Сформировать список натуральных чисел. Вывести список и количество элементов списка. Вставить в список нулевой элемент после элемента, равного 4. Если в списке нет элемента, равного 4, то удалить из списка второй элемент.

program spisok;

uses crt;

type

ss=^zveno;

zveno=record

inf:integer;

sled:ss

end;

var p,f,u:ss; i,m:integer;

Procedure form;

var s:integer;

Begin

New(u); p:=u; u^.inf:=0; u^.sled:=nil;

Writeln('input chislo');

Readln(s);

While s<>0 do

begin new (p^.sled);p:=p^.sled; p^.inf:=s; p^.sled:=nil;

inc(u^.inf); readln(s);

end; writeln

End;

Procedure print;

begin

writeln(' spisok');

p:=u^.sled;

while p<>nil do

begin write(p^.inf,' ');

p:=p^.sled

end;

writeln;

end;

Procedure vstavka(p:ss;m:integer);

var g:ss;

begin

new(g);

g^.inf:=m;

g^.sled:=p^.sled;

p^.sled:=g;

inc(u^.inf);

end;

Procedure del(p:ss);

var g:ss;

begin

g:=p^.sled;

p^.sled:=p^.sled^.sled;

dispose(g);

dec(u^.inf);

end;

Procedure poisk(m:integer;p:ss; var rp:ss);

begin

while (p^.inf<>m) and (p<>nil) do

p:=p^.sled;

rp:=p;

end;

BEGIN clrscr;

form;

print; writeln('kol-vo=', u^.inf);

p:=u^.sled;

poisk(4,p,f);

if f<>nil then vstavka(f,0) else del(s^.sled);

print; writeln('kol-vo=', u^.inf);

readln;

з дисципліни “Генетика”

для студентів напряму 6.051401 “Біотехнологія”

Розділ “Генетична інженерія”

Затверджено на засіданні кафедри

біотехнології та БЖД,

протокол № 5 від 03. 01. 2012 р.

Дніпропетровськ

2012 рік

Конспект лекцій з дисципліни “Генетика” для студентів напряму 6.051401 “Біотехнологія” усіх форм навчання. Розділ “Генетична інженерія” / Укл.: Т. М. Сатарова, - Дніпропетровськ: УДХТУ, 2012. - с.

Укладач: доктор біологічних наук, професор Т. М. Сатарова

Відповідальний за випуск: доктор сільськогосподарських наук, професор В. Т. Сметанін

Конспект лекцій з дисципліни “Генетика” для студентів напряму 6.051401 “Біотехнологія” усіх форм навчання. Розділ “Генетична інженерія”

Укладач: Сатарова Тетяна Миколаївна, доктор біологічних наук

Редактор Л.М.Тонкошкур

Коректор Л.Я.Гоцуцова

Підписано до друку. Формат. Папір друк. №.

Друк офсетний. Умов.-друк. арк. 1,63. Облік.-вид. арк. 1,67.

Тираж 100 прим. Зам. №. Свідоцтво ДК № від.

УДХТУ, 49005, Дніпропетровськ – 5, просп. ім.Гагаріна,8

Дільниця оперативної поліграфії ІнКомЦентру

Зміст

Стор.

ВСТУП...............................................................................................................4

РОЗДІЛ 1. ТЕХНІКА ОТРИМАННЯ ТА КЛОНУВАННЯ

РЕКОМБІНАНТНИХ ДНК..........................................................................6

Вибір та отримання фрагменту донорної ДНК.........................................7

Вибір та підготовка векторної ДНК для клонування..............................13

Поєднання донорної та векторної ДНК

з утворенням рекомбінантної ДНК...........................................................20

Дата добавления: 2014-01-05