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.