osservazione su antibiotici

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=_Pk4NNEBgM4

program anti1;
(* resistenza agli antibiotici *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15,x,y,a:integer;
    s:string;

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(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 cancella;
begin
setfillstyle(1,0);
bar(20,310,600,430);
setcolor(c15);
end;


procedure pro1(x,y:integer);
begin
for a:=1 to 3 do
begin
 circle(x,y,60);
 x:=x+150;
 end;
 pausa1;
 end;

 procedure pro2;
begin
 setfillstyle(1,2);
 fillellipse(100,100,20,20);delay(2000);
 fillellipse(250,100,30,30);delay(2000);
  fillellipse(400,100,50,50);delay(2000);
 end;


  procedure pro3;
begin
 setfillstyle(1,2);
 fillellipse(100,100,50,50);delay(2000);
 fillellipse(250,100,20,20);delay(2000);
  fillellipse(400,100,10,10);delay(2000);
 end;

 procedure testo1(s:string);
 begin
 testo(50,200,'Penicillina');
 testo(200,200,'Adriamicina');
 testo(350,200,'Puromicina');
 testo(50,250,'colonie batteriche trattate con 3 diversi antibiotici');
 testo(200,270,'batterio tipo '+s);
 pausa1;
 testo(50,300,'antibiotico posto al centro della colonia');
 testo(50,320,'diffonde a raggiera e compare un alone di inibizione');
 testo(50,340,'che segnala la morte dei batteri incontrati');pausa1;
 end;

 procedure testo2;
 begin
 setcolor(c2);
 testo(50,360,'si deduce che il batterio A risulta sensibile ai tre');
 testo(50,380,'diversi antibiotici,in ordine crescente:');
 testo(50,400,'Penicillina,Adriamicina,Puromicina');pausa1;
 end;

 procedure testo3;
 begin
 setcolor(c2);
 testo(50,360,'si deduce che il batterio B risulta sensibile ai tre');
 testo(50,380,'diversi antibiotici,in ordine crescente:');
 testo(50,400,'Puromicina,Adriamicina,Penicillina');pausa1;
 end;

procedure scelta;
var sce:integer;
begin
cleardevice;
pro1(100,100);testo1('A');
pro2;testo2;cleardevice;
pro1(100,100);testo1('B');
pro3;testo3;pausa1;


setcolor(c15);settextstyle(0,0,1);
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;
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
textcolor(c3);
writeln('esempio di ANTIBIOGRAMMA ');
writeln('premi INVIO');readln;clrscr;
grafica;
scelta;closegraph;
end.

indice