genetica : daltonismo ed emofilia
program dalto; uses crt; procedure pausa; begin readln; end; procedure cancella; begin clrscr; end; procedure daltonico1; var fn:string; begin fn:='normale'; writeln('VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante'); writeln; gotoxy(30,9);writeln('padre '); gotoxy(50,9);writeln('madre'); gotoxy(5,10);writeln('fenotipo genitori '); textcolor(3);gotoxy(30,10);writeln(fn); gotoxy(50,10);writeln(fn);textcolor(15); gotoxy(5,16);writeln('fenotipo figli maschi '); textcolor(3);gotoxy(30,16);writeln('50% normale'); textcolor(6);gotoxy(50,16);writeln('50% daltonico'); textcolor(3);gotoxy(5,19);writeln('fenotipo figli femmine '); gotoxy(30,19);writeln('50% normale'); gotoxy(50,19);writeln('50% normale'); pausa; textcolor(15); gotoxy(5,2);writeln('interpretazione a livello cromosomico'); gotoxy(5,3);writeln('allele per vista normale posto in X'); gotoxy(5,4);writeln('allele per vista daltonica posto in x'); gotoxy(5,5);writeln('cromosoma Y senza alleli per il carattere visione'); gotoxy(5,11);writeln('genotipo genitori '); gotoxy(30,11);writeln('XY'); gotoxy(50,11);writeln('Xx'); pausa; gotoxy(5,12);writeln('gametogenesi'); gotoxy(30,12);writeln('X Y '); gotoxy(50,12);writeln('X x '); pausa; gotoxy(5,17);writeln('genotipo figli maschi '); gotoxy(30,17);writeln('XY'); gotoxy(50,17);writeln('xY'); gotoxy(5,20);writeln('genotipo figli femmine '); gotoxy(30,20);writeln('XX '); gotoxy(50,20);writeln('Xx '); textcolor(15); pausa; end; procedure daltonico2; var fn:string; begin fn:='normale'; writeln('VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante'); writeln; gotoxy(30,9);writeln('padre '); gotoxy(50,9);writeln('madre'); gotoxy(5,10);writeln('fenotipo genitori '); textcolor(6);gotoxy(30,10);writeln('daltonico'); textcolor(3);gotoxy(50,10);writeln(fn);textcolor(15); gotoxy(5,16);writeln('fenotipo figli maschi '); textcolor(3);gotoxy(30,16);writeln('50% normale'); textcolor(6);gotoxy(50,16);writeln('50% daltonico'); textcolor(15); gotoxy(5,19);writeln('fenotipo figli femmine '); textcolor(3);gotoxy(30,19);writeln('50% normale'); textcolor(6);gotoxy(50,19);writeln('50% daltonico'); pausa; textcolor(15); gotoxy(5,2);writeln('interpretazione a livello cromosomico'); gotoxy(5,3);writeln('allele per vista normale posto in X'); gotoxy(5,4);writeln('allele per vista daltonica posto in x'); gotoxy(5,5);writeln('cromosoma Y senza alleli per il carattere visione'); gotoxy(5,11);writeln('genotipo genitori '); gotoxy(30,11);writeln('xY'); gotoxy(50,11);writeln('Xx'); pausa; gotoxy(5,12);writeln('gametogenesi'); gotoxy(30,12);writeln('x Y '); gotoxy(50,12);writeln('X x '); pausa; gotoxy(5,17);writeln('genotipo figli maschi '); gotoxy(30,17);writeln('XY'); gotoxy(50,17);writeln('xY'); gotoxy(5,20);writeln('genotipo figli femmine '); gotoxy(30,20);writeln('Xx '); gotoxy(50,20);writeln('xx '); pausa; textcolor(15); end; procedure emofilia; var fn:string; begin fn:='normale'; textcolor(15); writeln('COAGULAZIONE:EMOFILIA:allele recessivo;NORMALE allele dominante'); writeln; gotoxy(30,9);writeln('padre '); gotoxy(50,9);writeln('madre');textcolor(3); gotoxy(5,10);writeln('fenotipo genitori '); gotoxy(30,10);writeln(fn); gotoxy(50,10);writeln(fn); textcolor(15); gotoxy(5,16);writeln('fenotipo figli maschi '); textcolor(3);gotoxy(30,16);writeln('50% normale'); textcolor(6);gotoxy(50,16);writeln('50% emofilico'); textcolor(3); gotoxy(5,19);writeln('fenotipo figli femmine '); textcolor(3);gotoxy(30,19);writeln('50% normale'); gotoxy(50,19);writeln('50% normale'); pausa; textcolor(15); gotoxy(5,2);writeln('interpretazione a livello cromosomico'); gotoxy(5,3);writeln('allele per coagulazione normale posto in X'); gotoxy(5,4);writeln('allele per emofilia posto in x'); gotoxy(5,5);writeln('cromosoma Y senza alleli per il carattere coagulazione'); gotoxy(5,11);writeln('genotipo genitori '); gotoxy(30,11);writeln('XY'); gotoxy(50,11);writeln('Xx'); pausa; gotoxy(5,12);writeln('gametogenesi'); gotoxy(30,12);writeln('X Y '); gotoxy(50,12);writeln('X x '); pausa; gotoxy(5,17);writeln('genotipo figli maschi '); gotoxy(30,17);writeln('XY'); gotoxy(50,17);writeln('xY'); gotoxy(5,20);writeln('genotipo figli femmine '); gotoxy(30,20);writeln('XX '); gotoxy(50,20);writeln('Xx '); pausa; textcolor(15); end; procedure daltoemo; var fn:string; begin fn:='normale'; textcolor(15); writeln('COAGULAZIONE:EMOFILIA:allele recessivo;NORMALE allele dominante'); writeln('VISIONE:DALTONICA:allele recessivo;NORMALE allele dominante'); writeln; textcolor(3); gotoxy(5,10);writeln('fenotipo genitori '); gotoxy(30,10);writeln(fn); gotoxy(50,10);writeln(fn);textcolor(15); gotoxy(5,16);writeln('fenotipo figli maschi '); textcolor(6);gotoxy(30,16);writeln('50% daltonico'); textcolor(5);gotoxy(50,16);writeln('50% emofilico'); textcolor(3);gotoxy(5,19);writeln('fenotipo figli femmine '); gotoxy(30,19);writeln('50% normale'); gotoxy(50,19);writeln('50% normale'); pausa; textcolor(15); gotoxy(5,3);writeln('interpretazione a livello cromosomico'); gotoxy(5,4);writeln('allele per coagulazione E,visione D: normale posto in X'); gotoxy(5,5);writeln('allele per emofilia e ,daltonismo d : posto in X'); gotoxy(5,6);writeln('cromosoma Y senza alleli per coagulazione,visione'); gotoxy(5,11);writeln('genotipo genitori '); gotoxy(30,11);writeln('XED Y'); gotoxy(50,11);writeln('XEd XeD'); pausa; gotoxy(5,12);writeln('gametogenesi'); gotoxy(30,12);writeln('XED Y '); gotoxy(50,12);writeln('XEd XeD '); pausa; gotoxy(5,17);writeln('genotipo figli maschi '); gotoxy(30,17);writeln('XEd Y'); gotoxy(50,17);writeln('XeD Y'); gotoxy(5,20);writeln('genotipo figli femmine '); gotoxy(30,20);writeln('XED XEd '); gotoxy(50,20);writeln('XED XeD '); pausa; textcolor(15); end; procedure doppio; var fn:string; begin fn:='normale'; textcolor(15); writeln('COAGULAZIONE:EMOFILIA:allele recessivo;NORMALE allele dominante'); writeln('VISIONE:DALTONICA:allele recessivo;NORMALE allele dominante'); writeln;textcolor(3); gotoxy(5,10);writeln('fenotipo genitori '); gotoxy(30,10);writeln(fn); gotoxy(50,10);writeln(fn);textcolor(15); gotoxy(5,16);writeln('fenotipo figli maschi ');textcolor(4); gotoxy(30,16);writeln('50% dalto/emofi'); textcolor(3); gotoxy(50,16);writeln('50% normale'); gotoxy(5,19);writeln('fenotipo figli femmine '); gotoxy(30,19);writeln('50% normale'); gotoxy(50,19);writeln('50% normale'); pausa; textcolor(15); gotoxy(5,3);writeln('interpretazione a livello cromosomico'); gotoxy(5,4);writeln('allele per coagulazione E,visione D: normale posto in X'); gotoxy(5,5);writeln('allele per emofilia e ,daltonismo d : posto in X'); gotoxy(5,6);writeln('cromosoma Y senza alleli per coagulazione,visione'); gotoxy(5,11);writeln('genotipo genitori '); gotoxy(30,11);writeln('XED Y'); gotoxy(50,11);writeln('XED Xed'); pausa; gotoxy(5,12);writeln('gametogenesi'); gotoxy(30,12);writeln('XED Y '); gotoxy(50,12);writeln('XED Xed '); pausa; gotoxy(5,17);writeln('genotipo figli maschi '); gotoxy(30,17);writeln('Xed Y'); gotoxy(50,17);writeln('XED Y'); gotoxy(5,20);writeln('genotipo figli femmine '); gotoxy(30,20);writeln('XED XED '); gotoxy(50,20);writeln('XED Xed '); pausa; end; PROCEDURE SCELTA; var ris:integer; begin cancella; daltonico1;cancella;daltonico2;cancella;emofilia;cancella; daltoemo;cancella;doppio;cancella; write('per rivedere premi 1;per finire premi 2 ');readln(ris); if ris=1 then scelta; end; begin cancella; textcolor(15); writeln('analisi trasmissione caratteri nella specie umana '); writeln('carattere VISIONE:allele NORMALE dominante e DALTONICO recessivo'); writeln('carattere COAGULAZIONE:allele NORMALE dominante,EMOFILIA recessivo'); writeln('si presentano i fenotipi dei genitori e dei figli'); writeln('si propone la interpretazione cromosomica'); writeln('associando i due caratteri ai cromosomi sessuali X Y '); pausa;cancella; scelta; end.
analisi trasmissione caratteri nella specie umana carattere VISIONE:allele NORMALE dominante e DALTONICO recessivo carattere COAGULAZIONE:allele NORMALE dominante,EMOFILIA recessivo si presentano i fenotipi dei genitori e dei figli si propone la interpretazione cromosomica associando i due caratteri ai cromosomi sessuali X Y VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante padre madre fenotipo genitori normale normale fenotipo figli maschi 50% normale 50% daltonico fenotipo figli femmine 50% normale 50% normale VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante interpretazione a livello cromosomico allele per vista normale posto in X allele per vista daltonica posto in x cromosoma Y senza alleli per il carattere visione padre madre fenotipo genitori normale normale genotipo genitori XY Xx fenotipo figli maschi 50% normale 50% daltonico fenotipo figli femmine 50% normale 50% normale
VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante interpretazione a livello cromosomico allele per vista normale posto in X allele per vista daltonica posto in x cromosoma Y senza alleli per il carattere visione padre madre fenotipo genitori normale normale genotipo genitori XY Xx gametogenesi X Y X x fenotipo figli maschi 50% normale 50% daltonico fenotipo figli femmine 50% normale 50% normale
VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante interpretazione a livello cromosomico allele per vista normale posto in X allele per vista daltonica posto in x cromosoma Y senza alleli per il carattere visione padre madre fenotipo genitori normale normale genotipo genitori XY Xx gametogenesi X Y X x fenotipo figli maschi 50% normale 50% daltonico genotipo figli maschi XY xY fenotipo figli femmine 50% normale 50% normale genotipo figli femmine XX Xx
VISIONE:DALTONISMO:allele recessivo;NORMALE allele dominante interpretazione a livello cromosomico allele per vista normale posto in X allele per vista daltonica posto in x cromosoma Y senza alleli per il carattere visione padre madre fenotipo genitori daltonico normale genotipo genitori xY Xx gametogenesi x Y X x fenotipo figli maschi 50% normale 50% daltonico genotipo figli maschi XY xY fenotipo figli femmine 50% normale 50% daltonico genotipo figli femmine Xx xx
COAGULAZIONE:EMOFILIA:allele recessivo;NORMALE allele dominante interpretazione a livello cromosomico allele per coagulazione normale posto in X allele per emofilia posto in x cromosoma Y senza alleli per il carattere coagulazione padre madre fenotipo genitori normale normale genotipo genitori XY Xx gametogenesi X Y X x fenotipo figli maschi 50% normale 50% emofilico genotipo figli maschi XY xY fenotipo figli femmine 50% normale 50% normale genotipo figli femmine XX Xx
inizio