enzima mutante , malaria e anemia falciforme

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 enzima1;       (* mutazione enzimatica *)
uses crt,graph;        (* anemia falciforme *)

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 pro2;
begin
testo3(100,100,'gene1 normale');at;
testo(100,130,'emoglobina normale');at;
testo(100,160,'eritrociti normali');at;
testo(100,180,'respirazione normale');
circle(150,230,30);
testo(100,290,'individuo normale');at;
testo(100,320,'favorito se manca malaria');
pausa1;
testo2(350,100,'gene1 mutato');at;
testo(350,130,'emoglobina mutata');at;
testo(350,160,'eritrociti falciformi');at;
testo(350,180,'difficile la respirazione');
ellipse(400,230,0,360,40,10);
testo(350,290,'individuo ammalato');at;
testo(350,320,'sfavorito se manca malaria');
pausa1;cleardevice;
end;


procedure pro3;
begin
testo3(100,100,'gene1 normale');
testo(100,130,'emoglobina normale');
testo(100,160,'eritrociti normali');
testo(100,180,'respirazione normale');
circle(150,230,30);at;
testo4(200,230,'plasmodio malaria ***');
testo4(140,220,'***');
testo4(140,240,'***');at;
testo(100,300,'ammalato di malaria');
testo3(100,290,'individuo normale');at;
testo4(100,320,'sfavorito se presente  malaria');
testo15(20,360,'il plasmodio della malaria si riproduce bene');
testo(20,370,'negli eritrociti normali,mentre stenta in quelli falciformi');
pausa1;
testo2(350,100,'gene1 mutato');
testo(350,130,'emoglobina mutata');
testo(350,160,'eritrociti falciformi');
testo(350,180,'difficile la respirazione');
ellipse(450,230,0,360,40,10);at;
testo(350,290,'individuo ammalato');
testo3(350,300,'non si ammala di malaria');at;
testo3(350,320,'favorito se presente malaria');
pausa1;cleardevice;
end;


procedure pro1;
begin
testo15(20,50,'se la emoglobina risulta normale');
testo(20,70,'gli eritrociti hanno forma discoidale normale');
testo(20,90,'e trasportano ossigeno in modo normale');
circle(500,60,30);
pausa1;
testo2(20,120,'se la emoglobina subisce mutazione');
testo(20,140,'anche gli eritrociti assumono una forma anomala');
testo(20,160,'contraendosi come piccole falci:falciformi');
testo(20,180,'riducendo il potere di trasportare ossigeno');
ellipse(500,160,0,360,40,10);
pausa1;
testo15(20,220,'le persone con eritrociti normali sono favorite');
testo(20,240,'per quanto riguarda la respirazione,nei confronti');
testo(20,260,'delle persone con eritrociti falciformi');
pausa1;
testo2(20,300,'tuttavia,se risulta presente il plasmodio malarico');
testo(20,320,'che si riproduce meglio negli eritrociti normali');
testo(20,340,'piuttosto che in quelli falciformi');
testo(20,360,'le persone normali si ammalano piu facilmente di malaria');
testo(20,380,'rispetto a quelle con il difetto falciforme:queste');
testo(20,400,'risultano quindi favorite rispetto alle normali');
testo(20,420,'se ambiente con plasmodio malarico');
ellipse(500,420,0,360,40,10);
setcolor(c15);circle(500,320,30);
testo4(490,320,'***');
pausa1;cleardevice;
end;


procedure scelta;
var sce:integer;
begin
cleardevice;
settextstyle(0,0,1);
setcolor(c3);
pro1;pro2;pro3;
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(4,0,4);
testo2(20,40,'esempio di mutazione');
testo(20,80,'del gene per la emoglobina');
testo(20,120,'e comparsa di anemia falciforme');
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