acido1

ritorna ../biolox.htm

program acido; (* acidi nucleici *)
(* automatico *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15:integer;
d1,b2,b3,r1,r3:string;

procedure grafica;
var t,s:integer;
stringa:string;
begin
t:=0;
s:=0;
stringa:=('bgi');
initgraph(s,t,stringa);
end;

procedure attende;
begin
delay(2000);
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 testox(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;


procedure at;
begin
delay(1000);
end;


procedure pro1;
begin
rectangle(10,10,600,150);
testo(20,20,'costituzione acidi nucleici');
setcolor(c2);testo(20,50,'acido fosforico H3PO4 ');
setcolor(c4);testo(20,70,'pentoso:Ribosio o Desossiribosio');
setcolor(c3);testo(20,90,'basi azotate :purine (doppio anello),pirimidine(anello unico)');
testo(40,110,'purine :Adenina A, Guanina G');
testo(40,130,'pirimidine :Citosina C, Timina T, Uracile U');
pausa1;
testo(20,160,'struttura del nucleotide e polinucleotide');
setcolor(c2);
rectangle(10,170,600,390);
testo(40,180,'nucleoside = pentoso + base azotata');
setcolor(c3);
testo(40,190,'nucleotide = nucleoside + acido fosforico');
testo(50,200,'adeninfosfato = pentoso + adenina + acido fosforico');
testo(50,220,'guanosinfosfato = pentoso + guanina + acido fosforico');
testo(50,240,'citosinfosfato = pentoso + citosina+ acido fosforico');
testo(50,260,'timidinfosfato = pentoso + timina + acido fosforico');
testo(50,280,'uracilfosfato = pentoso + uracile + acido fosforico');
setcolor(c4);
testo(40,300,'polinucleotide = nucleotide+nucleotide+nucleotide...');
testo(40,320,'ogni nucleotide si lega ad altri due nucleotidi ');
testo(40,340,'mediante acido fosforico');
setcolor(c15);
testo(50,430,'F = acido fosforico, P = pentoso , ACGT = basi azotate');
testo(40,360,'F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P');
testo(40,370,' A G C T A A C C T T A');
pausa1;cleardevice;
testo(40,50,'ACIDO DESOSSIRIBONUCLEICO DNA o ADN ');
setcolor(c2);testo(40,70,'composizione chimica');
testo(60,90,'acido fosforico');
testo(60,110,'pentoso = Desossiribosio');
testo(60,130,'basi puriniche = adenina,guanina A,G ');
testo(60,150,'basi pirimidiniche = citosina,timina C,T ');
rectangle(20,60,600,160);
setcolor(c4);pausa1;
testo(40,180,'struttura:doppia catena elicoidale');
testo(60,200,'ogni purina si lega con legame a idrogeno a una pirimidina');
testo(60,220,'A - T (doppio legame) , G - C (triplo legame) ');
setcolor(c3);
testo(40,260,'F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P');
testo(40,270,' A G C T A A C C T T A');
setcolor(c2);
testo(40,280,' T C G A T T G G A A T');
testo(40,290,'F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P');
rectangle(20,170,600,320);
testo(50,430,'F = acido fosforico, P = pentoso ,ACGT = basi azotate');
pausa1;
rectangle(20,320,600,360);
testo(40,330,'localizzato nei cromosomi (nel nucleo)');
testo(40,350,'funzione :depositario informazioni genetiche ereditarie');
pausa1;cleardevice;
testo(40,50,'ACIDO RIBONUCLEICO RNA o ARN ');
setcolor(c2);testo(40,70,'composizione chimica');
testo(60,90,'acido fosforico');
testo(60,110,'pentoso = ribosio');
testo(60,130,'basi puriniche = adenina,guanina A,G ');
testo(60,150,'basi pirimidiniche = citosina,uracile C,U ');
rectangle(20,60,600,160);
setcolor(c4);
testo(40,180,'struttura:catena semplice,con forma variabile');
setcolor(c3);
testo(40,200,'F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P');
testo(40,210,' A G C T A A C C T T A');
rectangle(20,170,600,220);
pausa1;
setcolor(c4);
rectangle(20,240,600,310);
testo(40,250,'localizzato nel nucleolo,nucleo,ribosomi,citoplasma');
testo(40,260,'RNA nucleololare n-RNA');
testo(40,270,'RNA ribosomiale r-RNA partecipa a proteinosintesi');
testo(40,290,'RNA messaggero m-RNA partecipa a proteinosintesi');
testo(40,300,'RNA solubile t-RNA partecipa a proteinosintesi');
pausa1;
setcolor(c2);testo(40,320,'funzione variabile');
testo(50,330,'m-RNA trasporta nei ribosomi informazione da tradurre');
testo(50,340,'t-RNA trasporta nei ribosomi amminocidi per proteinosintesi');
rectangle(20,320,600,350);
pausa1;cleardevice;
testo(50,20,'DUPLICAZIONE del DNA cromosomico');
testo(50,30,'apertura della doppia catena di DNA ');
setcolor(c2);testo(50,100,d1);
setcolor(c2);testo(50,110,b2);
setcolor(c2);testo(50,120,b3);setcolor(c2);testo(50,130,d1);
pausa1;
setcolor(0);
testo(50,120,b3);setcolor(0);testo(50,130,d1);
setcolor(c2);
setcolor(c2);testo(50,180,b3);setcolor(c2);testo(50,190,d1);
pausa1;
testo(50,40,'sintesi di catene complementari,con intervento di ');
testo(50,50,'nucleotidi e DNA-polimerasi');
setcolor(c4);testo(50,120,b3);setcolor(c4);testo(50,130,d1);
setcolor(c4);testo(50,170,b2);setcolor(c4);testo(50,160,d1);
pausa1;
testo(50,250,'si nota la duplicazione tipo semiconservativo');
testo(50,260,'ogni nuova catena di DNA conserva una meta della catena');
testo(50,270,'originaria e aggiunge una nuova catena complementare');
testo(50,300,'tale meccanismo permette di trasmettere alle cellule figlie');
testo(50,310,'lo stesso corredo di informazioni registrato sulla catena');
testo(50,320,'della cellula originaria');
pausa1;cleardevice;
testo(50,50,'TRASCRIZIONE da DNA a m-RNA');
testo(50,60,'per trasmettere ai ribosomi la informazione per la sintesi');
testo(50,70,'delle proteine dalle quali dipendono le caratteristiche');
testo(50,80,'delle cellule');
setcolor(c2);
rectangle(20,190,400,290);
testo(50,100,'apertura parziale del DNA da trascrivere');
setcolor(c3);testo(50,200,d1);setcolor(c3);testo(50,210,b2);
setcolor(c3);testo(50,220,b3);setcolor(c3);testo(50,230,d1);
pausa1;
setcolor(0);testo(50,220,b3);setcolor(0);testo(50,230,d1);
setcolor(c3);testo(50,250,b3);setcolor(c3);testo(50,260,d1);
pausa1;
setcolor(c4);
testo(50,110,'sintesi catena complementare di DNA codificante');
setcolor(c4);testo(50,220,r1);setcolor(c4);testo(50,230,d1);
pausa1;
testo(50,120,'distacco della catena di m-RNA e passaggio nel citoplasma');
setcolor(0);testo(50,220,r1);setcolor(0);testo(50,230,d1);
setcolor(c4);testo(50,390,r1);setcolor(c4);testo(50,400,d1);
testo(20,350,'citoplasma ');
pausa1;
testo(50,130,'chiusura catena DNA');
setcolor(0);testo(50,250,b3);setcolor(0);testo(50,260,d1);
setcolor(c3);testo(50,220,b3);setcolor(c3);testo(50,230,d1);
pausa1;
end;

procedure inizio;
begin
setcolor(c2);
settextstyle(4,0,4);
testox(20,50,'composizione ');
testox(20,80,'struttura');
testox(20,120,'localizzazione');
testox(20,150,'funzioni');
testox(20,180,'degli acidi nucleici DNA,RNA');
setcolor(c4); settextstyle(3,0,4);
testox(20,220,'DUPLICAZIONE di DNA');
testox(20,250,'TRASCRIZIONE da DNA a m-RNA');
testox(20,280,'per la traduzione e proteinosintesi');
testox(20,310,'cfr.CODONE1 ');
pausa1;
cleardevice;
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;
d1:='F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P-F-P';
b2:=' A A C G G A T A C';
b3:=' T T G C C T A T G';
r1:=' U U G C C U A U C';
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
grafica;inizio;
scelta;closegraph;
end.