legge della dominanza

esci con genetica.htm o esempi.htm

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.