program gen2; uses crt; (* interattivo *) var fd,fr,f,s,sh,f1,f2,c:string[20]; a1,a2:char; procedure pausa; begin readln; end; procedure sosta; begin delay(1000); end; procedure cancella; begin clrscr; end; procedure ipotesi; begin gotoxy(20,14);writeln('IPOTESI INTERPRETATIVA'); gotoxy(5,15);writeln('ogni genitore porta duplice copia di un fattore'); gotoxy(5,16);writeln('indicata con lettera A=dominante,a=recessivo'); gotoxy(5,17);writeln('nella gametogenesi ogni gamete riceve 1 fattore'); gotoxy(5,18);writeln('con la fecondazione,lo zigote riceve due fattori'); gotoxy(5,19);writeln('uno di origine paterna,altro di origine materna'); pausa; end; procedure meiosi; begin writeln('durante la gametogenesi,per meiosi'); writeln('le coppie di cromosomi omologhi'); writeln('formate da cromosomi di origine paterna e materna'); writeln('si separano in gameti distinti:ogni gamete contiene solo'); writeln('uno dei due cromosomi di ogni coppia'); writeln('SE I FATTORI responsabili dei caratteri ereditari'); writeln('sono collegati ognuno ad un cromosoma della coppia omologa'); writeln('si comprende come si separino in gameti distinti durante'); writeln('la gametogenesi'); pausa; end; procedure dati; begin writeln('scrivere tutto usando le lettere minuscole '); write('scrivi nome del carattere considerato ');readln(c); write('scrivi fenotipo genitore 1 =');readln(f1); write('scrivi fenotipo genitore 2 =');readln(f2); repeat write('scrivi fenotipo filiale 1 =');readln(f); until (f=f1) or (f=f2); if f=f1 then begin fd:=f1;fr:=f2;end else begin fd:=f2;fr:=f1;end; a1:='A'; a2:='a'; cancella; pausa; end; procedure parentale; begin gotoxy(5,4);writeln('fenotipo genitori '); gotoxy(30,4);writeln(fd); gotoxy(50,4);writeln(fr); sosta; gotoxy(5,8);writeln('fenotipo filiale1 :100%'); gotoxy(40,8);writeln(fd); sosta; ipotesi; gotoxy(5,12);writeln('allele dominante =',fd,sh,a1); gotoxy(5,13);writeln('allele recessivo =',fr,sh,a2); sosta; gotoxy(5,5);writeln('genotipo genitori '); gotoxy(30,5);writeln(a1,s,a1); gotoxy(50,5);writeln(a2,s,a2); sosta; gotoxy(5,6);writeln('gameti con un fattore'); gotoxy(30,6);writeln(a1); gotoxy(50,6);writeln(a2); sosta; gotoxy(5,7);writeln('unica combinazione tra gameti con ',a1,s,a2); sosta; gotoxy(5,9);writeln('genotipo filiale1 :100% '); gotoxy(40,9);writeln(a1,s,a2); end; begin cancella; writeln('esempio prima legge di MENDEL o della DOMINANZA'); writeln('incrociando due individui omozigotici per lo stesso carattere'); writeln('uno con allele dominante e altro con allele recessivo'); writeln('si ottiene nella prima generazione filiale il 100% di individui'); writeln('con fenotipo identico a quello del genitore dominante'); pausa;cancella; s:=' / '; sh:=' '; dati;parentale;pausa;cancella;meiosi; pausa; end.