ricombinazione batterica
programmi scritti
con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus)
attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo
videoclip che
registro e poi richiamo con youtube
fornisco listato
pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato
videoclip
coniugazione
http://www.youtube.com/watch?v=C7hFPiuM_2g
trasformazione
http://www.youtube.com/watch?v=tB9LKBXQ3BI
trasduzione
http://www.youtube.com/watch?v=1wEracZbIfA
program rico1a; (* 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:=('c:\scheda\'); 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.