anti1

ritorna ../biolox.htm

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.