leggi di mendel
:prima e seconda, con interazione
programmi in pascal: si fornisce listato e talora filmato
ottenuto riprendendo con digitale il file.exe attivato:
filmato registrato in youtube e richiamato
prima e seconda legge di mendel:variante
http://www.youtube.com/watch?v=EbvoTYirBGg
program mend13; (* prima e seconda legge di mendel come MEND12*) uses crt,graph; (* fenotipi genitori e filiale 1 codominanti *) var ad,ar,cd:string; procedure grafica; var t,s:integer; stringa:string; begin t:=0; s:=0; stringa:=('c:\scheda\'); initgraph(s,t,stringa); end; procedure attende; begin delay(2000); end; procedure pausa1; begin setcolor(4); outtextxy(430,10,'premi INVIO');readln; setcolor(0); outtextxy(430,10,'premi INVIO'); setcolor(15); end; procedure pausa; begin readln;cleardevice; end; procedure sosta; begin readln; end; procedure testo(x,y:integer;st:string); begin outtextxy(x,y,st); end; procedure ma(x1,y1,x2,y2,st,cm:integer); begin setfillstyle(st,cm); bar(x1,y1,x2,y2); end; procedure fe(x1,y1,rv,ro,st,cf:integer); begin setfillstyle(st,cf); fillellipse(x1,y1,rv,ro); end; procedure programma; begin testo(20,20,'PRIMA E SECONDA LEGGE DI MENDEL'); outtextxy(20,60,'trasmissione carattere COLORE '); setcolor(4); outtextxy(20,160,'nel caso di associazione a somatico A '); outtextxy(20,170,'NOTARE come non cambia risultato se allele dominante'); outtextxy(20,180,'o allele recessivo,proviene dal padre o dalla madre '); setcolor(3); outtextxy(20,190,'--------------------------------------------------'); outtextxy(20,200,'PRENDERE NOTA dei risultati nei figli'); outtextxy(20,210,'percentuali fenotipiche e genotipiche'); outtextxy(20,220,'nelle diverse situazioni presentate '); setcolor(15); pausa1;cleardevice; end; procedure pro1; begin (* associato ad A *) ma(100,50,150,100,2,4); fe(350,75,25,25,2,3); line(125,75,350,75); line(240,245,240,75); ma(50,220,100,270,2,2); ma(150,220,200,270,2,2); fe(300,245,25,25,2,2); fe(400,245,25,25,2,2); outtextxy(5,5,'fenotipo genitori'); outtextxy(100,15,ar); outtextxy(350,15,ad); attende; setcolor(15); outtextxy(5,30,'genotipo genitori'); outtextxy(70,70,'BB'); outtextxy(390,70,'AA'); outtextxy(5,160,'gametogenesi'); outtextxy(150,160,'B B'); outtextxy(300,160,'A A'); setcolor(3);outtextxy(5,310,'allele co-dominante su A :');testo(400,310,ad); setcolor(4);outtextxy(5,330,'allele co-dominante su B :');testo(400,330,ar); setcolor(15);outtextxy(5,290,'genotipo f1'); outtextxy(50,275,'AB'); outtextxy(150,275,'AB'); outtextxy(300,275,'AB'); outtextxy(400,275,'AB'); attende; ma(100,50,150,100,2,4); fe(350,75,25,25,2,3); line(125,75,350,75); line(240,245,240,75); ma(50,220,100,270,3,2); ma(150,220,200,270,3,2); fe(300,245,25,25,3,2); fe(400,245,25,25,3,2);attende; setfillstyle(3,2);pieslice(530,70,0,360,50); setcolor(2); outtextxy(430,150,'100% eterozigoti AB '); setcolor(15); pausa1;setfillstyle(0,0);bar(5,300,600,450); line(175,245,300,245);line(240,245,240,320); setcolor(15);outtextxy(5,300,'gametogenesi'); testo(150,300,'A B');testo(275,300,'A B'); ma(50,320,100,370,2,3); ma(150,320,200,370,3,2); ma(275,320,325,370,3,2); ma(375,320,425,370,2,4);attende; testo(5,380,'genotipo F2'); testo(50,390,'AA');testo(150,390,'AB'); testo(275,390,'AB');testo(375,390,'BB');attende; setfillstyle(2,2);pieslice(530,270,0,90,50); setfillstyle(3,3);pieslice(530,270,90,270,50); setfillstyle(2,4);pieslice(530,270,270,360,50); setcolor(3);testo(440,340,'25% omozigoti AA'); setcolor(2);testo(440,350,'50% eterozigoti AB'); setcolor(4);testo(440,360,'25% omozigoti BB'); setcolor(15);pausa1; end; procedure pro2; begin (* associato ad A *) ma(100,50,150,100,2,3); fe(350,75,25,25,2,4); line(125,75,350,75); line(240,245,240,75); ma(50,220,100,270,2,2); ma(150,220,200,270,2,2); fe(300,245,25,25,2,2); fe(400,245,25,25,2,2); outtextxy(5,5,'fenotipo genitori'); outtextxy(100,15,ad); outtextxy(350,15,ar); attende; setcolor(15); outtextxy(5,30,'genotipo genitori'); outtextxy(70,70,'AA'); outtextxy(390,70,'BB'); outtextxy(5,160,'gametogenesi'); outtextxy(150,160,'A A'); outtextxy(300,160,'B B'); setcolor(3);outtextxy(5,310,'allele co-dominante su A :');testo(400,310,ad); setcolor(4);outtextxy(5,330,'allele co-dominante su B:');testo(400,330,ar); setcolor(15);outtextxy(5,290,'genotipo f1'); outtextxy(50,275,'AB'); outtextxy(150,275,'AB'); outtextxy(300,275,'AB'); outtextxy(400,275,'AB'); attende; ma(100,50,150,100,2,3); fe(350,75,25,25,2,4); line(125,75,350,75); line(240,245,240,75); ma(50,220,100,270,3,2); ma(150,220,200,270,3,2); fe(300,245,25,25,3,2); fe(400,245,25,25,3,2);attende; setfillstyle(3,2);pieslice(530,70,0,360,50); setcolor(3); outtextxy(430,150,'100% eterozigoti AB '); setcolor(15); pausa1;setfillstyle(0,0);bar(5,300,600,450); line(175,245,300,245);line(240,245,240,320); setcolor(15);outtextxy(5,300,'gametogenesi'); testo(150,300,'A B');testo(275,300,'A A'); ma(50,320,100,370,2,3); ma(150,320,200,370,3,2); ma(275,320,325,370,3,2); ma(375,320,425,370,2,4);attende; testo(5,380,'genotipo F2'); testo(50,390,'AA');testo(150,390,'AB'); testo(275,390,'AB');testo(375,390,'BB');attende; setfillstyle(2,3);pieslice(530,270,0,90,50); setfillstyle(3,2);pieslice(530,270,90,270,50); setfillstyle(2,4);pieslice(530,270,270,360,50); setcolor(3); testo(440,340,'25% omozigoti AA'); setcolor(2); testo(440,350,'50% eterozigoti AB'); setcolor(4);testo(440,360,'25% omozigoti BB'); setcolor(15);pausa1; end; procedure scelta; var sce:integer; begin setcolor(3); testo(20,20,'selezionare tra fenotipi proposti'); setcolor(4); testo(20,50,'1...maschio codominante1/femmina codominante2'); testo(20,60,'2...maschio codominante2/dominante/femmina codominante1'); setcolor(15);testo(20,200,'scelta =');readln(sce);cleardevice; case sce of 1:pro1;2:pro2;end; cleardevice; testo(20,30,'per continuare premi 1..per finire 2 :scelta=');readln(sce); cleardevice; if sce=1 then scelta; end; begin clrscr; writeln('prima legge di MENDEL o della UNIFORMITA prima generazione'); textcolor(3); writeln('incrociando individui omozigotici,codominanti'); writeln('per lo stesso carattere:es.COLORE '); writeln('nella prima generazione filiale si ottengono individui'); writeln('tutti con lo stesso fenotipo,UNIFORME,e stesso genotipo'); writeln('------------------------------------------------------'); textcolor(15); writeln('seconda legge di MENDEL o della SEGREGAZIONE dei caratteri'); textcolor(4); writeln('incrociando individui eterozigotici per lo stesso carattere'); writeln('nella seconda generazione filiale si ottengono individui'); writeln('75% fenotipo dominante:25% omozigoti,50% eterozigoti'); writeln('25% fenotipo recessivo,omozigoti'); writeln('----------------------------------------------------------'); textcolor(15); writeln('NOTA:non esiste corrispondenza tra colori o simboli usati'); writeln; writeln('durante la esecuzione,premere INVIO quando viene richiesto'); writeln('altrimenti attendere...'); ad:='AZZURRO';ar:='ROSSO';cd:='VERDE'; writeln('premi INVIO');readln;clrscr; grafica; programma; (* scrivere nome procedura propria *) scelta; closegraph; end.