vba8

formule per calcolo legge dei gas PV=nRT con VBA EXCEL PASCAL


VBA
Private Sub CommandButton1_Click()
'calcolo pressione da PV=grt/mv
Dim p, v, g, r, t, m As Double
r = 10

Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="

v = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)

p = g * r * t / (m * v)
Cells(10, 3) = "pressione="
Cells(10, 4) = p
End Sub

Private Sub CommandButton2_Click()
Cells(3, 3) = ""
Cells(4, 3) = ""
Cells(5, 3) = ""
Cells(6, 3) = ""
Cells(3, 4) = 1
Cells(4, 4) = 1
Cells(5, 4) = 1
Cells(6, 4) = 1
Cells(10, 3) = ""
Cells(10, 4) = ""
End Sub

Private Sub CommandButton3_Click()
Dim p, v, g, r, t, m As Double
r = 10

Cells(3, 3) = "pressione="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="

p = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)

v = g * r * t / (m * p)
Cells(10, 3) = "volume="
Cells(10, 4) = v
End Sub

Private Sub CommandButton4_Click()
Dim p, v, g, r, t, m As Double
r = 10

Cells(3, 3) = "volume="
Cells(4, 3) = "pressione="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "peso molecolare="

v = Cells(3, 4)
p = Cells(4, 4)
t = Cells(5, 4)
m = Cells(6, 4)

g = p * v * m / (r * t)
Cells(10, 3) = "grammi="
Cells(10, 4) = g

End Sub

Private Sub CommandButton5_Click()
Dim p, v, g, r, t, m As Double
r = 10

Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "pressione="
Cells(6, 3) = "peso molecolare="

v = Cells(3, 4)
g = Cells(4, 4)
p = Cells(5, 4)
m = Cells(6, 4)

t = p * v * m / (r * g)
Cells(10, 3) = "temperatura="
Cells(10, 4) = t
End Sub

Private Sub CommandButton6_Click()
Dim p, v, g, r, t, m As Double
r = 10

Cells(3, 3) = "volume="
Cells(4, 3) = "grammi="
Cells(5, 3) = "temperatura="
Cells(6, 3) = "pressione="

v = Cells(3, 4)
g = Cells(4, 4)
t = Cells(5, 4)
p = Cells(6, 4)

m = g * r * t / (p * v)
Cells(10, 3) = "peso molecolare="
Cells(10, 4) = m
End Sub


EXCEL inserire valori richiesti in celle e scrivere formule nelle celle B,D,F,H,J

A ......................B....................................C.......................D.................................E.........................F..................................G..................H....................................I...........................J...........................

 


PASCAL

program pro33;
uses crt;
const r=0.082;
var p,v,t,m,g,risposta:real ;


procedure pressione;
var volume,massa,temperatura,pesom:real;
begin
clrscr;
write('volume=');readln(volume);
write('massa =');readln(massa);
write('temperatura=');readln(temperatura);
write('peso molecolare=');readln(pesom);
risposta:=massa*r*temperatura/(pesom*volume);
writeln('pressione=',risposta:6:2);
end;

procedure volume;
var pressione,massa,temperatura,pesom:real;
begin
clrscr;
write('pressione=');readln(pressione);
write('massa =');readln(massa);
write('temperatura=');readln(temperatura);
write('peso molecolare=');readln(pesom);
risposta:=massa*r*temperatura/(pesom*pressione);
writeln('volume=',risposta:6:2);
end;

procedure massa;
var volume,pressione,temperatura,pesom:real;
begin
clrscr;
write('volume=');readln(volume);
write('pressione =');readln(pressione);
write('temperatura=');readln(temperatura);
write('peso molecolare=');readln(pesom);
risposta:=pressione*volume*pesom/(r*temperatura);
writeln('massa=',risposta:6:2);
end;

procedure temperatura;
var volume,massa,pressione,pesom:real;
begin
clrscr;
write('volume=');readln(volume);
write('massa =');readln(massa);
write('pressione=');readln(pressione);
write('peso molecolare=');readln(pesom);
risposta:=pressione*volume*pesom/(r*massa);
writeln('temperatura=',risposta:6:2);
end;

procedure pesomolecolare;
var volume,massa,temperatura,pressione:real;
begin
clrscr;
write('volume=');readln(volume);
write('massa =');readln(massa);
write('temperatura=');readln(temperatura);
write('pressione=');readln(pressione);
risposta:=massa*r*temperatura/(pressione*volume);
writeln('peso molecolare=',risposta:6:2);
end;

begin
clrscr;
pressione;readln;volume;readln;massa;readln;
temperatura;readln;pesomolecolare;
readln;
end.

RUN

volume=100
massa =20
temperatura=300
pressione=2.46
peso molecolare=  2.00

inizio