Program Dasar Logika IF Turbo Pascal

1.    Program Logika Kasir

Maka untuk instruksinya yaitu :

Program Logika_Kasir;

Uses crt;

Var

      Kode,NB:string;

      Harga:longint;

Begin

  Clrscr;

     Write('Kode Barang        : '); readln(kode);

        If (kode='AX') or (kode='ax') then

        Begin

        NB:='Rinso';

        Harga:=2000

        End;

        If (kode='AZ') or (kode='az') then

        Begin

        NB:='LUX';

        Harga:=3000

        End;

     Writeln('Nama Barang    : ',NB);

     Writeln('Harga Barang    : ',harga);

   Readln;

End.

2.    Program Menentukan Kode Jenis Kelamin

Maka untuk instruksinya yaitu :

Program Logika_ Menentukan_Kode_JK;

Uses crt;

Var

     Nm,kl,jk:string;

Begin

   Clrscr;

       Write('Nama Anda                : '); readln(nm);

       Write('Masukkan Kode L/P    : '); readln(kl);

            If (kl='L') or (kl='l') then

            Begin

            Jk:='Laki-Laki'

            End;

            If (kl='P') or (kl='p') then

            Begin

            Jk:='Perempuan'

            End;
       Writeln;

       Writeln('Nama Anda          : ',nm);

       Writeln('Jenis Kelamin       : ',jk);

    Readln;

End.

3. Program Kasir 2

Maka untuk instruksinya yaitu :

Program Logika_Kasir;

Uses crt;

Var

      Kode,NB:string;

      Harga,Jm,Th:longint;

Begin

  Clrscr;

     Write('Masukkan Kode Barang        : '); readln(kode);

        If (kode='AXNN1') or (kode='axnn1') then

        Begin

        NB:='Deterjen';

        Harga:=12000

        End;

        If (kode='AZ033') or (kode='az033') then

        Begin

        NB:='Pons';

        Harga:=30000

        End;
     Writeln;

     Writeln('Nama Barang    : ',NB);

     Writeln('Harga Barang    : ',harga);
     Write('Masukkan Jumlah Barang : '); readln(Jm);
     Writeln('---------------------------------------');
     Th:=Harga*Jm;
     Writeln('Jadi Total Harga : ',Th);

   Readln;

End.