genetica e
trasmissione carattere colore
associato a cromosoma somatico
variante di va2
trasmissione carattere colore
http://www.youtube.com/watch?v=C9iM5ixvdTg
program varia2; (* assegnare nome al programma *)
uses crt,graph;
procedure grafica;
var t,s:integer;
stringa:string;
begin
t:=0;
s:=0;
stringa:=('c:\SCHEDA\');
initgraph(s,t,stringa);
end;
procedure attende;
begin
readln;
end;
procedure pausa1;
begin
textcolor(15);
outtextxy(300,400,'premi INVIO');readln;
textcolor(0);
outtextxy(300,400,'premi INVIO');
textcolor(15);
end;
procedure pausa;
begin
readln;cleardevice;
end;
procedure ma(x1,y1,x2,y2,cm:integer);
begin
setfillstyle(2,cm);
bar(x1,y1,x2,y2);
end;
procedure fe(x1,y1,rv,ro,cf:integer);
begin
setfillstyle(2,cf);
fillellipse(x1,y1,rv,ro);
end;
procedure programma;
begin
outtextxy(20,60,'trasmissione carattere COLORE ');
outtextxy(20,160,'nel caso di associazione a somatico A ');
outtextxy(20,170,'NOTARE come non cambia risultato se allele dominante');
outtextxy(20,180,'o allele recessivo,proviene dal padre o dalla madre ');
outtextxy(20,190,'--------------------------------------------------');
outtextxy(20,200,'PRENDERE NOTA dei risultati nei figli');
outtextxy(20,210,'percentuali fenotipiche e genotipiche');
outtextxy(20,220,'nelle diverse situazioni presentate ');
pausa;
(* associato a cromosoma A *)
ma(100,50,150,100,3);
fe(350,75,25,25,3);
line(125,75,350,75);
ma(50,220,100,270,3);
ma(150,220,200,270,3);
ma(250,220,300,270,3);
ma(350,220,400,270,4);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'azzurro');
outtextxy(350,15,'azzurro');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'Aa');
outtextxy(390,70,'Aa');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'A a');
outtextxy(300,160,'A a');
setcolor(3);outtextxy(5,310,'allele dominante su A :azzurro');
setcolor(4);outtextxy(5,330,'allele recessivo su a :rosso');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'AA');
outtextxy(150,275,'Aa');
outtextxy(300,275,'Aa');
outtextxy(400,275,'aa');
setcolor(3);
outtextxy(5,350,'25% omozigoti dominanti AA ');
setcolor(4);
outtextxy(5,360,'25% omozigoti recessivi aa ');
setcolor(3);
outtextxy(5,370,'50% eterozigoti Aa ');
setcolor(15);
pausa1;cleardevice;
(* associato ad A *)
ma(100,50,150,100,4);
fe(350,75,25,25,3);
line(125,75,350,75);
ma(50,220,100,270,4);
ma(150,220,200,270,3);
ma(250,220,300,270,3);
ma(350,220,400,270,4);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'rosso');
outtextxy(350,15,'azzurro');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'aa');
outtextxy(390,70,'Aa');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'a a');
outtextxy(300,160,'a A');
setcolor(3);outtextxy(5,310,'allele dominante su A :azzurro');
setcolor(4);outtextxy(5,330,'allele recessivo su a :rosso');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'aa');
outtextxy(150,275,'Aa');
outtextxy(300,275,'Aa');
outtextxy(400,275,'aa');
setcolor(4);
outtextxy(5,350,'50% omozigoti recessivi aa ');
setcolor(3);
outtextxy(5,370,'50% eterozigoti Aa ');
setcolor(15);
pausa1;cleardevice;
(* associato a A *)
ma(100,50,150,100,4);
fe(350,75,25,25,3);
line(125,75,350,75);
ma(50,220,100,270,3);
ma(150,220,200,270,3);
ma(250,220,300,270,3);
ma(350,220,400,270,3);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'rosso');
outtextxy(350,15,'azzurro');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'aa');
outtextxy(390,70,'AA');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'a a');
outtextxy(300,160,'A A');
setcolor(3);outtextxy(5,310,'allele dominante su A :azzurro');
setcolor(4);outtextxy(5,330,'allele recessivo su a :rosso');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'Aa');
outtextxy(150,275,'Aa');
outtextxy(300,275,'Aa');
outtextxy(400,275,'Aa');
setcolor(3);
outtextxy(5,360,'100% eterozigoti Aa');
setcolor(15);
pausa1;cleardevice;
(* associato ad A *)
ma(100,50,150,100,4);
fe(350,75,25,25,4);
line(125,75,350,75);
ma(50,220,100,270,4);
ma(150,220,200,270,4);
ma(250,220,300,270,4);
ma(350,220,400,270,4);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'rosso');
outtextxy(350,15,'rosso');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'aa');
outtextxy(390,70,'aa');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'a a');
outtextxy(300,160,'a a');
setcolor(3);outtextxy(5,310,'allele dominante assente');
setcolor(4);outtextxy(5,330,'allele recessivo su a:rosso ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'aa');
outtextxy(150,275,'aa');
outtextxy(300,275,'aa');
outtextxy(400,275,'aa');
setcolor(4);
outtextxy(5,350,'100% omozigoti recessivi aa ');
setcolor(15);
pausa1;cleardevice;
ma(100,50,150,100,3);
fe(350,75,25,25,4);
line(125,75,350,75);
ma(50,220,100,270,4);
ma(150,220,200,270,3);
ma(250,220,300,270,3);
ma(350,220,400,270,4);
setcolor(15);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'azzurro');
outtextxy(350,15,'rosso');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'Aa');
outtextxy(390,70,'aa');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'A a');
outtextxy(300,160,'a a');
setcolor(3);outtextxy(5,310,'allele dominante su A:azzurro ');
setcolor(4);outtextxy(5,330,'allele recessivo su a:rosso ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'aa');
outtextxy(150,275,'Aa');
outtextxy(300,275,'Aa');
outtextxy(400,275,'aa');
setcolor(4);
outtextxy(5,350,'50% omozigoti recessivi aa ');
setcolor(3);
outtextxy(5,360,'50% eterozigoti Aa ');
setcolor(15);
pausa1;cleardevice;
ma(100,50,150,100,4);
fe(350,75,25,25,3);
line(125,75,350,75);
ma(50,220,100,270,4);
ma(150,220,200,270,3);
ma(250,220,300,270,3);
ma(350,220,400,270,4);
setcolor(15);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'rosso');
outtextxy(350,15,'azzurro');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'aa');
outtextxy(390,70,'Aa');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'a a');
outtextxy(300,160,'A a');
setcolor(3);outtextxy(5,310,'allele dominante su A:azzurro ');
setcolor(4);outtextxy(5,330,'allele recessivo su a:rosso ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'aa');
outtextxy(150,275,'Aa');
outtextxy(300,275,'Aa');
outtextxy(400,275,'aa');
setcolor(4);
outtextxy(5,350,'50% omozigoti recessivi aa ');
setcolor(3);
outtextxy(5,360,'50% eterozigoti Aa ');
setcolor(15);
pausa1;cleardevice;
end;
begin
grafica;
programma; (* scrivere nome procedura propria *)
closegraph;
end.