stati fisici materia
esci chimicaturbo.htm
program stati;
(* didattico per mostrare stati
fisici materia *)
uses crt,graph;
var tx,a:integer;
procedure grafica;
var tp,sc:integer;stringa:string;
begin
tp:=0;sc:=0;stringa:='c:\scheda\';
initgraph(sc,tp,stringa);
end;
procedure pausa;
begin
write('premi ENTER ');readln;clrscr;
end;
procedure cancella;
begin cleardevice;end;
procedure pulire;
begin clrscr;end;
procedure testo(x,y:integer;sx:string);
begin outtextxy(x,y,sx);end;
procedure frase;
begin setcolor(14); outtextxy(500,400,'premi enter');readln;end;
procedure testo1;
begin
setcolor(2);
outtextxy(50,200,'la attrazione tra le particelle della
materia');
outtextxy(50,210,'dipende dalla loro natura,ionica,polare,non
polare');
outtextxy(50,220,'e si manifesta come forza di attrazione
elettrostatica');
outtextxy(50,230,'tra IONI,DIPOLI,DIPOLI momentanei e
indotti,LEGAME a H');
setcolor(3);
outtextxy(50,250,'la energia cinetica fa vibrare continuamente le
particelle');
outtextxy(50,260,'favorendo la loro separazione:');
outtextxy(50,270,'risulta proporzionale alla temperatura');
frase;
setcolor(14);
outtextxy(50,300,'se la attrazione prevale sulla energia
cinetica');
outtextxy(50,310,'la materia si presenta allo stato solido');
outtextxy(50,330,'se la attrazione equivale alla energia
cinetica');
outtextxy(50,340,'la materia si presenta allo stato liquido');
outtextxy(50,360,'se la energia cinetica prevale sulla
attrazione');
outtextxy(50,370,'la materia si presenta allo stato aeriforme');
frase;
end;
procedure disegna;
begin
circle(200,100,50);circle(300,100,50);
testo(200,160,'particelle unite');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setlinestyle(1,1,2);line(100,100,150,100);line(350,100,400,100);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;testo1;
end;
procedure solido;
begin
circle(200,100,50);circle(300,100,50);
testo(150,160,'particelle unite,in vibrazione');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
outtextxy(50,300,'attrazione prevale su energia
cinetica:SOLIDO');
outtextxy(50,320,'forma e volume proprio');
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setlinestyle(1,1,2);line(100,100,150,100);line(350,100,400,100);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;end;
procedure liquido;
begin
outtextxy(50,300,'attrazione equivale a energia
cinetica:LIQUIDO');
outtextxy(50,320,'volume proprio,forma del recipiente');
circle(200,100,45);circle(300,100,45);
testo(150,160,'particelle mobili,scorrevoli');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);line(200,100,300,100);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setlinestyle(1,1,2);line(100,100,150,100);line(350,100,400,100);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;end;
procedure gas;
begin
circle(200,100,30);circle(300,100,30);
testo(150,160,'particelle separate');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);line(200,100,300,100);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setfillstyle(2,3);bar(100,95,170,105);bar(330,95,390,105);
testo(50,180,'energia cinetica che tende a separare le
particelle');
outtextxy(50,300,'energia cinetica prevale su
attrazione:AERIFORME');
outtextxy(50,320,'forma e volume in funzione del recipiente');
frase;end;
procedure fusione;
begin
outtextxy(50,400,'processo di fusione');
outtextxy(50,410,'riscaldando il solido si aumenta la energia
cinetica');
outtextxy(50,420,'che riesce ad equilibrare o superare la
attrazione');
outtextxy(50,430,'il solido cambia di stato diventando liquido');
circle(200,100,50);circle(300,100,50);
testo(200,160,'particelle unite');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setlinestyle(1,1,2);line(100,100,150,100);line(350,100,400,100);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;
setcolor(3);setfillstyle(2,3);bar(100,95,150,105);bar(350,95,400,105);
setcolor(0);circle(200,100,50);circle(300,100,50);
testo(200,160,'particelle unite');
setcolor(7);circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
frase;
end;
procedure solidi;
begin
outtextxy(50,400,'processo di solidificazione');
outtextxy(50,410,'raffreddando il liquido si diminuisce la
energia cinetica');
outtextxy(50,420,'che diventa minore della attrazione tra
particelle');
outtextxy(50,430,'il liquido cambia di stato diventando solido');
circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setfillstyle(2,3);bar(100,95,150,105);bar(350,95,400,105);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;
setcolor(0);setfillstyle(2,0);bar(100,95,150,105);bar(350,95,400,105);
circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
setcolor(3);setlinestyle(1,1,2);line(100,100,150,100);line(350,100,400,100);
setcolor(7);circle(200,100,50);circle(300,100,50);
testo(200,160,'particelle unite,vibranti');
frase;
end;
procedure vapore;
begin
outtextxy(50,400,'processo di vaporizzazione');
outtextxy(50,410,'riscaldando il liquido si aumenta la energia
cinetica');
outtextxy(50,420,'che riesce a superare la attrazione');
outtextxy(50,430,'il liquido cambia di stato diventando
aeriforme');
circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setfillstyle(2,3);bar(100,95,150,105);bar(350,95,400,105);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;
setcolor(3);setfillstyle(2,3);bar(100,90,170,110);bar(330,90,400,110);
setcolor(0);circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
setcolor(7);circle(200,100,30);circle(300,100,30);
testo(200,160,'particelle mobili liberamente');
frase;
end;
procedure condensa;
begin
outtextxy(50,400,'processo di condensazione');
outtextxy(50,410,'raffreddando il vapore si diminuisce la energia
cinetica');
outtextxy(50,420,'che diventa simile o minore alla attrazione');
outtextxy(50,430,'il vapore cambia di stato diventando liquido');
circle(200,100,30);circle(300,100,30);
testo(200,160,'particelle mobili liberamente');
testo(200,80,'A');testo(300,80,'B');
setcolor(2);setfillstyle(2,2);bar(200,95,300,105);
testo(150,30,'attrazione tra particelle A--B');
setcolor(3);setfillstyle(2,3);bar(100,90,170,110);bar(330,90,400,110);
testo(50,180,'energia cinetica che tende a separare le
particelle');
frase;
setcolor(0);setfillstyle(2,0);bar(100,90,170,110);bar(330,90,400,110);
circle(200,100,30);circle(300,100,30);
testo(200,160,'particelle mobili liberamente');
setcolor(3);setfillstyle(2,3);bar(100,95,170,105);bar(330,95,400,105);
setcolor(7);circle(200,100,45);circle(300,100,45);
testo(200,160,'particelle mobili,scorrevoli');
frase;
end;
begin
pulire;
writeln('Considerazioni su stati fisici della materia');
writeln;
writeln('1-lo stato SOLIDO presenta forma e volume proprio');
writeln('2-lo stato LIQUIDO mantiene volume proprio ma assume
forma contenitore');
writeln('3-lo stato AERIFORME assume volume e forma del
contenitore');
writeln;
writeln('IPOTESI esplicativa:');
writeln('1-le particelle della materia possono attirarsi in
funzione');
writeln(' di forze interparticellari che variano con la natura
delle');
writeln(' particelle.');
writeln('2-le forze principali sono quelle di tipo
elettrostatico:');
writeln(' tra IONI,tra DIPOLI,forze deboli di VAN der
WAALS,LEGAME a H');
writeln;
writeln('3-le particelle sono dotate di energia cinetica che
varia');
writeln(' con la temperatura ');
writeln;
writeln('4-in condizioni ambientali normali (25 gradi C)');
writeln(' si possono verificare in generale tre situazioni');
writeln(' 1-ATTRAZIONE >> ENERGIA CINETICA ---> SOLIDO
');
writeln(' 2-ATTRAZIONE == ENERGIA CINETICA ---> LIQUIDO');
writeln(' 3-ATTRAZIONE << ENERGIA CINETICA --->
AERIFORME');
writeln;pausa;
writeln('I PASSAGGI di STATO possono essere provocati variando
la');
writeln('ENERGIA CINETICA delle particelle ,mediante variazione
di temperatura');
writeln('1-FUSIONE.........si aumenta energia fino a superare la
attrazione');
writeln('2-VAPORIZZAZIONE..si aumenta energia fino a superare la
attrazione');
writeln('3-SUBLIMAZIONE....si aumenta energia fino a superare la
attrazione');
writeln('4-SOLIDIFICAZIONE.si riduce energia a valore inferiore
ad attrazione');
writeln('5-CONDENSAZIONE...si riduce energia a valore inferiore
ad attrazione');
writeln('6-BRINAMENTO......si riduce energia a valore inferiore
ad attrazione');
pausa;pulire;grafica;
disegna;cancella;solido;cancella;liquido;cancella;gas;
cancella;fusione;cancella;solidi;cancella;vapore;
cancella;condensa;
closegraph;restorecrtmode;textmode(2);
end.