acidi nucleici
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=QIjcx2GKpU8
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:=('c:\scheda\'); 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.