turbo pascal v.1.1 per mac

program fara2;
(* problemi su leggi di faraday *)

const f=96500;
var r,a,b,c,d:real;
    s,v:integer;
   

procedure calcola1(a,b,c,d:real;risposta:string);
begin
r:=a*b*c/(f*d);
if s=5 then writeln(risposta,'..',round(r):8) else
writeln(risposta,'...',r:8:2);
readln;
end;

procedure calcola2(a,b,c,d:real;risposta:string);
var mi,ore:real;
begin
r:=a*b*f/(c*d);
writeln(risposta,'...',r:8:2);
if s=3 then 
begin
mi:=r/60;
ore:=r/3600;
writeln('minuti =',mi:8:2);
writeln('ore    =',ore:8:2);
end;
readln;
end;

procedure fine;
begin
writeln('premi enter');
readln;
end;

procedure massa;
begin
writeln('massa=peso atomico*intensita*tempo/valenza*faraday');
write('peso atomico=');readln(a);
write('ampere      =');readln(b);
write('secondi     =');readln(c);
write('valenza     =');readln(d);

calcola1(a,b,c,d,'massa=');
end;

procedure valenza;
begin
writeln('valenza=peso atomico*intensita*tempo/massa*faraday');
write('massa in grammi =');readln(d);
write('ampere          =');readln(c);
write('secondi         =');readln(b);
write('peso atomico    =');readln(a);

calcola1(a,b,c,d,'valenza=');
end;

procedure pesoatomico;
begin
writeln('peso atomico=massa*valenza*faraday/intensita*tempo');
write('massa in grammi =');readln(a);
write('ampere      =');readln(c);
write('secondi     =');readln(d);
write('valenza     =');readln(b);
calcola2(a,b,c,d,'peso atomico=');
readln;
end;

procedure ampere;
begin
writeln('intensita=massa*valenza*faraday/peso atomico*tempo');
write('massa in grammi   =');readln(a);
write('peso atomico      =');readln(c);
write('secondi           =');readln(d);
write('valenza           =');readln(b);
calcola2(a,b,c,d,'intensita=');
end;

procedure tempo;
begin
writeln('tempo=massa*valenza*faraday/intensita*peso atomico');
write('massa in grammi   =');readln(a);
write('ampere            =');readln(c);
write('peso atomico      =');readln(d);
write('valenza           =');readln(b);
calcola2(a,b,c,d,'secondi=');
end;

procedure scelta;
var ancora:integer;
begin
clearscreen;
writeln('seleziona tipo problema ');
writeln('1...cerca massa in grammi ');
writeln('2...cerca intensita in ampere ');
writeln('3...cerca tempo in secondi ');
writeln('4...cerca natura sostanza,peso atomico ');
writeln('5...cerca valenza sostanza ');
writeln('6...fine ');
write('opzione=');readln(s);
clearscreen;
case s of
1:massa;
2:ampere;
3:tempo;
4:pesoatomico;
5:valenza;
6:fine;
end;
writeln('----------------------------');
writeln('altro problema:scrivi 1...fine:scrivi 2 ');readln(ancora);
if ancora =1 then scelta else fine;
end;

begin
clearscreen;
writeln('formule per soluzione problemi su leggi di FARADAY ');
writeln('si deve inserire su richiesta:');
writeln('massa in grammi');
writeln('intensita in ampere ');
writeln('tempo in secondi ');
writeln('valenza e peso atomico');
writeln('-----------------------------');
writeln('premi enter');
scelta;
end.