legge dominanza
esci con genetica.htm

program gen1;
uses crt;
var fd,fr,f,s,sh:string[20];
a1,a2:char;

procedure pausa;
begin
readln;
end;

procedure sosta;
var a:integer;
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 dati;
begin
fd:='rosso';
fr:='bianco';
f:='rosso';
a1:='R';
a2:='r';
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');
writeln('---------------------------------------------------');
writeln('carattere considerato : COLORE ');
writeln('alleli antagonisti : rosso-bianco');
writeln('genitore 1 omozigote fenotipicamente rosso');
writeln('genitore 2 omozigote fenotipicamente bianco');
pausa;cancella;
s:=' / ';
sh:=' ';
dati;parentale;
pausa;
end.