mutazione enzima e fenilchetonuria
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
program enzima3; (* mutazione enzimatica *) uses crt,graph; var c2,c3,c4,c6,c7,c15:word; tempo: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(c15); 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 testo2(x,y:integer;st:string); begin setcolor(c2); outtextxy(x,y,st); end; procedure testo3(x,y:integer;st:string); begin setcolor(c3); outtextxy(x,y,st); end; procedure testo4(x,y:integer;st:string); begin setcolor(c4); outtextxy(x,y,st); end; procedure testo6(x,y:integer;st:string); begin setcolor(c6); outtextxy(x,y,st); end; procedure testo7(x,y:integer;st:string); begin setcolor(c7); outtextxy(x,y,st); end; procedure testo15(x,y:integer;st:string); begin setcolor(c15); outtextxy(x,y,st); end; procedure at; begin delay(tempo); end; procedure come2; begin testo15(20,300,'la fenilalanina viene trasformata in tirosina'); testo(20,310,'la tirosina viene trasformata in tiroxina e melanina'); testo(20,320,'la tiroxina assicura un metabolismo normale'); testo(20,330,'la melanina presiede alla pigmentazione normale'); end; procedure come3; begin testo15(20,310,'se muta gene1 che codifica per enzima1 '); testo(20,320,'la fenilalanina viene trasformata in acido fenilpiruvico'); testo(20,330,'che interferisce con metabolismo cerebrale'); testo(20,340,'provocando fenilchetonuria e idiozia fenilpiruvica'); end; procedure come4; begin testo15(20,300,'se muta gene2 che codifica per enzima2 '); testo(20,320,'la tiroxina non viene sintetizzata e compare una'); testo(20,340,'disfunzione metabolica,nanismo,idiozia da ipotiroidismo'); end; procedure come5; begin testo15(20,300,'se muta gene3 che codifica per enzima3'); testo(20,310,'non viene sintetizzata melanina:segue albinismo'); end; procedure come6; begin testo15(20,300,'se muta gene2 che codifica per enzima2'); testo(20,310,'e muta gene3 che codifica per enzima3'); testo(20,320,'non viene sintetizzata tiroxina e melanina'); testo(20,330,'seguono idiozia,nanismo, albinismo'); end; procedure come7; begin testo15(20,300,'se muta gene1 che codifica per enzima1'); testo(20,310,'e muta gene2 che codifica per enzima2'); testo(20,320,'e muta gene3 che codifica per enzima3'); testo(20,330,'non viene sintetizzata tiroxina e melanina'); testo(20,340,'seguono idiozia,nanismo, albinismo'); testo(20,350,'e compare idiozia fenilpiruvica '); end; procedure come8; begin testo15(20,300,'se muta gene1 che codifica per enzima1'); testo(20,310,'e manca tirosina nella dieta,seguono disfunzioni come:'); testo(20,320,'idiozia fenilpiruvica,nanismo,albinismo'); end; procedure come9; begin testo15(20,300,'se muta gene1 che codifica per enzima1'); testo(20,310,'si deve ridurre fenilalanina nella dieta '); testo(20,320,'e aumentare apporto di tirosina nella dieta'); end; procedure enzimi; begin setcolor(c3); testo(200,370,'fenilalanina + enzima1 --> tirosina'); testo(200,380,'tirosina + enzima2 --> tiroxina'); testo(200,390,'tirosina + enzima3 --> melanina'); setcolor(c15); end; procedure pro2; begin testo(20,400,'funzionamento normale'); testo(20,420,'gene ---> enzima ---> funzione '); testo(150,20,'gene1--> enzima1'); testo(300,20,'gene2--> enzima2');testo(450,20,'gene3--> enzima3'); enzimi; setcolor(c15); testo(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo(150,150,'enzima1 -->'); testo(250,150,'tirosina ');at; testo(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo(450,50,'funzione normale');at; line(270,160,350,200); testo(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo(450,250,' pigmentazione normale'); come2; pausa1;cleardevice; end; procedure pro3; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene1 '); testo2(20,420,'gene mutato ---> enzima mutato ---> funzione mutata'); testo2(150,20,'gene1--> enzima1'); testo15(300,20,'gene2--> enzima2');testo(450,20,'gene3--> enzima3'); testo(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo2(150,150,'enzima1 -->'); testo15(250,150,'tirosina ');at; testo(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo(450,50,'funzione normale');at; line(270,160,350,200); testo(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo(450,250,' pigmentazione normale');at; testo2(20,250,'acido fenilpiruvico'); line(70,150,70,250);line(145,270,145,290); testo4(150,270,'perturbazioni metaboliche,cerebrali'); testo4(150,280,'chetonuria,urine scure'); come3;pausa1;cleardevice; end; procedure pro4; begin enzimi; testo3(20,400,'funzionamento anormale per mutazione gene2 '); testo2(20,420,'gene mutato ---> enzima mutato ---> funzione mutata'); testo15(150,20,'gene1--> enzima1'); testo2(300,20,'gene2--> enzima2'); testo15(450,20,'gene3--> enzima3'); testo(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo(150,150,'enzima1 -->'); testo(250,150,'tirosina ');at; testo2(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo4(450,50,'nanismo,idiozia');at; setcolor(c15); line(270,160,350,200); testo15(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo(450,250,' pigmentazione normale');at; come4;pausa1;cleardevice; end; procedure pro5; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene3 '); testo2(20,420,'gene mutato --> enzima mutato --> funzione mutata'); testo15(150,20,'gene1--> enzima1'); testo(300,20,'gene2--> enzima2'); testo2(450,20,'gene3--> enzima3'); testo15(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo(150,150,'enzima1 -->'); testo(250,150,'tirosina ');at; testo(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo(450,50,'funzione normale');at; setcolor(c15); line(270,160,350,200); testo2(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo4(450,250,' albinismo ');at; come5;pausa1;cleardevice; end; procedure pro6; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene2,gene3 '); testo(20,420,'geni mutati --> enzini mutati --> funzioni mutate'); testo15(150,20,'gene1--> enzima1'); testo2(300,20,'gene2--> enzima2'); testo2(450,20,'gene3--> enzima3'); testo15(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo(150,150,'enzima1 -->'); testo(250,150,'tirosina ');at; testo2(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo4(450,50,'nanismo,idiozia');at; setcolor(c2);line(270,160,350,200); testo2(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo4(450,250,' albinismo ');at; come6;pausa1;cleardevice; end; procedure pro7; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene1,gene2,gene3 '); testo(20,420,'geni mutati --> enzini mutati --> funzioni mutate'); testo(150,20,'gene1--> enzima1'); testo(300,20,'gene2--> enzima2'); testo(450,20,'gene3--> enzima3'); setcolor(c15); testo(150,60,'dieta'); line(160,70,70,150);line(160,60,250,150); testo(20,150,'fenilalanina + '); testo2(150,150,'enzima1 -->'); testo15(250,150,'tirosina ');at; testo2(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo4(450,50,'nanismo,idiozia');at; setcolor(c2);line(270,160,350,200); testo(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo4(450,250,' albinismo ');at; testo2(20,250,'acido fenilpiruvico'); line(70,150,70,250);line(145,270,145,300); testo4(150,270,'perturbazioni metaboliche,cerebrali'); testo4(150,280,'chetonuria,urine scure'); testo4(150,290,'idiozia fenilpiruvica'); come7;pausa1;cleardevice; end; procedure pro8; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene1 '); testo2(20,420,'carenza di tirosina nella dieta'); testo2(150,20,'gene1--> enzima1'); testo15(300,20,'gene2--> enzima2'); testo15(450,20,'gene3--> enzima3'); testo(150,60,'dieta'); line(160,70,70,150); setcolor(c2);line(160,60,250,150); setcolor(c15);testo(20,150,'fenilalanina + '); testo2(150,150,'enzima1 -->'); testo(250,150,'tirosina ');at; testo15(350,150,'+ enzima2 --> '); testo2(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo4(450,50,'nanismo,idiozia');at; setcolor(c2);line(270,160,350,200); testo15(350,200,'+ enzima3 --> '); testo2(450,200,' melanina ');at; line(470,210,470,250); testo4(450,250,' albinismo ');at; testo2(20,250,'acido fenilpiruvico'); line(70,150,70,250);line(145,270,145,300); testo4(150,270,'perturbazioni metaboliche,cerebrali'); testo4(150,280,'chetonuria,urine scure'); testo4(150,290,'idiozia fenilpiruvica'); come8;pausa1; cleardevice; end; procedure pro9; begin enzimi; testo2(20,400,'funzionamento anormale per mutazione gene1 '); testo15(20,420,'arricchire dieta con tirosina'); testo15(20,430,'ridurre al minimo fenilalanina nella dieta'); setcolor(c2);line(160,70,70,150); testo2(150,20,'gene1--> enzima1'); testo15(300,20,'gene2--> enzima2'); testo(450,20,'gene3--> enzima3'); testo(150,60,'dieta'); line(160,60,250,150); testo2(20,150,'fenilalanina + '); testo2(150,150,'enzima1 -->'); testo15(250,150,'tirosina ');at; testo(350,150,'+ enzima2 --> '); testo(450,150,' ormone tiroxina ');at; line(470,60,470,140); testo(450,50,'metabolismo normale');at; line(270,160,350,200); testo(350,200,'+ enzima3 --> '); testo(450,200,' melanina ');at; line(470,210,470,250); testo(450,250,' pigmentazione normale ');at; come9;pausa1; cleardevice; end; procedure pro1; begin testo2(20,20,'1..un carattere si manifesta in funzione di una sostanza'); testo(20,30,'...o di una reazione catalizzata da un enzima'); testo3(20,50,'2..ogni enzima comprende sempre una proteina'); testo2(20,60,'3..le proteine sono codificate ned DNA e tradotte nei Ribosomi'); setcolor(c3); testo(20,70,'4..in ogni enzima risultano importanti per la funzione'); testo(20,80,'...alcuni siti particolari:se questi vengono modificati'); testo(20,90,'...anche la funzione enzimatica puo essere modificata'); testo(20,100,'...in funzione del tipo di mutazione indotta'); pausa1; testo15(20,170,'gene normale'); testo(150,170,'enzima normale'); testo(400,170,'funzione normale'); testo3(20,200,'gene mutato'); testo(150,200,'enzima modificato'); testo(400,200,'funzione :'); testo(150,220,'in sito non importante'); testo(410,220,'immutata'); testo(150,230,'rende sito piu efficiente'); testo(410,230,'migliorata'); testo(150,240,'rende sito meno efficiente'); testo(410,240,'peggiorata'); pausa1;cleardevice; testo(20,50,'esempio utilizzazione amminoacidi tirosina,fenilalanina'); testo3(20,100,'la fenilalanina viene trasformata in tirosina'); testo3(20,120,'la tirosina viene trasformata in tiroxina e melanina'); testo3(20,140,'la tiroxina assicura un metabolismo normale'); testo3(20,160,'la melanina presiede alla pigmentazione normale'); pausa1; testo2(20,200,'se muta gene1 che codifica per enzima1 '); testo2(20,220,'la fenilalanina viene trasformata in acido fenilpiruvico'); testo(20,240,'che interferisce con metabolismo cerebrale'); testo(20,260,'provocando fenilchetonuria e idiozia fenilpiruvica'); testo15(20,280,'si cerca di prevenire non somministrando fenilalanina'); pausa1; testo3(20,300,'se muta gene2 che codifica per enzima2 '); testo(20,320,'la tiroxina non viene sintetizzata e compare una'); testo(20,340,'disfunzione metabolica,nanismo,idiozia da ipotiroidismo'); pausa1; testo2(20,360,'se muta gene3 che codifica per enzima3'); testo(20,380,'non viene sintetizzata melanina:segue albinismo'); pausa1; testo3(20,400,'se muta gene1 che codifica per enzima1'); testo(20,410,'e manca tirosina nella dieta,seguono disfunzioni come:'); testo(20,420,'idiozia fenilpiruvica,nanismo,albinismo'); pausa1; testo2(20,20,'segue esemplificazione nelle diverse situazioni prospettate'); pausa1;cleardevice; end; procedure scelta; var sce:integer; begin cleardevice; settextstyle(0,0,1); setcolor(c3); testo(20,50,'selezionare opzione da visualizzare :'); testo(20,70,'1...spiegazione e introduzione'); testo(20,80,'2...situazione normale'); testo(20,90,'3...gene1 mutato ----> idiozia fenilpiruvica'); testo(20,100,'4...gene2 mutato ----> idiozia,nanismo tiroideo'); testo(20,110,'5...gene3 mutato ----> albinismo'); testo(20,120,'6...gene2,gene3 mutati ----------> idiozia,nanismo,albinismo'); testo(20,130,'7...gene1,gene2,gene3 mutati-----> idiozia,nanismo,albinismo,fenilch.'); testo(20,140,'8...gene1 mutato,manca tirosina--> idiozia,nanismo,albinismo'); testo(20,150,'9...gene1 mutato,eliminare fenilalanina ---> funzioni normali'); testo2(20,160,'10..visione in sequenza di tutte le situazioni'); testo3(20,300,'scelta ? ');gotoxy(50,5);readln(sce); cleardevice; case sce of 1:pro1;2:pro2;3:pro3;4:pro4;5:pro5;6:pro6;7:Pro7;8:pro8;9:pro9; 10:begin pro1;pro2;pro3;pro4;pro5;pro6;pro7;pro8;pro9;end; end; testo(20,60,'scrivi 1 per rivedere,2 per finire'); gotoxy(5,5);readln(sce); if sce=1 then scelta; end; procedure inizio; begin settextstyle(1,0,2); testo2(20,50,'relazione tra Gene , Enzima, Funzione '); testo3(20,100,'gene normale ---> enzima normale --> funzione normale'); testo2(20,150,'gene mutato ---> enzima mutato --> funzione mutata'); pausa1; end; begin clrscr; writeln('scrivi valore per pausa nella esecuzione'); writeln('numero intero da 100 (veloce ) a 2000 (lento)'); repeat write('valore= ? ');readln(tempo); until (tempo>10) and (tempo<2100); c2:=2;c3:=3;c4:=4;c6:=6;c15:=15;c7:=7; textcolor(c15); grafica;inizio;cleardevice;scelta;closegraph; end.