ricombinazione

ricombinazione in batteri

ritorna ../biolox.htm

program rico1;
(* ricombinazione batterica *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15:integer;

procedure grafica;
var t,s:integer;
stringa:string;
begin
t:=0;
s:=0;
stringa:=('bgi');
initgraph(s,t,stringa);
end;


procedure pausa1;
begin
setcolor(c4);
outtextxy(430,10,'premi INVIO');readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(c15);
end;

procedure pausa;
begin
readln;cleardevice;
end;

procedure testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;

procedure cancella;
begin
setfillstyle(1,0);
bar(20,300,600,400);
setcolor(c15);
end;

procedure inizio1;
begin
cleardevice;
setcolor(c2);
settextstyle(3,0,4);
testo(30,50,'Ricombinazione Dna batterico');
testo(30,100,'Coniugazione tra batteri');
setcolor(c3);
settextstyle(3,0,3);
testo(30,200,'duplicazione DNA da trasferire');
testo(30,250,'collegamento tra batteri +F e -F ');
testo(30,300,'trasferimento DNA attraverso tubetto o pilum');
testo(30,350,'separazione batteri coniuganti');
pausa1;
cleardevice;
end;

procedure pro1;
begin
cleardevice;
inizio1;
setcolor(c3);
rectangle(100,30,400,130);
line(150,50,350,50);
circle(200,100,20);
testo(30,320,'batterio +F con cromosoma e Plasmide');pausa1;
rectangle(100,150,400,250);
setcolor(c2);
line(150,220,350,220);
setcolor(c2);circle(200,190,20);
testo(30,340,'batterio -F con cromosoma e Plasmide');pausa1;
cancella;
setcolor(c3);circle(200,100,18);
testo(30,320,'duplicazione Plasmide da trasferire');pausa1;
setcolor(0);circle(200,100,18);
setcolor(c3);circle(300,100,18);pausa1;
setcolor(0);circle(300,100,18);cancella;
setcolor(c3);line(250,100,320,100);
testo(30,320,'apertura Plasmide da trasferire');pausa1;cancella;
setcolor(0);rectangle(250,130,270,150);
setcolor(c3);line(250,130,250,150);line(270,130,270,150);
testo(30,320,'collegamento tra batteri in fase di Coniugazione');pausa1;
cancella;setcolor(0);line(250,100,320,100);
setcolor(c3);line(260,110,260,170);
testo(30,320,'trasferimento filamento da +F a -F ');pausa1;
cancella;setcolor(0);line(260,110,260,170);
setcolor(c3);circle(300,190,20);
testo(30,320,'formazione Plasmide da filamento trasferito');pausa1;
cancella;
setcolor(0);line(250,130,250,150);line(270,130,270,150);
setcolor(c3);rectangle(100,30,400,130);
rectangle(100,150,400,250);testo(30,320,'separazione Coniuganti');
pausa1;
cleardevice;
end;


procedure inizio2;
begin
cleardevice;
setcolor(c2);
settextstyle(3,0,4);
testo(30,100,'Ricombinazione Dna batterico');
testo(30,150,'per Trasformazione');
setcolor(c3);
settextstyle(3,0,3);
testo(30,200,'batterio1 morto libera Plasmide nello ambiente');
testo(30,250,'batterio2 assume Plasmide presente nello ambiente');
testo(30,300,'batterio2 acquisisce nuove informazioni');
testo(30,350,'che trasferisce a successive generazioni');
pausa1;
cleardevice;
end;

procedure inizio3;
begin
cleardevice;
setcolor(c2);
settextstyle(3,0,4);
testo(30,100,'Ricombinazione Dna batterico');
testo(30,150,'per Trasduzione mediante Virus');
setcolor(c3);
settextstyle(3,0,1);
testo(30,200,'Virus penetra in batterio1 ');
testo(30,250,'Dna virale si inserisce in Dna batterico:ciclo Lisogeno ');
testo(30,300,'Dna virale si stacca asportando segmento Dna batterico');
testo(30,350,'ciclo Litico:nuovi VIRUS ricombinanti escono da batterio1');
testo(30,380,'Dna virale ricombinante infetta Batterio2:ciclo Lisogeno');
testo(30,410,'Batterio2 acquisisce nuove informazione da Batterio1');
pausa1;
cleardevice;
end;

procedure pro3;
begin
cleardevice;
inizio3;
setcolor(c3);
rectangle(50,150,500,250);
setcolor(c2);
line(100,200,300,200);
testo(30,320,'batterio1 con Dna cromosomico');pausa1;
circle(200,50,30);setlinestyle(1,2,3);line(180,50,220,50);
testo(30,350,'Virus con Dna virale');pausa1;cancella;
setcolor(0);circle(200,50,30);
setlinestyle(1,2,3);line(180,50,220,50);
setcolor(c15);
circle(200,120,30);setlinestyle(1,2,3);line(180,120,220,120);
testo(30,320,'adesione del Capside virale a membrana batterica');pausa1;
cancella;setcolor(0);circle(200,50,30);
setlinestyle(1,2,3);line(180,50,220,50);
setcolor(0);
circle(200,120,30);setlinestyle(1,2,3);line(180,120,220,120);
setcolor(c15);line(200,160,200,200);
setcolor(c3);rectangle(50,150,500,250);
testo(30,320,'inserimento Dna virale in batterio');pausa1;
cancella;
setcolor(0);line(200,160,200,200);
setfillstyle(1,c2);bar(100,200,300,200);
setcolor(c15);line(200,200,150,200);
testo(30,320,'Dna virale si inserisce in Dna batterico');
testo(30,340,'inizia ciclo Lisogeno:virus latente');
testo(30,360,'batterio trasmette gene virale a generazioni seguenti');
pausa1;cancella;
setcolor(0);line(200,160,200,200);
setfillstyle(1,0);bar(100,200,300,200);
setcolor(c15);line(150,200,200,200);
setcolor(c2);line(200,200,250,200);
setcolor(c15);
testo(30,320,'Dna virale si stacca da Dna batterico');
testo(30,340,'con segmento Dna batterico unito a Dna virale');
testo(30,360,'inizia ciclo Litico con riproduzione del virus');
pausa1;
setcolor(0);line(150,200,200,200);
setcolor(0);line(200,200,250,200);
setcolor(c15);line(100,170,150,170);setcolor(c2);line(150,170,200,170);
setcolor(c15);line(100,190,150,190);setcolor(c2);line(150,190,200,190);
setcolor(c15);line(100,210,150,210);setcolor(c2);line(150,210,200,210);
setcolor(c15);circle(300,200,30);circle(380,200,30);circle(450,200,30);
pausa1;
setfillstyle(1,0);bar(60,160,490,240);
setcolor(c15);line(280,200,300,200);setcolor(c2);line(300,200,320,200);
setcolor(c15);line(360,200,380,200);setcolor(c2);line(380,200,400,200);
setcolor(c15);line(430,200,450,200);setcolor(c2);line(450,200,470,200);
setcolor(c15);circle(300,200,30);circle(380,200,30);circle(450,200,30);
pausa1;
cancella;
setfillstyle(1,0);bar(50,240,500,260);
testo(30,320,'lisi della cellula batterica');
testo(30,340,'liberazione dei nuovi virus Ricombinanti');
pausa1;cleardevice;
setcolor(c6);
rectangle(50,200,500,300);
setcolor(c3);line(100,250,300,250);
testo(30,320,'batterio2 con Dna cromosomico');pausa1;
setcolor(c15);circle(300,170,30);line(280,170,300,170);
setcolor(c2);line(300,170,320,170);
testo(30,340,'adesione virus ricombinante a batterio2');
pausa1;cancella;
setcolor(0);line(280,170,300,170);
setcolor(0);line(300,170,320,170);
setcolor(c15);
testo(30,340,'inserimento Dna ricombinante in batterio2');
line(300,210,300,230);setcolor(c2);line(300,230,300,250);
pausa1;cancella;setcolor(0);circle(300,170,30);
setcolor(c6);rectangle(50,200,500,300);pausa1;
setcolor(0);line(300,210,300,230);setcolor(0);line(300,230,300,250);
setcolor(c15);line(300,250,320,250);
setcolor(c2);line(320,250,340,250);
testo(30,320,'inserimento Dna ricombinante in Dna batterio2');
pausa1;cleardevice;setlinestyle(1,1,1);
end;

procedure pro2;
begin
cleardevice;
inizio2;
setcolor(c3);
rectangle(50,50,450,150);
line(100,100,300,100);
circle(350,100,30);
testo(30,320,'batterio1 con Dna cromosomico e plasmidiale');pausa1;
setcolor(0);rectangle(50,50,450,150);setcolor(c15);
testo(30,340,'morte del batterio1:lisi cellulare');pausa1;
cancella;setcolor(c6);
rectangle(50,200,500,300);line(100,250,300,250);circle(350,250,30);
testo(30,320,'batterio2 con Dna cromosomico e plasmidiale');pausa1;
setcolor(0);circle(350,100,30);
setcolor(c3);circle(450,250,30);
testo(30,340,'batterio2 assume plasmide batterio1');pausa1;
end;


procedure scelta;
var sce,ris,px:integer;
begin
cleardevice;
settextstyle(0,0,1);
testo(30,30,'selezionare opzione desiderata');
testo(30,50,'1..ricombinazione per coniugazione');
testo(30,70,'2..ricombinazione per trasformazione');
testo(30,90,'3..ricombinazione per trasduzione');
testo(30,120,'scelta=');readln(px);
cleardevice;
case px of
1:pro1;
2:pro2;
3:pro3;
end;
setcolor(c15);
testo(20,30,'per continuare premi 1..per finire 2 :scelta=');
gotoxy(60,2);readln(sce);
cleardevice;
if sce=1 then scelta;
end;


begin
clrscr;
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
textcolor(c3);
writeln('Ricombinazione DNA batterico');
writeln('consiste nella variazione della informazione genetica');
writeln('originale mediante aggiunta di DNA estraneo che si integra');
writeln('con il DNA originario oppure rimane libero nel citoplasma,');
writeln('sotto forma di anelli o PLASMIDI');
writeln('---------------------------------------------------------');
writeln('la ricombinazione pu• realizzarsi in tre modi diversi:');
writeln('CONIUGAZIONE-TRASFORMAZIONE-TRASDUZIONE');
writeln('---------------------------------------------------------');
writeln('importante la ricombinazione che trasferisce resistenza');
writeln('agli antibiotici a batteri originariamenti sensibili');
writeln;
writeln('premi INVIO');readln;clrscr;
grafica;
scelta;closegraph;
end.