proteinosintesi

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
prote
http://www.youtube.com/watch?v=AxXYId3CHbk

program codone1;       (* proteinosintesi *)
uses crt,graph;
var dna1,dna2,rnam,ami1,le:string;
    c2,c3,c4,c6,c15:word;
    v,q,y,p1,p2,p3:integer;

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(p1);
end;

procedure pausa1;
begin
setcolor(7);
outtextxy(430,10,'premi INVIO');readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(15);
end;

procedure rap;
begin
delay(p2);
end;

procedure pausa;
begin
readln;cleardevice;
end;

procedure at;
begin
delay(p3);
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 traduce(x:integer;ac,la:string);
var y:integer;
begin
rectangle(q,y-20,q+60,y+60);
y:=210;
setcolor(c2);outtextxy(x,y,'|||');
setcolor(c3);outtextxy(x,y+10,ac);
setcolor(c15);outtextxy(x,y+20,' | ');
setcolor(c6);outtextxy(x,y+30,la);
attende;
end;

procedure cance;
begin
setfillstyle(0,0);
bar(10,360,600,450);
end;

procedure traduce1(x:integer;ac,la:string);
var y:integer;
begin
y:=210;
setcolor(0);outtextxy(x,y,'|||');
setcolor(0);outtextxy(x,y+10,ac);
setcolor(0);outtextxy(x,y+20,' | ');
setcolor(0);rectangle(q,y-20,q+60,y+60);
setcolor(c6);outtextxy(x,y+30,la);
q:=q+25;
end;

procedure enzima;
begin
setcolor(c2);
testo(10,10,'ogni t-RNA possiede 4 siti caratteristici');
setcolor(c4);testo(10,20,'1-specifico per riconoscere enzina specifico');
setcolor(c4);testo(10,30,'2-specifico per riconoscere codone specifico in m-RNA');
setcolor(c3);testo(10,40,'3-non specifico per riconoscere il ribosoma');
setcolor(c2);testo(10,50,'4-non specifico per agganciare amminoacido');
(* t-RNA *)
attende;
setfillstyle(1,c3);
testo(220,270,'per ribosoma');
bar(220,350,240,280);setfillstyle(2,c4);at;
bar(180,320,220,310);setfillstyle(2,c4);at;
bar(205,350,245,380);testo(200,390,'per enzima specifico');
line(240,320,470,320);at;
testo(160,310,'AAA');testo(10,290,'per codone specifico');at;
testo(260,320,'per amminoacido');at;

(* t-RNA *)
setfillstyle(1,c3);testo(220,70,'per ribosoma');bar(220,80,240,150);
setfillstyle(5,c4);bar(180,120,220,110);
setfillstyle(5,c4);
bar(195,150,255,190);testo(200,190,'per enzima specifico');
line(240,120,470,120);
testo(160,110,'CCC');testo(10,90,'per codone specifico');
testo(260,110,'per amminoacido');attende;
setfillstyle(6,c3);
testo(10,230,'ogni amminoacido possiede forma caratteristica');
testo(10,240,'ricoscibile da enzima specifico');
bar(400,230,420,250);testo(400,220,'Ala');
bar(450,230,490,260);testo(450,220,'Ser');
pausa;

