daltonismo ed emofilia

esci con genetica.htm

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.