meiosi

programmi scritti con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus) attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo videoclip che
registro e poi richiamo con youtube

fornisco listato pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato

videoclip
http://www.youtube.com/watch?v=FJrVxgOjy28

http://www.youtube.com/watch?v=Wv7WQNykmek

program meiosi;       (* meiosi e leggi di MENDEL *)
uses crt,graph;

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 testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;

procedure testo1(x,y:integer;sx:string);
begin
setcolor(15);
outtextxy(x,y,sx);
end;

procedure ma(x1,y1,x2,y2:integer);
begin
setfillstyle(1,4);
bar(x1,y1,x2,y2);
end;

procedure fe(x1,y1,x2,y2:integer);
begin
setfillstyle(2,3);
bar(x1,y1,x2,y2);
end;

procedure at;
begin
delay(1000);
end;

procedure pro1;
begin
(* genitori *)
testo(10,10,'meiosi e segregazione dei cromosomi omologhi');
setcolor(4);testo(50,50,'rosso ');rectangle(100,50,200,150);
ma(120,70,140,120);ma(160,70,180,120);
at;setcolor(3);testo(570,50,'azzurro');circle(500,100,50);
fe(470,70,490,120);fe(510,70,530,120);
attende;
testo(280,160,'gametogenesi');
at;ma(220,100,240,150);ma(260,100,280,150);
at;fe(380,100,400,150);fe(420,100,440,150);
attende;testo(280,180,'fecondazione');
at;ma(120,220,140,280);fe(160,220,180,280);
at;ma(470,220,490,280);fe(510,220,530,280);
attende;
setcolor(4);testo(10,200,'100% rosso');
rectangle(100,200,200,300);
setcolor(4);circle(500,250,50);
attende;
testo(280,310,'gametogenesi');
at;ma(220,250,240,300);fe(260,250,280,300);
at;ma(380,250,400,300);fe(420,250,440,300);
attende;
at;testo(280,330,'fecondazione');
at;ma(120,370,140,430);ma(160,370,180,430);
at;ma(250,370,270,430);fe(290,370,310,430);
at;ma(370,370,390,430);fe(410,370,430,430);
at;fe(480,370,500,430);fe(520,370,540,430);
setcolor(4);testo(10,350,'75% rosso');
setcolor(4);rectangle(100,350,200,450);
setcolor(4);rectangle(230,350,330,450);
setcolor(4);rectangle(350,350,450,450);
setcolor(3);rectangle(470,350,570,450);
testo(10,360,'25% azzurro');
pausa1;
testo(10,20,'associazione dei fattori mendeliani ai cromosomi omologhi');
setcolor(4);testo(100,30,'omozigote dominante AA');
at;testo1(120,70,'A');testo1(160,70,'A');
at;setcolor(3);testo(450,30,'omozigote recessivo aa');
at;testo1(470,70,'a');testo1(510,70,'a');
at;testo1(220,100,'A');testo1(260,100,'A');
at;testo1(380,100,'a');testo1(420,100,'a');
(* f1 *)
at;testo1(120,220,'A');testo1(160,220,'a');
at;testo1(470,220,'A');testo1(510,220,'a');
at;testo1(220,250,'A');testo1(260,250,'a');
at;testo1(380,250,'A');testo1(420,250,'a');
(* gameti f1 *)
at;testo1(120,220,'A');testo1(160,220,'a');
at;testo1(470,220,'A');testo1(510,220,'a');
at;testo(10,180,'100% eterozigoti Aa');
(* F2 *)
at;testo1(120,370,'A');testo1(160,370,'A');
at;testo1(250,370,'A');testo1(290,370,'a');
at;testo1(370,370,'A');testo1(420,370,'a');
at;testo1(490,370,'a');testo1(530,370,'a');
at;testo(10,400,'25  AA');testo(10,410,'50% Aa');testo(10,420,'25% aa');
pausa1;
end;

