cicli virali e batteriofago
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
litico
http://www.youtube.com/watch?v=fBvUw0RxLQM
lisogeno
http://www.youtube.com/watch?v=CESFHZVgc-A
program virus1a; (* 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:=('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,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.