esperimento su topi e DNA
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
http://www.youtube.com/watch?v=JoQxg8NEb3I
program topo1; (* DNA e batteri *) uses crt,graph; var c2,c3,c4,c6,c15:word; 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(7); outtextxy(430,10,'premi INVIO');readln; setcolor(0); outtextxy(430,10,'premi INVIO'); setcolor(15); end; procedure pausa; begin readln;cleardevice; end; procedure testo(x,y:integer;st:string); begin outtextxy(x,y,st); end; procedure testo1(x,y:integer;sx:string); begin setcolor(15); outtextxy(x,y,sx); end; procedure toposv(x,y:integer); begin setfillstyle(2,c3); bar(x,y,x+100,y+50); end; procedure toposm(x,y:integer); begin setfillstyle(1,c4); bar(x,y,x+100,y+50); end; procedure sv(x,y:integer); begin setfillstyle(4,c15); bar(x,y,x+20,y+20); end; procedure sm(x,y:integer); begin setfillstyle(4,c4); bar(x,y,x+20,y+20); end; procedure smd(x,y:integer); begin testo(x,y,'DNA-S'); end; procedure rv(x,y:integer); begin setfillstyle(4,c2); bar(x,y,x+20,y+20); end; procedure trasforma; begin setcolor(c15);rectangle(100,100,300,160); testo(120,120,'AAACCCGGGAAACCC-s'); testo(350,100,'batterio virulento vivo S'); setcolor(c2);rectangle(100,250,300,290); testo(120,310,'batterio non virulento vivo R'); testo(120,260,'CCCGGGCCCGGG-r'); pausa1; setcolor(0);testo(350,100,'batterio virulento vivo S'); setcolor(0);rectangle(100,100,300,160); setcolor(c15);testo(350,100,'batterio virulento S morto'); testo(350,120,'DNA batterio S libero nello ambiente'); pausa1; setcolor(0);testo(120,120,'AAACCCGGGAAACCC-s'); setcolor(c15);testo(120,280,'AAACCCGGGAAACCC-s'); testo(150,170,'DNA-s ingerito da batterio non virulento R'); testo(150,180,'batterio R si trasforma in batterio virulento S'); setcolor(0);testo(120,310,'batterio non virulento vivo R'); setcolor(c15);testo(120,310,'batterio virulento vivo S derivato da R'); pausa1; end; procedure pro1; begin toposv(100,50);testo(20,50,'topo vivo'); pausa1;sv(140,70);testo(100,30,'+ batterio virulento vivo S ');pausa1; toposm(100,50);sv(140,70); setcolor(c4);testo(220,50,'topo morto');pausa1; setcolor(c3);toposv(100,150);testo(20,150,'topo vivo');pausa1; rv(140,170);testo(100,130,'+ batterio non virulento vivo R');pausa1; setcolor(c3);testo(220,150,'topo vivo');pausa1; setcolor(c3);toposv(100,250);testo(20,250,'topo vivo');pausa1; sm(140,270);testo(100,230,'+ batterio virulento morto S');pausa1; setcolor(c3);testo(220,250,'topo vivo');pausa1; setcolor(c3);toposv(100,350);testo(20,350,'topo vivo');pausa1; sm(140,360);testo(100,330,'+ batterio virulento morto S');pausa1; rv(140,380);testo(100,340,'+ batterio non virulento vivo R');pausa1; setcolor(c4);toposm(100,350); testo(220,350,'topo morto contenente R ed S vivi '); sv(110,360);sv(170,360);rv(140,380); setcolor(3); testo(20,410,'il batterio vivo R si trasforma in batterio virulento S'); testo(20,420,'assumendo il DNA del batterio morto S contenente le'); testo(20,430,'informazioni per rendere virulento ?'); pausa1;cleardevice; testo(20,20,'verifica della ipotesi'); trasforma; setcolor(c3);toposv(100,350);testo(20,350,'topo vivo');pausa1; smd(140,360);testo(100,330,'+ DNA estratto dal batterio S');pausa1; rv(140,380);testo(100,340,'+ batterio non virulento vivo R');pausa1; setcolor(c4);toposm(100,350); testo(220,350,'topo morto contenente R ed S vivi '); sv(110,360);sv(170,360);rv(140,380); setcolor(c15);smd(140,360); pausa1; end; procedure scelta; begin cleardevice; settextstyle(0,0,1); setcolor(c3); pro1;cleardevice; end; procedure inizio; begin settextstyle(1,0,2); testo(20,50,'esperimenti con batteri e topi'); setcolor(c4); testo(20,80,'dimostrazione che il responsabile della trasmissione'); testo(20,120,'dei caratteri ereditari coincide con il DNA cromosomico'); setcolor(c3); testo(20,150,'si utilizzano due ceppi diversi dello stesso batterio'); testo(20,170,'uno S produce la morte dei topi infettati'); testo(20,190,'altro R non provoca di solito alcuna malattia ai topi'); testo(20,300,'premi INVIO ');readln; end; begin clrscr; c2:=2;c3:=3;c4:=4;c6:=6;c15:=15; textcolor(c15); grafica;inizio;scelta;closegraph; end.