enzima normale e mutato (

virus1

ciclo litico e lisogeno

videoclip
litico
http://www.youtube.com/watch?v=fBvUw0RxLQM

lisogeno
http://www.youtube.com/watch?v=CESFHZVgc-A

program virus1;
(* cicli virali *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15,x,a: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,310,600,430);
setcolor(c15);
end;

procedure inizio1;
begin
cleardevice;
setcolor(c2);
settextstyle(3,0,4);
testo(30,50,'Ciclo riproduttivo del Batteriofago');
setcolor(c3);
settextstyle(3,0,3);
testo(30,200,'virus riconosce batterio da infettare');
testo(30,230,'capside aderisce a parete batterica ');
testo(30,260,'trasferimento DNA virale nel citoplasma batterico');
testo(30,290,'duplicazione DNA virale a spese del batterio');
testo(30,320,'trascrizione DNA virale in m-RNA virale');
testo(30,350,'proteinosintesi e assemblaggio capsidi virali');
testo(30,380,'inserimento DNA virale in capsidi');
testo(30,410,'lisi batterica e uscita dei nuovi virus');
pausa1;
cleardevice;
end;

procedure inizio2;
begin
cleardevice;
setcolor(c2);
settextstyle(3,0,4);
testo(30,50,'Ciclo riproduttivo del Batteriofago');
setcolor(c3);
settextstyle(3,0,3);
testo(30,100,'virus riconosce batterio da infettare');
testo(30,130,'capside aderisce a parete batterica ');
testo(30,160,'trasferimento DNA virale nel citoplasma batterico');
testo(30,190,'DNA virale si integra in DNA batterico');
testo(30,220,'il batterio trasmette alle generazioni successive');
testo(30,250,'il DNA virale che non produce nessun effetto');
pausa1;
testo(30,270,'stimoli vari possono riattivare DNA virale');
testo(30,300,'che si stacca dal DNA batterico e diventa virulento');
testo(30,330,'duplicazione DNA virale a spese del batterio');
testo(30,360,'trascrizione DNA virale in m-RNA virale');
testo(30,390,'proteinosintesi e assemblaggio capsidi virali');
testo(30,410,'inserimento DNA virale in capsidi');
testo(30,440,'lisi batterica e uscita dei nuovi virus');
pausa1;
cleardevice;
end;

procedure pro1;
begin
cleardevice;
inizio1;
setcolor(c3);
rectangle(100,100,500,300);
line(200,200,400,200);
testo(30,320,'batterio con DNA cromosomico');pausa1;
setcolor(c2);
circle(300,50,30);line(280,50,320,50);
testo(30,340,'Virus con DNA');pausa1;
setcolor(0);
circle(300,50,30);line(280,50,320,50);
setcolor(c2);
circle(300,70,30);line(280,70,320,70);
testo(30,360,'virus riconosce batterio e aderisce');pausa1;
setcolor(0);
line(280,70,320,70);
setcolor(c2);line(300,100,300,140);
testo(30,380,'inserimento DNA virale in batterio');pausa1;
setcolor(0);circle(300,70,30);
setcolor(c3);rectangle(100,100,500,300);pausa1;
cancella;
setcolor(0);line(200,200,400,200);setcolor(c15);
testo(30,320,'distruzione o inattivazione DNA batterico');
testo(30,340,'duplicazione DNA virale');
setcolor(0);line(300,100,300,140);
setcolor(c2);
x:=150;
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
pausa1;cancella;x:=153;setcolor(c6);
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
testo(30,320,'trascrizione in m-RNA virale');pausa1;
testo(30,340,'traduzione e sintesi capsidi virali');
x:=153;setcolor(0);
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
x:=150;setcolor(c2);
for a:=1 to 7 do
begin
circle(x,250,20);
x:=x+50;
end;pausa1;

testo(30,360,'assemblaggio capside+Dna virale');
x:=150;setcolor(0);
for a:=1 to 7 do
begin
circle(x,250,20);
x:=x+50;
end;
x:=150;setcolor(c2);
for a:=1 to 7 do
begin
circle(x,170,20);
x:=x+50;
end;pausa1;cancella;
testo(30,320,'lisi batterica:liberazione VIRUS');
testo(30,340,'fine ciclo LITICO con virus virulento');
setcolor(0);rectangle(100,100,500,300);pausa1;
cleardevice;
end;

procedure pro2;
begin
cleardevice;
inizio2;
setcolor(c3);
rectangle(100,100,500,300);
line(200,200,400,200);
testo(30,320,'batterio con DNA cromosomico');pausa1;
setcolor(c2);
circle(300,50,30);line(280,50,320,50);
testo(30,340,'Virus con DNA');pausa1;
setcolor(0);
circle(300,50,30);line(280,50,320,50);
setcolor(c2);
circle(300,70,30);line(280,70,320,70);
testo(30,360,'virus riconosce batterio e aderisce');pausa1;
setcolor(0);
line(280,70,320,70);
setcolor(c2);line(300,100,300,140);
testo(30,380,'inserimento DNA virale in batterio');pausa1;
testo(30,400,'DNA virale si integra in DNA batterico');
setcolor(0);circle(300,70,30);pausa1;
setcolor(0);line(300,100,300,140);
setcolor(c3);rectangle(100,100,500,300);
setcolor(c2);line(250,200,300,200);pausa1;
cancella;
testo(30,320,'DNA virale si integra con DNA batterico');
testo(30,340,'senza produrre nessun effetto:temperato,latente');
testo(30,360,'il batterio trasmette alle generazioni successive');
testo(30,380,'il DNA virale insieme al DNA batterico');pausa1;
cancella;
testo(30,320,'attivazione profago latente');
testo(30,340,'inizio ciclo LITICO del virus diventato virulento');
(* attivazione profago e ciclo litico *)
pausa1;cancella;
setcolor(0);line(200,200,400,200);setcolor(c15);
testo(30,320,'distruzione o inattivazione DNA batterico');
testo(30,340,'duplicazione DNA virale');
setcolor(0);line(300,100,300,140);
setcolor(c2);
x:=150;
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
pausa1;cancella;x:=153;setcolor(c6);
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
testo(30,320,'trascrizione in m-RNA virale');pausa1;
testo(30,340,'traduzione e sintesi capsidi virali');
x:=153;setcolor(0);
for a:=1 to 7 do
begin
line(x,150,x,180);
x:=x+50;
end;
x:=150;setcolor(c2);
for a:=1 to 7 do
begin
circle(x,250,20);
x:=x+50;
end;pausa1;

testo(30,360,'assemblaggio capside+Dna virale');
x:=150;setcolor(0);
for a:=1 to 7 do
begin
circle(x,250,20);
x:=x+50;
end;
x:=150;setcolor(c2);
for a:=1 to 7 do
begin
circle(x,170,20);
x:=x+50;
end;pausa1;cancella;
testo(30,320,'lisi batterica:liberazione VIRUS');
testo(30,340,'fine ciclo LITICO con virus virulento');
setcolor(0);rectangle(100,100,500,300);pausa1;
cleardevice;
end;

procedure scelta;
var sce,ris,px:integer;
begin
cleardevice;
settextstyle(0,0,1);
testo(30,30,'selezionare opzione desiderata');
testo(30,50,'1..CICLO LITICO');
testo(30,70,'2..CICLO LISOGENO');
testo(30,120,'scelta=');readln(px);
cleardevice;
case px of
1:pro1;
2:pro2;
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('Riproduzione batteriofago');
writeln('mediante due modalit…:');
writeln('ciclo LITICO:virus virulento:lisi batterica');
writeln('ciclo LISOGENO:virus temperato:integrazione in DNA batterico');
writeln;
writeln('premi INVIO');readln;clrscr;
grafica;
scelta;closegraph;
end.