mutazioni
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=W5Jmd2Xn7Jg
program mutazio1; (* Mutazioni *)
(* automatico *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15:integer;
procedure grafica;
var t,s:integer;
stringa:string;
begin
t:=0;
s:=0;
stringa:=('c:\SCHEDA\');
initgraph(s,t,stringa);
end;
procedure pausa1;
begin
setcolor(c4);
outtextxy(430,10,'premi INVIO');readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(c15);
end;
procedure pausa;
begin
readln;cleardevice;
end;
procedure testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;
procedure at;
begin
delay(2000);
end;
procedure cp1(x,y:integer);
begin
setfillstyle(2,3);
bar(x,y,x+50,y+20);
end;
procedure cm1(x,y:integer);
begin
setfillstyle(1,2);
bar(x,y,x+50,y+20);
end;
procedure pro1;
begin
testo(20,50,'mutazioni puntiformi');
testo(50,70,'interessano solo pochi nucleotidi');
testo(50,80,'Delezione,Sostituzione,Inserzione,Inversione');
setcolor(c2);
testo(50,100,'AAA cCC AAATTTAAA serie DNA normale');
testo(50,110,'AAA CCA AATTTAAAA serie con DELEZIONE di un nucleotide C');
pausa1;setcolor(c3);
testo(50,130,'AAA cCC AAATTTAAA serie DNA normale');
testo(50,140,'AAA TCC AAATTTAAA serie con SOSTITUZIONE di un nucleotide c-T');
pausa1;setcolor(c2);
testo(50,170,'AAA CCC AAATTTAAA serie DNA normale');
testo(50,180,'AAA TCC CAAATTTAA serie con INSERZIONE di un nucleotide T');
pausa1;setcolor(c3);
testo(50,200,'AAA CCC AAATTTAAA serie DNA normale');
testo(50,210,'AAC ACC AAATTTAAA serie con INVERSIONE di due nucleotidi A-C');
pausa1;cleardevice;
testo(20,50,'mutazioni puntiformi');
testo(50,70,'interessano solo pochi nucleotidi');
setcolor(c2);
testo(50,100,'AAA cCC AAA TTT AAA serie DNA normale');
testo(50,110,'Lys Pro Lys Phe Lys proteina codificata');
setcolor(c3);
testo(50,130,'AAA CCA AAT TTA AAA serie con DELEZIONE di un nucleotide C');
testo(50,140,'Lys Pro Asn Leu Lys proteina mutata');
pausa1;setcolor(c2);
testo(50,160,'AAA cCC AAA TTT AAA serie DNA normale');
testo(50,170,'Lys Pro Lys Phe Lys proteina codificata');
setcolor(c3);
testo(50,190,'AAA TCC AAA TTT AAA serie con SOSTITUZIONE di un nucleotide c-T');
testo(50,200,'Lys Ser Lys Phe Lys proteina modificata');
pausa1;setcolor(c2);
testo(50,230,'AAA CCC AAA TTT AAA serie DNA normale');
testo(50,240,'Lys Pro Lys Phe Lys proteina codificata');
setcolor(c3);
testo(50,260,'AAA TCC CAA ATT TAA serie con INSERZIONE di un nucleotide T');
testo(50,270,'Lys Ser Gln Ile *** proteina modificata');
pausa1;setcolor(c2);
testo(50,290,'AAA CCC AAA TTT AAA serie DNA normale');
testo(50,300,'Lys Pro Lys Phe Lys proteina codificata');
setcolor(c3);
testo(50,330,'AAC ACC AAA TTT AAA serie con INVERSIONE di due nucleotidi A-C');
testo(50,340,'Asn Thr Lys Phe Lys proteina modificata');
pausa1;
setcolor(c7);
testo(50,370,'notare diverso effetto sulla proteina modificata');
testo(50,380,'in funzione del tipo di mutazione');
pausa1;cleardevice;
testo(50,50,'eliminazione o inserzione di una trippletta');
setcolor(c2);
testo(50,100,'AAA CCC AAA CCC AAA CCC serie DNA codificante ');
testo(50,110,'Lys Pro Lys Pro Lys Pro proteina codificata');
setcolor(c3);
testo(50,130,'AAA TTT CCC AAA CCC AAA INSERZIONE TTT ');
testo(50,140,'Lys Phe Pro Lys Pro Lys proteina modificata');
setcolor(c2);
testo(50,200,'AAA CCC AAA CCC AAA CCC serie DNA codificante');
testo(50,210,'Lys Pro Lys Pro Lys Pro proteina codificata');
setcolor(c3);
testo(50,230,'AAA AAA CCC AAA CCC DELEZIONE CCC ');
testo(50,240,'Lys Lys Pro Lys Pro proteina modificata');
pausa1;
setcolor(c15);
testo(50,300,'notare effetto ridotto nella proteina modificata');
pausa1;cleardevice;
testo(50,50,'EFFETTO della mutazione dipende anche dalla posizione');
testo(50,60,'nella quale si manifesta');
setcolor(c2);
testo(50,100,'AAA CCC AAA CCC AAA CCC AAA CCC AAA CCC DNA codificante');
testo(50,110,'Lys Pro Lys Pro Lys Pro Lys Pro Lys Pro proteina normale');
setcolor(c3);
testo(50,150,'AAA aCC CAA ACC CAA ACC CAA ACC CAA ACC INSERZIONE di a');
testo(50,160,'Lys Thr Gln Thr Gln Thr Gln Thr Gln Thr proteina1 mutata');
pausa1;setcolor(c7);
testo(50,180,'AAA CCC AAA CCC AAA CCC AAA CCC aAA ACC INSERZIONE di a');
testo(50,190,'Lys Pro Lys Pro Lys Pro Lys Pro Lys Thr proteina2 mutata');
pausa1;
setcolor(c15);
testo(50,220,'evidente il diverso effetto sulla mutazione nella');
testo(50,230,'proteina1 e nella proteina2 ');
testo(50,240,'sempre con la INSERZIONE dello stesso nucleotide A');
testo(50,250,'ma in diversa posizione');pausa1;
testo(50,300,'inoltre effetto indifferente se la mutazione nel codice');
testo(50,310,'porta a codificare lo stesso amminoacido (ridondanza');
testo(50,320,'oppure a codificare un amminoacido simile al precedente');
testo(50,330,'oppure il nuovo amminoacido non si trova in una posizione');
testo(50,340,'importante per la funzione della proteina');
pausa1;cleardevice;
testo(50,50,'Mutazioni cromosomiche');
testo(50,70,'Delezione,Inversione,Traslocazione');
setcolor(c2);
testo(50,120,'AAACCCAAACCCAAACCCAAATTTTTT normale');
testo(50,140,'AAACCCAAACCCAAACCCAAA dopo DELEZIONE di TTTTTT');
pausa1;setcolor(c3);
testo(50,170,'AAACCCAAACCCAAACCCAAATTTTTT normale');
testo(50,190,'AAACCCAAACCCAAACCCTTTAAATTT dopo INVERSIONE AAA-TTT');
pausa1;setcolor(c15);
testo(50,250,'TRASLOCAZIONE-DUPLICAZIONE-DELEZIONE tra omologhi');
setcolor(c2);
testo(50,270,'AAACCCAAACCCAAACCCAAACCCTGA primo cromosoma normale');
testo(50,280,'AAACCCAAACCCAAACCCAAACCCTGA secondo cromosoma normale');
testo(50,310,'AAACCCAAACCCAAACCCAAACCCTGATGA TRASLOCAZIONE+DUPLICAZIONE');
testo(50,320,'AAACCCAAACCCAAACCCAAACCC DELEZIONE');
pausa1;setcolor(c15);
testo(50,350,'TRASLOCAZIONE tra non omologhi');
setcolor(c2);
testo(50,370,'AAACCCAAACCCAAACCCAAACCCTGA primo cromosoma normale');
testo(50,380,'AAATTTAAACCCAAACCCAAACCCATC secondo cromosoma normale');
testo(50,400,'AAACCCAAACCCAAACCCAAACCCATC TRASLOCAZIONE su primo ATC');
testo(50,410,'AAATTTAAATTTAAATTTAAATTTTGA TRASLOCAZIONE su secondo TGA');
pausa1;
end;
procedure inizio;
begin
setcolor(c2);settextstyle(4,0,4);
testo(20,30,'MUTAZIONI ');
setcolor(c3);settextstyle(3,0,2);
testo(50,80,'in funzione delle dimensioni');
testo(20,100,'Puntiformi : interessano un nucleotide');
testo(20,120,'Geniche : interessano piu nucleotidi,un gene');
testo(20,140,'Cromosomiche: interessano uno o piu cromosomi');
testo(20,160,'Genomiche : interessano tutti i cromosomi');
pausa1;
setcolor(c7);
testo(50,180,'in funzione delle cellule interessate');
testo(20,200,'Somatiche: interessano solo individuo mutante');
testo(20,220,'Germinali: interessano solo i figli generati');
pausa1;
setcolor(c2);
testo(50,250,'in funzione degli effetti');
testo(20,270,'svantaggiose: letali, subletali, subvitali');
testo(20,290,'vantaggiose');
testo(20,310,'indifferenti');
pausa1;
setcolor(c3);
testo(50,330,'in funzione delle cause originanti');
testo(20,360,'spontanee,casuali');
testo(40,380,'radiazioni,mutageni vari');
testo(40,400,'errori duplicazione,trascrizione, traduzione');
testo(40,420,'errori nella segregazione con la mitosi, meiosi');
testo(20,440,'indotte artificialmente');
testo(40,460,'con sostanze chimiche, radiazioni...');
pausa1;
end;
procedure scelta;
var sce,ris:integer;
begin
cleardevice;
settextstyle(0,0,1);
setcolor(c3);
pro1;
setcolor(c15);
testo(20,30,'per continuare premi 1..per finire 2 :scelta=');
gotoxy(60,2);readln(sce);
cleardevice;
if sce=1 then scelta;
end;
begin
clrscr;
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
grafica;inizio;
scelta;closegraph;
end.