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.