genetica e daltonismo
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
program da2; (* VARIANTE DI DALTON2 *)
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 programma;
begin
outtextxy(20,60,'trasmissione carattere VISIONE normale,daltonica ');
outtextxy(20,80,'carattere associato a cromosoma sessuale X ');
outtextxy(20,100,'osservare diversa distribuzione fenotipi,genotipi');
outtextxy(20,120,'con padre normale e madre portatrice');
outtextxy(20,140,'con padre daltonico e madre portatrice');
outtextxy(20,160,'con padre daltonico e madre normale');
outtextxy(20,180,'con padre daltonico e madre daltonica');
outtextxy(20,200,'con padre normale e madre daltonica');
pausa;
end;
procedure pro1;
begin
(* sano portatrice *)
setfillstyle(2,3);
bar(100,50,150,100);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,4);
bar(50,220,100,270);
setfillstyle(2,3);
bar(150,220,200,270);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
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);
setfillstyle(2,3);
bar(100,50,150,100);
setfillstyle(3,3);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,4);
bar(50,220,100,270);
setfillstyle(2,3);
bar(150,220,200,270);
fillellipse(300,245,25,25);
setfillstyle(3,3);
fillellipse(400,245,25,25);
attende;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;
end;
procedure pro2;
begin
(* daltonico portatrice *)
setfillstyle(2,4);
bar(100,50,150,100);
setfillstyle(2,3);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,4);
bar(50,220,100,270);
setfillstyle(2,3);
bar(150,220,200,270);
setfillstyle(2,3);
fillellipse(300,245,25,25);
setfillstyle(2,4);
fillellipse(400,245,25,25);
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);
setfillstyle(3,3);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,4);
bar(50,220,100,270);
setfillstyle(2,3);
bar(150,220,200,270);
setfillstyle(3,3);
fillellipse(300,245,25,25);
setfillstyle(2,4);
fillellipse(400,245,25,25);
attende;
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;
end;
procedure pro3;
begin
setfillstyle(2,4);
bar(100,50,150,100);
setfillstyle(2,3);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,3);
bar(50,220,100,270);
bar(150,220,200,270);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
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');
setfillstyle(2,3);
bar(50,220,100,270);
bar(150,220,200,270);
setfillstyle(3,3);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
setcolor(3);
outtextxy(5,350,'100% maschi normali XY ');
outtextxy(5,360,'100% femmine portatrici xX ');
setcolor(15);
pausa1;cleardevice;
end;
procedure pro4;
begin
setfillstyle(2,4);
bar(100,50,150,100);
fillellipse(350,75,25,25);
line(125,75,350,75);
bar(50,220,100,270);
bar(150,220,200,270);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
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;
end;
procedure pro5;
begin
setfillstyle(2,3);
bar(100,50,150,100);
setfillstyle(2,4);
fillellipse(350,75,25,25);
line(125,75,350,75);
setfillstyle(2,4);
bar(50,220,100,270);
bar(150,220,200,270);
setfillstyle(2,3);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
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');
attende;
setfillstyle(2,4);
bar(50,220,100,270);
bar(150,220,200,270);
setfillstyle(3,3);
fillellipse(300,245,25,25);
fillellipse(400,245,25,25);
attende;
setcolor(4);
outtextxy(5,350,'100% maschi daltonici xY ');
setcolor(3);
outtextxy(5,370,'100% femmine portatrici Xx ');
setcolor(15);
pausa1;cleardevice;
end;
procedure scelta;
var sce:integer;
begin
outtextxy(20,20,'selezionare situazione da osservare ');
outtextxy(50,30,'fenotipi dei genitori');
setcolor(3);
outtextxy(20,40,'1 padre normale,madre normale');
outtextxy(20,60,'2 padre daltonico,madre normale');
outtextxy(20,80,'3 padre daltonico,madre normale');
outtextxy(20,100,'4 padre daltonico,madre daltonica');
outtextxy(20,120,'5 padre normale,madre daltonica');
outtextxy(40,180,'scelta =');readln(sce);setcolor(15);
cleardevice;
case sce of
1:pro1;2:pro2;3:pro3;4:pro4;5:pro5;
end;
cleardevice;
outtextxy(20,20,'per altra prova o rivedere:scrivi 1;per finire 2 ');
outtextxy(20,50,'scelta=');readln(sce);
if sce=1 then scelta;
cleardevice;
end;
begin
grafica;
programma; (* scrivere nome procedura propria *)
scelta;
closegraph;
end.