Program Menghitung Slip Motor dengan Pascal

Aplikasi yang saya buat ini bertujuan untuk menghitung Slip Motor. Ada 2 pilihan cara perhitungan yaitu perhitungan pertama membutuhkan input Kecepatan Stator (Ns) dan Kecepatan Rotor (Nr) dengan rumus untuk mencari Kecepatan Stator yaitu %S = (Ns-Nr)/Ns x 100. Untuk perhitungan kedua membutuhkan input Kecepatan Stator (Ns) dan Slip Motor (%S) dengan rumus untuk mencari Kecepatan Rotor Nr = Ns x (1-%S).


FLOW CHART :

program menghitung_slip_motor;

uses crt;

var

   ns, nr, s: real;

   pilihan1, pilihan2: string;

begin

   clrscr;

   writeln(' PROGRAM MENGHITUNG SLIP PADA MOTOR INDUKSI ');

   writeln;

   write('apakah anda ingin menghitung slip motor ? (y/t)');

   readln(pilihan1);

   if (pilihan1 = 'y') then

      begin

      write('masukkan nilai ns : ');

      readln(ns);

      write('masukkan nilai nr : ');

      readln(nr);

      writeln;

      s := ((ns-nr) / ns) * 100;

      writeln('nilai slip (s) : ', s:2:2, ' %');

      end

   else if (pilihan1 = 't') then

      begin

      write('apakah anda ingin menghitung kecepatan rotor ? (y/t)');

      readln(pilihan2);

      if (pilihan2 = 'y') then

         begin

         write('masukkan nilai ns : ');

         readln(ns);

         write('masukkan nilai slip : ');

         readln(s);

         writeln;

         nr := ns * (1-s);

         writeln('nilai kecepatan putar rotor (nr) : ', nr:2:3, ' rpm');

         end

      else if (pilihan2 = 't') then

         begin

         writeln('tidak ada pilihan yang dipilih');

         end

      else

         begin

         writeln('salah input');

         end;

      end

   else

      begin

      writeln('salah input');

      end;

   readln;

end.