program OHM 1 input output Uses Crt var V real Differenza di potenziale I real Intensità di corrente R real Resistenza elettrica scelta char begin clrscr writeln Prima legg

Document Sample
program OHM 1 input output Uses Crt var V real Differenza di potenziale I real Intensità di corrente R real Resistenza elettrica scelta char begin clrscr writeln Prima legg Powered By Docstoc
					program OHM_1 (input, output);

Uses Crt;

var V: real; (*Differenza di potenziale*)
    I: real; (*Intensità di corrente*)
    R: real; (*Resistenza elettrica*)
    scelta: char;

begin
   clrscr;
   writeln ('Prima legge di Ohm');
   repeat
          writeln;
          writeln ('Calcolo di 1-Resistenza elettrica');
          writeln ('           2-Differenza di potenziale');
          writeln ('           3-Intensità di corrente');
          writeln;
          write ('Opera la scelta 1, 2 o 3: ');
          readln (scelta)
   until (scelta >='1') and (scelta<='3');

   writeln;

if scelta <> '1' then
   begin
      write ('Resistenza elettrica          (ohm) =    ');
      readln (R)
  end;

if scelta <> '2' then
   begin
      write ('Differenza di potenziale      (V) =     ');
      readln (V)
   end;

if scelta <> '3' then
   begin
      write ('Intensità di corrente         (A) =     ');
      readln (I)
   end;

if scelta = '1' then R:= V/I;
if scelta = '2' then V:= R*I;
if scelta = '3' then I:= V/R;

   writeln;
   write    ('La resistenza elettrica è     ');
   writeln (R:10:4, ' ohm ');
   write    ('La differenza di potenziale è ');
   writeln (V:10:4, ' V ');
   write    ('L''intensità di corrente è     ');
   writeln (I:10:4, ' A ');
   readln
   end.
program OHM_2 (input, output);

Uses Crt;

var l: real; (*lunghezza del conduttore*)
    S: real; (*Sezione del conduttore*)
    R: real; (*Resistenza elettrica*)
    r0: real; (*Resistività elettrica*)
    scelta: char;

begin
   clrscr;
   writeln ('Seconda legge di Ohm');
   repeat
          writeln;
          writeln ('Calcolo di 1-Resistenza elettrica');
          writeln ('           2-Lunghezza del conduttore');
          writeln ('           3-Sezione del conduttore');
          writeln;
          write ('Opera la scelta 1, 2 o 3: ');
          readln (scelta)
   until (scelta >='1') and (scelta<='3');

   writeln;
      write ('Resistività elettrica      (ohm*mm 2/m) = ');
      readln (r0);

if scelta <> '1' then
   begin
      write ('Resistenza elettrica          (ohm) =     ');
      readln (R)
  end;

if scelta <> '2' then
   begin
      write ('Lunghezza del conduttore        (m) =     ');
      readln (l)
   end;

if scelta <> '3' then
   begin
      write ('Sezione del conduttore        (mm 2) =   ');
      readln (S)
   end;

if scelta = '1' then R:= r0*l/S;
if scelta = '2' then l:= R*S/r0;
if scelta = '3' then S:= r0*l/R;

   writeln;
   write    ('La resistenza elettrica è     ');
   writeln (R:10:4, ' ohm ');
   write    ('La lunghezza del conduttore è ');
   writeln (l:10:4, ' m ');
   write    ('La sezione del conduttore è   ');
   writeln (S:10:4, ' mm 2 ');
   readln
   end.