setcolor(c3);
moveto(100,350);
lineto(200,350);lineto(200,380);lineto(250,380);lineto(250,350);
lineto(300,350);
rectangle(350,350,360,390);
lineto(450,350);
lineto(450,380);lineto(480,380);lineto(480,350);
lineto(550,350);
lineto(550,400);lineto(100,400);lineto(100,350);at;
testo(200,410,'sito t-RNA');attende;
testo(330,410,'sito per ATP');attende;
testo(450,410,'sito per amminoacido');attende;
(* t-RNA *)
setfillstyle(1,c3);
testo(220,270,'per ribosoma');bar(220,350,240,280);
setfillstyle(2,c4);bar(180,320,220,310);
setfillstyle(2,c4);bar(205,350,245,380);
line(240,320,470,320);testo(160,310,'AAA');at;
(* amminoacido *)
bar(455,350,475,380);line(455,350,455,310);
testo(455,330,'Ala');attende;
setfillstyle(4,c15);bar(350,300,360,390);
testo(340,290,'ATP');attende;
setcolor(c2);testo(100,60,'enzima aminoacil-sintetasi ');attende;
setcolor(c4);testo(100,70,'sito per riconoscimento t-RNA specifico');
attende;
setcolor(c3);testo(100,90,'sito per riconoscimemto ATP:non specifico');
attende;
setcolor(c4);testo(100,100,'sito per legare amminoacido:specifico');
attende;
setcolor(c3);testo(100,110,'ci sono 20 diversi enzimi per 20 diversi t-RNA');
testo(100,120,'e 20 diversi amminoacidi da trasportare');

moveto(100,150);
setcolor(c4);
lineto(200,150);lineto(200,160);lineto(250,160);lineto(250,150);
lineto(300,150);rectangle(350,150,360,190);
lineto(450,150);lineto(450,160);lineto(460,160);lineto(460,150);
lineto(550,150);lineto(550,200);lineto(100,200);lineto(100,150);
pausa1;
cleardevice;
(* stacca ATP *)

setcolor(c3);
testo(200,200,'t-RNA aggancia Amminoacido');
testo(200,220,'usando energia fornita da ATP---ADP+P');
testo(200,240,'il complesso t-RNA--amminoacido si stacca da enzima');
testo(200,260,'pronto per migrare nel ribosoma');attende;
moveto(100,350);
lineto(200,350);lineto(200,380);lineto(250,380);lineto(250,350);
lineto(300,350);
rectangle(350,350,360,390);
lineto(450,350);
lineto(450,380);lineto(480,380);lineto(480,350);
lineto(550,350);
lineto(550,400);lineto(100,400);lineto(100,350);at;
(* t-RNA *)
setfillstyle(1,c3);
bar(220,350,240,280);
setfillstyle(2,c4);bar(180,320,220,310);
setfillstyle(2,c4);bar(205,350,245,380);
line(240,320,470,320);testo(160,310,'AAA');at;
(* amminoacido *)
bar(455,350,475,380);line(455,350,455,310);
testo(455,330,'Ala');attende;
setfillstyle(4,c15);bar(350,300,360,390);
testo(340,290,'ATP');attende;
setcolor(0);testo(340,290,'ATP');
setcolor(c4);testo(340,290,'ADP + P + Energia');
line(300,320,400,320);
pausa1;
setcolor(0);
setfillstyle(0,0);bar(350,300,360,390);
moveto(100,350);
lineto(200,350);lineto(200,380);lineto(250,380);lineto(250,350);
lineto(300,350);
rectangle(350,350,360,390);
lineto(450,350);
lineto(450,380);lineto(480,380);lineto(480,350);
lineto(550,350);
lineto(550,400);lineto(100,400);lineto(100,350);
testo(200,410,'sito t-RNA');
testo(330,410,'sito per ATP');
testo(450,410,'sito per amminoacido');
(* t-RNA *)
setcolor(c4);line(300,320,400,320);
pausa1;
setcolor(c15);
end;

procedure mrna;
var a,x,y:integer;
begin
setcolor(c3);
cance;
testo(20,380,'trascrizione da DNA a m-RNA ');
testo(20,390,'con intervento di RNA-polimerasi e nucleotidi');
x:=50;y:=70;
for a:=1 to 6 do
 begin
 setcolor(c3);testo(x,y,'UUU');at;
 setcolor(c4);testo(x+25,y,'GGG');
 x:=x+50;at;
 end;
end;

procedure mrna1;
var a,x:integer;
begin
setcolor(0);
x:=50;y:=70;
for a:=1 to 6 do
 begin
 testo(x,y,'UUU');
 testo(x+25,y,'GGG');
 x:=x+50;
 end;
 cance;
end;

