turbo pascal v.1.1 per mac

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

const f=96500;
var pa,va,i,se,ma,mi,ore:real;
   

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

procedure massa;
begin
write('peso atomico=');readln(pa);
write('valenza     =');readln(va);
write('ampere      =');readln(i);
write('secondi     =');readln(se);
ma:=pa*i*se/(va*f);
writeln('massa in grammi=',ma:8:2);
writeln('premi enter');readln;
end;

procedure ampere;
begin
write('peso atomico=');readln(pa);
write('valenza     =');readln(va);
write('massa grammi=');readln(ma);
write('secondi     =');readln(se);
i:=ma*va*f/(pa*se);
writeln('intensita in ampere =',i:8:2);
writeln('premi enter');readln;
end;

procedure tempo;
begin
write('peso atomico=');readln(pa);
write('valenza     =');readln(va);
write('ampere      =');readln(i);
write('massa grammi=');readln(ma);
se:=ma*va*f/(pa*i);
mi:=se/60;
ore:=se/3600;
writeln('tempo in secondi=',se:8:2);
writeln('tempo in minuti =',mi:8:2);
writeln('tempo in ore    =',ore:8:2);
writeln('premi enter');readln;
end;

procedure natura;
begin
write('massa grammi=');readln(pa);
write('valenza     =');readln(va);
write('ampere      =');readln(i);
write('secondi     =');readln(se);
pa:=ma*va*f/(i*se);
writeln('peso atomico=',pa:8:2);
writeln('premi enter');readln;
end;

procedure valenza;
begin
write('peso atomico=');readln(pa);
write('massa grammi=');readln(ma);
write('ampere      =');readln(i);
write('secondi     =');readln(se);
va:=pa*i*se/(ma*f);
writeln('valenza   =',va:8:0);
writeln('premi enter');readln;
end;

procedure scelta;
var ancora,s: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:natura;
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.