associazione di caratteri

esci con genetica.htm o esempi.htm

program associa;
uses crt;

procedure pausa;
begin
readln;
end;


procedure cancella;
begin
clrscr;
end;

procedure separati;
begin
writeln('ipotesi con genitori omozigotici per due caratteri');
writeln('giallo e alto= dominanti....verde e basso=recessivi ');
writeln('ipotesi con caratteri non associati sullo stesso cromosoma');
gotoxy(5,4);writeln('fenotipo genitori');
textcolor(3);gotoxy(30,4);writeln('giallo-alto');
textcolor(6);gotoxy(50,4);writeln('verde-basso');
textcolor(15);gotoxy(5,10);writeln('fenotipo filiale1 100% ');
textcolor(3);gotoxy(40,10);writeln('giallo-alto');
pausa;
textcolor(15);gotoxy(5,5);writeln('genotipo genitori');
textcolor(3);gotoxy(30,5);writeln('(GG AA)');
textcolor(6);gotoxy(50,5);writeln('(gg aa)');
textcolor(15);gotoxy(5,6);writeln('gametogenesi');
textcolor(3);gotoxy(30,6);writeln('GA GA ');
textcolor(6);gotoxy(50,6);writeln('ga ga ');
pausa;
textcolor(15);gotoxy(5,11);writeln('genotipo filiale1 100%');
gotoxy(40,11);writeln('(Gg Aa) ');
pausa;
gotoxy(5,13);writeln('incrocio tra F1-F1');
gotoxy(30,13);writeln('(Gg Aa)');
gotoxy(50,13);writeln('(Gg Aa)');
gotoxy(5,14);writeln('gametogenesi');
gotoxy(30,14);writeln('GA Ga gA ga');
gotoxy(50,14);writeln('GA Ga gA ga');
pausa;
gotoxy(10,16);writeln(' GA Ga gA ga ');
gotoxy(5,17);writeln('GA GGAA GGAa GgAA GgAa');
gotoxy(5,18);writeln('Ga GGAa GAaa GgAa Ggaa');
gotoxy(5,19);writeln('gA GgAA GgAa ggAA ggAa');
gotoxy(5,20);writeln('ga GgAa Ggaa ggAa ggaa');
pausa;
textcolor(5);WRITELN('si presentano 4 fenotipi ');
writeln('giallo-alto.GA..giallo-basso..Ga.verde-alto.gA..verde-basso ga');
end;

procedure uniti;
begin
textcolor(15);
writeln('ipotesi con genitori omozigotici per due caratteri');
writeln('giallo e alto= dominanti....verde e basso=recessivi ');
writeln('ipotesi con caratteri associati sullo stesso cromosoma');
gotoxy(5,4);writeln('fenotipo genitori');
textcolor(3);gotoxy(30,4);writeln('giallo-alto');
textcolor(6);gotoxy(50,4);writeln('verde-basso');
textcolor(3);gotoxy(5,10);writeln('fenotipo filiale1 100% ');
gotoxy(40,10);writeln('giallo-alto');
pausa;
textcolor(15);
gotoxy(5,5);writeln('genotipo genitori');
textcolor(3);gotoxy(30,5);writeln('(G-A G-A)');
textcolor(6);gotoxy(50,5);writeln('(g-a g-a)');
textcolor(15);gotoxy(5,6);writeln('gametogenesi');
textcolor(3);gotoxy(30,6);writeln('G-A G-A ');
textcolor(6);gotoxy(50,6);writeln('g-a g-a ');
pausa;
textcolor(15);
gotoxy(5,11);writeln('genotipo filiale1 100%');
gotoxy(40,11);writeln('(G-A g-a)');
pausa;
gotoxy(5,13);writeln('incrocio tra F1-F1');
gotoxy(30,13);writeln('(G-A g-a)');
gotoxy(50,13);writeln('(G-A g-a)');
gotoxy(5,14);writeln('gametogenesi');
gotoxy(30,14);writeln('G-A g-a');
gotoxy(50,14);writeln('G-A g-a');
pausa;
gotoxy(10,16);writeln(' G-A g-a ');
gotoxy(5,17);writeln('G-A G-A G-A G-A g-a');
gotoxy(5,18);writeln('g-a G-A g-a g-a g-a ');
textcolor(5);
WRITELN('si presentano 2 fenotipi ');
writeln(' 75% giallo-alto.GA..25% verde-basso ga');
end;


PROCEDURE SCELTA;
var ris:integer;
begin
cancella;
textcolor(15);
separati;pausa;cancella;uniti;pausa;cancella;
textcolor(15);
write('per rivedere premi 1;per finire premi 2 ');readln(ris);
if ris=1 then scelta;
end;


begin
cancella;
writeln('analisi trasmissione caratteri due caratteri ');
writeln('nella ipotesi di non associazione sullo stesso cromosoma');
writeln('nella ipotesi di associazione sullo stesso cromosoma');
pausa;cancella;
scelta;
end.