genetica e trasmissione daltonismo associato a cromosoma X
o con ipotesi se fosse associato a cromosoma somatico

(variante di va1)
trasmissione daltonismo associato a cromosoma X
(o se fosse associato a cromosoma somatico)
http://www.youtube.com/watch?v=49W88JU_mGQ

 

 

program varia1;     (* 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 DALTONISMO ');
outtextxy(20,80,'IPOTESI: associato a cromosoma sessuale X ');
outtextxy(20,100,'IPOTESI: associato a cromosoma somatico A ');
outtextxy(20,140,'notare diverso tipo di distribuzione');
outtextxy(20,160,'nel caso di associazione a cromosoma X  o A ');
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 X *)
ma(100,50,150,100,3);
fe(350,75,25,25,3);
line(125,75,350,75);
ma(50,220,100,270,4);
ma(150,220,200,270,3);
fe(300,245,25,25,3);
fe(400,245,25,25,3);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'normale');
outtextxy(350,15,'normale');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'XY');
outtextxy(390,70,'Xx');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'X  Y');
outtextxy(300,160,'X  x');
setcolor(3);outtextxy(5,310,'allele dominante su X ');
setcolor(4);outtextxy(5,330,'allele recessivo su x ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'xY');
outtextxy(150,275,'XY');
outtextxy(300,275,'XX');
outtextxy(400,275,'Xx');
setcolor(4);
outtextxy(5,350,'50% maschi daltonici    xY ');
setcolor(3);
outtextxy(5,360,'50% maschi normali      XY ');
outtextxy(5,370,'50% femmine normali     XX ');
outtextxy(5,380,'50% femmine portatrici  Xx ');
setcolor(15);
pausa1;cleardevice;

(* 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);
fe(300,245,25,25,3);
fe(400,245,25,25,3);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'normale');
outtextxy(350,15,'normale');
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 ');
setcolor(4);outtextxy(5,330,'allele recessivo su a ');
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,'50% maschi portatori    Aa ');
outtextxy(5,360,'50% maschi normali      AA ');
outtextxy(5,370,'50% femmine normali     AA ');
outtextxy(5,380,'50% femmine portatrici  Aa ');
setcolor(15);
pausa1;cleardevice;

(* associato a X *)
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);
fe(300,245,25,25,3);
fe(400,245,25,25,4);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'normale');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'xY');
outtextxy(390,70,'xX');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'x  Y');
outtextxy(300,160,'x  X');
setcolor(3);outtextxy(5,310,'allele dominante su X ');
setcolor(4);outtextxy(5,330,'allele recessivo su x ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'xY');
outtextxy(150,275,'XY');
outtextxy(300,275,'xX');
outtextxy(400,275,'xx');
setcolor(4);
outtextxy(5,350,'50% maschi daltonici        xY ');
outtextxy(5,360,'50% femmine daltoniche      xx ');
setcolor(3);
outtextxy(5,370,'50% maschi normali          XY ');
outtextxy(5,380,'50% femmine portatrici      Xx ');
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);
fe(300,245,25,25,3);
fe(400,245,25,25,4);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'normale');
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 ');
setcolor(4);outtextxy(5,330,'allele recessivo su a ');
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% maschi daltonici        aa ');
outtextxy(5,360,'50% femmine daltoniche      aa ');
setcolor(3);
outtextxy(5,370,'50% maschi portatori        Aa ');
outtextxy(5,380,'50% femmine portatrici      Aa ');
setcolor(15);
pausa1;cleardevice;

(* associato a X *)
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);
fe(300,245,25,25,3);
fe(400,245,25,25,3);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'normale');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'xY');
outtextxy(390,70,'XX');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'x  Y');
outtextxy(300,160,'X  X');
setcolor(3);outtextxy(5,310,'allele dominante su X ');
setcolor(4);outtextxy(5,330,'allele recessivo su x ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'XY');
outtextxy(150,275,'XY');
outtextxy(300,275,'Xx');
outtextxy(400,275,'Xx');
setcolor(3);
outtextxy(5,350,'100% maschi normali         XY ');
outtextxy(5,360,'100% femmine portatrici      xX ');
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);
fe(300,245,25,25,3);
fe(400,245,25,25,3);
setcolor(3);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'normale');
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 ');
setcolor(4);outtextxy(5,330,'allele recessivo su a ');
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,'100% maschi portatori        Aa ');
outtextxy(5,360,'100% femmine portatrici      Aa');
setcolor(15);
pausa1;cleardevice;

(* associato a X *)
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);
fe(300,245,25,25,4);
fe(400,245,25,25,4);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'daltonico');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'xY');
outtextxy(390,70,'xx');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'x  Y');
outtextxy(300,160,'x  x');
setcolor(3);outtextxy(5,310,'allele dominante assente');
setcolor(4);outtextxy(5,330,'allele recessivo su x ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'xY');
outtextxy(150,275,'xY');
outtextxy(300,275,'xx');
outtextxy(400,275,'xx');
setcolor(4);
outtextxy(5,350,'100% maschi daltonici         xY ');
outtextxy(5,360,'100% femmine daltoniche       xx ');
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);
fe(300,245,25,25,4);
fe(400,245,25,25,4);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'daltonico');
outtextxy(350,15,'daltonico');
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 x ');
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% maschi daltonici         aa ');
outtextxy(5,360,'100% femmine daltoniche       aa ');
setcolor(15);
pausa1;cleardevice;

(* associato a X *)
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,4);
fe(300,245,25,25,3);
fe(400,245,25,25,3);
setcolor(15);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'normale');
outtextxy(350,15,'daltonico');
attende;
setcolor(15);
outtextxy(5,30,'genotipo genitori');
outtextxy(70,70,'XY');
outtextxy(390,70,'xx');
outtextxy(5,160,'gametogenesi');
outtextxy(150,160,'X  Y');
outtextxy(300,160,'x  x');
setcolor(3);outtextxy(5,310,'allele dominante su X ');
setcolor(4);outtextxy(5,330,'allele recessivo su x ');
setcolor(15);outtextxy(5,290,'genotipo figli');
outtextxy(50,275,'xY');
outtextxy(150,275,'xY');
outtextxy(300,275,'Xx');
outtextxy(400,275,'Xx');
setcolor(4);
outtextxy(5,350,'100% maschi daltonici       xY ');
setcolor(3);
outtextxy(5,370,'100% femmine portatrici     Xx ');
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);
fe(300,245,25,25,3);
fe(400,245,25,25,4);
setcolor(15);
outtextxy(5,5,'fenotipo genitori');
outtextxy(100,15,'normale');
outtextxy(350,15,'daltonico');
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 ');
setcolor(4);outtextxy(5,330,'allele recessivo su a ');
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% maschi daltonici       aa ');
outtextxy(5,360,'50% femmine daltoniche     aa ');
setcolor(3);
outtextxy(5,370,'50% maschi portatori     Aa');
outtextxy(5,380,'50% femmine portatrici   Aa');
setcolor(15);
pausa1;cleardevice;
end;

begin
grafica;
programma;  (* scrivere nome procedura propria *)
closegraph;
end.

 

 

 

 

indice o inizio