procedure pro2;
begin
(* genitori *)
testo(10,10,'meiosi e segregazione dei cromosomi omologhi');
setcolor(4);testo(50,50,'rosso ');rectangle(100,50,200,150);
ma(120,70,140,120);ma(160,70,180,120);
at;setcolor(3);testo(570,50,'azzurro');circle(500,100,50);
fe(470,70,490,120);fe(510,70,530,120);
attende;
testo(280,160,'gametogenesi');
at;ma(220,100,240,150);ma(260,100,280,150);
at;fe(380,100,400,150);fe(420,100,440,150);
attende;testo(280,180,'fecondazione');
at;ma(120,220,140,280);fe(160,220,180,280);
at;ma(470,220,490,280);fe(510,220,530,280);
attende;
setcolor(2);testo(10,200,'100% verde');
rectangle(100,200,200,300);
setcolor(2);circle(500,250,50);
attende;
testo(280,310,'gametogenesi');
at;ma(220,250,240,300);fe(260,250,280,300);
at;ma(380,250,400,300);fe(420,250,440,300);
attende;
at;testo(280,330,'fecondazione');
at;ma(120,370,140,430);ma(160,370,180,430);
at;ma(250,370,270,430);fe(290,370,310,430);
at;ma(370,370,390,430);fe(410,370,430,430);
at;fe(480,370,500,430);fe(520,370,540,430);
setcolor(4);testo(10,350,'25% rosso');
setcolor(4);rectangle(100,350,200,450);
setcolor(2);testo(10,370,'50% verde');
setcolor(2);rectangle(230,350,330,450);
setcolor(2);rectangle(350,350,450,450);
setcolor(3);rectangle(470,350,570,450);
testo(10,360,'25% azzurro');
pausa1;
testo(10,20,'associazione dei fattori mendeliani ai cromosomi omologhi');
setcolor(4);testo(100,30,'omozigote codominante AA');
at;testo1(120,70,'A');testo1(160,70,'A');
at;setcolor(3);testo(450,30,'omozigote codominante BB');
at;testo1(470,70,'B');testo1(510,70,'B');
at;testo1(220,100,'A');testo1(260,100,'A');
at;testo1(380,100,'B');testo1(420,100,'B');
(* f1 *)
at;testo1(120,220,'A');testo1(160,220,'B');
at;testo1(470,220,'A');testo1(510,220,'B');
at;testo1(220,250,'A');testo1(260,250,'B');
at;testo1(380,250,'A');testo1(420,250,'B');
(* gameti f1 *)
at;testo1(120,220,'A');testo1(160,220,'B');
at;testo1(470,220,'A');testo1(510,220,'B');
at;testo(10,180,'100% eterozigoti AB');
(* F2 *)
at;testo1(120,370,'A');testo1(160,370,'A');
at;testo1(250,370,'A');testo1(290,370,'B');
at;testo1(370,370,'A');testo1(420,370,'B');
at;testo1(490,370,'B');testo1(530,370,'B');
at;testo(10,400,'25  AA');testo(10,410,'50% AB');testo(10,420,'25% BB');
pausa1;
end;



procedure scelta;
var sce:integer;
begin
cleardevice;
setcolor(3);
testo(20,20,'selezionare tra opzioni proposte');
setcolor(4);
testo(20,40,'A dominante,a recessivo ');
testo(20,50,'1...meiosi e 1-2 legge di MENDEL:DOMINANZA-SEGREGAZIONE');
setcolor(3);
testo(20,80,'A codominante..B codominante ');
testo(20,90,'2...meiosi e 1-2 legge di MENDEL:UNIFORMITA-SEGREGAZIONE');
setcolor(15);testo(400,20,'scelta =');
gotoxy(2,5);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('esempio MEIOSI e leggi di MENDEL prima e seconda');
writeln('------------------------------------------------');
textcolor(4);
writeln('i caratteri trasmessi secondo le leggi di MENDEL ');
writeln('mostrano una particolare,regolare,distribuzione nei figli');
textcolor(3);
writeln('tale regolarita puo essere compresa se si ammette che ');
writeln('i fattori mendeliani dominante,recessivo,codominanti ');
writeln('sono associati a cromosomi omologhi nella cellula diploide');
textcolor(2);
writeln('Infatti la segregazione dei cromosomi omologhi di ogni coppia');
writeln('presenta la stessa regolarita dei fattori mendeliani');
writeln('-----------------------------------------------------');
textcolor(15);
writeln('durante la esecuzione,premere INVIO quando richiesto');
writeln('oppure attendere prosecuzione automatica');
writeln('premi INVIO per proseguire');readln;clrscr;
grafica;
scelta;
closegraph;
end.

indice