procedure trna;
begin
testo(100,430,'t-RNA trasportatore di amminoacidi');
setcolor(c3);testo(250,110,'AAA        AAA=anticodone specifico');
testo(250,120,'  | ');testo(250,130,'  | ');
setcolor(c2);testo(250,140,' *|-       *   riconosce ribosoma,comune');
setcolor(c3);testo(250,150,'  |        -   riconosce enzima specifico');
setcolor(c2);testo(250,160,' ///       /// riconosce amminoacido,comune');
setcolor(c4);testo(250,170,'Ala        Ala amminoacido codificato da AAA');
attende;
setcolor(c3);testo(500,260,'AAA');testo(500,270,'  | ');testo(500,280,'  | ');
testo(500,290,' *|-');testo(500,300,'  | ');testo(500,310,' ///');
setcolor(c4);testo(500,320,'Ala');
setcolor(c3);testo(400,260,'CCC');testo(400,270,'  | ');testo(400,280,'  | ');
setcolor(c3);testo(400,290,' *|+');testo(400,300,'  | ');testo(400,310,' ///');
setcolor(c4);testo(400,320,'Ser');
pausa1;cance;
testo(100,430,'traduzione da m-RNA a proteina nei ribosomi');at;
end;

procedure pro1;
begin
rectangle(10,10,370,100);testo(550,20,'nucleo');
setcolor(c6);testo(50,50,dna1);at;testo(400,50,'DNA codificante');
setcolor(c2);testo(50,60,le);testo(400,60,'legami a idrogeno tra basi');
setcolor(c15);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
setcolor(c6);testo(50,30,ami1);at;testo(400,30,'proteina codificata');
pausa1;
testo(50,400,'apertura DNA da trascrivere');at;
testo(50,90,dna2);
setcolor(0);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
pausa1;
mrna;pausa1;mrna1;
setcolor(0);testo(50,90,dna2);
setcolor(0);testo(50,70,rnam);at;testo(400,70,'trascrizione in m-RNA');
setcolor(c15);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
setcolor(0);testo(50,400,'apertura DNA da trascrivere');at;
setcolor(c15);testo(50,400,'chiusura DNA dopo trascrizione');at;
pausa1;
setcolor(0);testo(50,400,'chiusura DNA dopo trascrizione');at;
setcolor(c15);testo(50,400,'migrazione di m-RNA da nucleo a RIBOSOMI ');
setcolor(c3);testo(50,200,rnam);
pausa1;cance;
end;

procedure pro2;
begin
setcolor(c3);
rectangle(10,10,370,100);testo(550,20,'nucleo');
setcolor(c6);testo(50,50,dna1);at;testo(400,50,'DNA codificante');
setcolor(c2);testo(50,60,le);testo(400,60,'legami a idrogeno tra basi');
setcolor(c15);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
setcolor(c6);testo(50,30,ami1);at;testo(400,30,'proteina codificata');
pausa1;
testo(50,400,'apertura DNA da trascrivere');
setcolor(0);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
setcolor(c15);testo(50,90,dna2);
setcolor(c3);mrna;at;mrna1;
testo(50,70,rnam);testo(400,70,'trascrizione in m-RNA');
attende;
setcolor(0);testo(50,70,rnam);testo(400,70,'trascrizione in m-RNA');
setcolor(0);testo(50,90,dna2);
setcolor(c15);testo(50,70,dna2);at;testo(400,70,'DNA non senso');
setcolor(0);testo(50,400,'apertura DNA da trascrivere');at;
setcolor(c15);testo(50,400,'chiusura DNA dopo trascrizione');at;
attende;
setcolor(0);testo(50,400,'chiusura DNA dopo trascrizione');
setcolor(c15);testo(50,400,'migrazione di m-RNA da nucleo a RIBOSOMI ');
setcolor(c3);testo(50,200,rnam);
pausa1;cance;
trna;
setcolor(c4);
rectangle(40,180,100,260);
testo(20,360,'nel ribosoma entra il t-RNA con amminoacido');
testo(20,370,'anticodone si lega a codone complementare in m-RNA');
testo(20,380,'entra altro t-RNA e si lega a codone complementare');
testo(20,390,'si forma un legame tra due amminoacidi');
testo(20,400,'un t-RNA esce da ribosoma e ne entra un altro');
testo(20,410,'la sequenza procede fino traduzione completa');pausa1;
setcolor(0);rectangle(40,180,100,260);
traduce(50,'AAA','Ala');at;traduce(75,'CCC','Ser');rap;
traduce1(50,'AAA','Ala');traduce(100,'AAA','Ala');rap;
traduce1(75,'CCC','Ser');traduce(125,'CCC','Ser');rap;
traduce1(100,'AAA','Ala');traduce(150,'AAA','Ala');rap;
traduce1(125,'CCC','Ser');traduce(175,'CCC','Ser');rap;
traduce1(150,'AAA','Ala');traduce(200,'AAA','Ala');rap;
traduce1(175,'CCC','Ser');traduce(225,'CCC','Ser');rap;
traduce1(200,'AAA','Ala');traduce(250,'AAA','Ala');rap;
traduce1(225,'CCC','Ser');traduce(275,'CCC','Ser');rap;
traduce1(250,'AAA','Ala');traduce(300,'AAA','Ala');rap;
traduce1(275,'CCC','Ser');traduce(325,'CCC','Ser');rap;
traduce1(300,'AAA','Ala');traduce1(325,'CCC','Ser');rap;
pausa1; cance;
testo(20,400,'fine sintesi della proteina');
testo(20,410,'osservare corrispondenza tra proteina codificata in DNA');
testo(20,420,'e proteina sintetizzata nei ribosomi');
pausa;
end;


