TOPI E dna

esci con genetica.htm o esempi.htm

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.