enzima mutato 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 enzima4;       (* 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);
pro1;pro2;pro3;pro4;pro5;pro6;pro7;pro8;pro9;
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.

indice