procedure scelta;
begin
cleardevice;
settextstyle(0,0,1);
setcolor(c3);
pro1;cleardevice;
enzima;cleardevice;
pro2;cleardevice;
end;

procedure spiega;
begin
settextstyle(4,0,6);
setcolor(c2);testo(30,50,'PROTEINOSINTESI');
setcolor(c4);settextstyle(3,0,4);testo(30,130,'trascrizione DNA-->m-RNA');at;
setcolor(c3);testo(30,160,'migrazione e maturazione m-RNA ');at;
testo(30,200,'inserimento di m-RNA in ribosoma');at;
setcolor(c4);testo(20,250,'unione ENZIMA+ATP+t-RNA+Aminoacido');at;
setcolor(c2);testo(20,280,'inserimento t-RNA-aminoacido in ribosoma');at;
testo(20,320,'TRADUZIONE da m-RNA a PROTEINA ');at;
settextstyle(1,0,1);
PAUSA1;
end;

procedure inizio;
begin
writeln('PROTEINOSITESI');READLN;
writeln('successione fasi di proteinosintesi');
textcolor(c4);
writeln('1-le informazioni ereditarie sono codificate nei cromosomi');
writeln('  e precisamente del DNA che codifica per varie proteine');
writeln('  dalle quali dipende la manifestazione del carattere');
writeln('2-Il DNA presenta una successione di nucleotidi');
writeln('  adenosinfosfato A,citosinfosfato C');
writeln('  guanosinfosfato G,timidinfosfato T');
writeln('3-ogni trippletta di nucleotidi :codone');
writeln('  codifica per uno specifico ammimoacido');
writeln('4-ogni proteina presenta una composizione specifica in amminoacidi');
writeln('-----------------------------------------------------------------');
textcolor(c3);
writeln('  PROBLEMA:le proteine sono sintetizzate nei ribosomi citoplasmatici');
writeln('  la loro codificazione si trova nel nucleo');
writeln('  si deve TRASCRIVERE una copia della informazione e trasferirla');
writeln('  nei RIBOSOMI ove sara tradotta in proteina');
writeln('  ------------------------------------------------------------');
writeln('  il DNA si apre e mediante una RNA-polimerasi si sintetizza');
writeln('  una catena complementare a quella del DNA codificante');
writeln('  usando nucleotidi presenti nella cariolinfa:');
writeln('  si ottiene il m-RNA messaggero che esce dal nucleo');
writeln('  subisce una maturazione ed entra nei RIBOSOMI');
writeln('  premi INVIO ');readln;clrscr;
writeln('  PROBLEMA:i 20 diversi amminoacidi sono liberi nel citoplasma');
writeln('  occorrono 20 diversi t-RNA trasportatori per riconoscere ');
writeln('  ogni specifico amminoacido per trasportarlo entro il ribosoma');
writeln('  in corrispondenza del codone codificante nel m-RNA ');
textcolor(2);
writeln('  PROBLEMA:ogni t-RNA possiede una zona capace di legare');
writeln('  qualsiasi amminoacido:tuttavia non puo agganciarlo se prima');
writeln('  non si e associato ad uno specifico ENZIMA:');
writeln('  occorrono 20 diversi AMINO-ACIL-SINTETASI che devono potere');
writeln('  riconoscere il t-RNA specifico per ogni singolo amminoacido');
writeln('  e anche lo specifico amminoacido da agganciare al t-RNA');
writeln('  inoltre lo enzima deve poter riconoscere ATP che deve poi');
writeln('  fornire energia per legare t-RNA al suo amminoacido');
textcolor(c4);
writeln('  Quando il t-RNA ha cosi agganciato lo specifico amminoacido');
writeln('  deve trasportarlo nel ribosoma e disporlo in corrispondenza');
writeln('  del codone codificante per lo amminoacido specifico');
textcolor(c3);
writeln('  il t-RNA deve quindi possedere 4 siti specifici:');
writeln('  1-per riconoscere AMINO-ACIL-SINTETASI specifica');
writeln('  2-per riconoscere CODONE specifico nel m-RNA :ANTICODONE');
writeln('  3-per riconoscere AMMINOACIDO:sito non specifico');
writeln('  4-per riconoscere RIBOSOMA:sito non specifico');
writeln('  premi INVIO ');readln;clrscr;
writeln('  durante la fase di proteinosintesi ');
writeln('  il m-RNA messaggero si trova inserito nel RIBOSOMA');
writeln('  entro il ribosoma giunge un t-RNA che affaccia ');
writeln('  il suo ANTICODONE al CODONE complementare nel m-RNA ');
writeln('  AAA-UUU....UUU-AAA....CCC-GGG....GGG-AAA ecc.');
textcolor(4);
writeln('  poi giunge un secondo t-RNA che si accosta al precedente');
textcolor(3);
writeln('  utilizzando ENZINI del ribosoma ed energia da ATP');
writeln('  i due AMMINOACIDI si legano con legame peptidico');
textcolor(2);
writeln('  il primo t-RNA si stacca dal complesso ed esce dal ribosoma');
textcolor(4);
writeln('  il RIBOSOMA avanza lungo il m-RNA e la sequenza procede');
writeln('  fino al completamento della traduzione del m-RNA in proteina');
writeln('  premi INVIO ');readln;clrscr;
end;

begin
clrscr;
dna1:='AAACCCAAACCCAAACCCAAACCCAAACCCAAACCC';
dna2:='TTTGGGTTTGGGTTTGGGTTTGGGTTTGGGTTTGGG';
rnam:='UUUGGGUUUGGGUUUGGGUUUGGGUUUGGGUUUGGG';
ami1:='AlaSerAlaSerAlaSerAlaSerAlaSerAlaSer';
le:='||||||||||||||||||||||||||||||||||||';
q:=40;y:=50;
c2:=2;c3:=3;c4:=4;c6:=6;c15:=15;
textcolor(c15);
writeln('prova prima velocemente e poi lentamente');
writeln('assegna valori per pause come consigliato ');
repeat write('p1 scrivi 1000....oppure 2000 ');readln(p1);until p1<3000;
repeat write('p2 scrivi 100.....oppure 1000 ');readln(p2);until p2<1500;
repeat write('p3 scrivi 100.....oppure 1000 ');readln(p3);until p3<1500;
inizio;grafica;spiega;scelta;closegraph;
end.

indice