LOGIKA DAN PEMROGRAMAN (TUGAS 9)

PROGRAM HOTEL 2

FLOWCHART

CODING

uses crt;

var nk,nata,jk,kk,bns : string;

    Tk,li: longint;

    bk,pot,tot: real;

begin

    writeln('Program hotel');

    writeln('======================');

    write('No kamar :'); readln(nk);

    write('Nama Tamu :'); readln(nata);

    write('Kode kamar :'); readln(kk);

    write('Lama inap :'); readln(li);

    if kk='k1' then

    begin

      jk:='Executive';

      tk:=1000000;

    end

    else

    if kk='k2' then

    begin

      jk:='President';

      tk:=850000;

    end

    else

    if kk='k3' then

    begin

      jk:='Bisnis';

      tk:=500000

    end

    else

    if kk='k4' then

    begin

      jk:='Deluxe';

      tk:=250000

    end

    else

    begin

      jk:='Ekonomi';

      tk:=150000;

    end;

    if li = 1 then

      li:=2

    else

      li:=li;

    bk:=li*tk;

    if (li > 3) and
(jk='Executive') then

      pot:=bk*0.25

    else

      pot:=bk*0.5;

    if (kk='k1') or (kk='k2') then

      bns:='Jam tangan'

    else

    if (kk='k3') or (kk='k4') then

      bns:='Gantungan kunci'

    else

       bns:='pulpen cantik';

    tot:=bk-pot;
    writeln('======================');

    writeln('Jenis kamar : ',jk);

    writeln('Tarif kamar : ',tk);

    writeln('Biaya kamar : ',bk:0:0);

    writeln('Potongan : ',pot:0:0);

    writeln('Bonus : ',bns);

    writeln('Total Biaya : ',tot:0:0);
   
    writeln('======================');


end.

LOGIKA DAN PEMROGRAMAN (TUGAS 8)

PROGRAM HOTEL

FLOWCHART

 

CODING

uses crt;   

var nk,nata,jk,kk : string;

    Tk,li: longint;

    bk : real;

begin

    writeln('Program hotel');

    writeln('======================');

    write('No kamar :'); readln(nk);

    write('Nama Tamu :'); readln(nata);

    write('Kode kamar :'); readln(kk);

    write('Lama inap :'); readln(li);

    if kk='k1' then

    begin

       jk:='Executive';
      
tk:=1000000;

    end

    else

    if kk='k2' then

    begin

       jk:='President';

       tk:=850000;

    end

    else

    if kk='k3' then

    begin

       jk:='Bisnis';

       tk:=500000;

    end

    else

    if kk='k4' then

    begin

       jk:='Deluxe';

       tk:=250000;

    end

    else

    begin

       jk:='Ekonomi';

       tk:=150000;

    end;

    bk:=li*tk;

    writeln('======================');

    writeln('Jenis kamar :',jk);

    writeln('Tarif kamar :',tk);

    writeln('Biaya kamar :',bk:0:0);

    writeln('======================');


end.

LOGIKA DAN PEMROGRAMAN (TUGAS 7)

PROGRAM MENETUKAN GAJI POKOK

 FLOWCHART

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

CODING

uses crt;

var a: string;

    b: byte;

    c:longint;

begin

clrscr;

    writeln('Program Mementukan Gaji pokok pegawai');

    writeln('=====================================');

    write('Nama pegawai :');

    readln(a);

    write('Golongan :');
    readln(b);

    if b =1 then

        c:=450000

    else

    if b =2 then

        c:=650000

    else
    if b =3 then

        c:=850000

    else

    c:=1200000;

    writeln('=====================================');

    writeln('Nama pegawai :',a);

    writeln('Gaji pokok :',c);

    writeln('=====================================');

end.uses crt;

var a: string;

    b: byte;

    c:longint;

begin

clrscr;

    writeln('Program Mementukan Gaji pokok pegawai');

    writeln('=====================================');

    write('Nama pegawai :');

    readln(a);

    write('Golongan :');
    readln(b);

    if b =1 then

        c:=450000

    else

    if b =2 then

        c:=650000

    else
    if b =3 then

        c:=850000

    else

    c:=1200000;

    writeln('=====================================');

    writeln('Nama pegawai :',a);

    writeln('Gaji pokok :',c);

    writeln('=====================================');

end.

LOGIKA DAN PEMROGRAMAN (TUGAS 6)

PROGRAM MENENTUKAN BILANAGAN POSITIF DAN NEGATIF

 FLOWCHART

CODING

uses crt;

var a: integer;

      b: string;

begin

    clrscr;

    writeln('Program menentukan bilangan positif & negatif');

    writeln('=============================================');

    write('masukan bilangan :');

    readln(a);

    if a < 0 then

        b:='Bilangan negatif'

    else

    if a > 0 then

        b:='Bilangan positif'

    else
  
        b:='Nol';
  
    writeln('Bilangan tersebut adalah ',b);

    writeln;
    writeln('=============================================');

end.

LOGIKA DAN PEMROGRAMAN (TUGAS 5)

PROGRAM MENENTUKAN TUNJANGAN

 FLOWCHART

CODING 

program Tugas_pascal_5;

uses crt;

var
      
nama:string ;

    status : integer;

    JumlahAnak : integer;
       tunjanganistri : real;

    GajiKotor : real;

    Tunjangan: real;

    Tunjangananak : real ;

    totalgaji : real;

begin

 clrscr;

    writeln('MENGHITUNG TUNJANGAN');

    writeln('===========================');

    write('Nama pegawai :');
 readln(nama);

    write('Gaji  : Rp.');
 readln(GajiKotor);  

    writeln('Status : 1. Kawin ');

    writeln('2. Belum kawin':23);

    write('masukan pilihan :');
 readln(status);

    if status = 1 then

    begin

        tunjanganistri:=0.15*gajikotor;

        write('Jumlah Anak :');
 readln(JumlahAnak);  

        if JumlahAnak>=2 then
 
            Tunjangan:=0.1*GajiKotor
        else
 
            tunjangan:=0.5*gajikotor;
    end
   
else
    if status = 2 then

    begin

        writeln('Selamat anda tidak mendapat tunjangan');

        writeln('besar gaji anda :',gajikotor:0:0);

    end;

    totalgaji:=tunjangan+tunjanganistri+gajikotor;

    writeln('------------------------------');

    writeln('Nama pegawai : ',nama);

    writeln('Besar Tunjangan anak : Rp.',Tunjangan:2:2);  

    writeln('Besar Tunjangan istri : Rp. ',tunjanganistri:2:2);

    writeln('total gaji : Rp.',totalgaji:2:2);

    writeln('---------------------------------');

    readln;

end.

LOGIKA DAN PEMROGRAMAN (TUGAS 3)

Program Tugas_3;
const pi=3.14;

Uses wincrt;

Var p,l,pilih   : integer;

       r,kel  : real;

Begin

           Repeat

          ClrScr;

                Writeln(‘TUGAS 3 LOGIKA & PEMROGRAMAN’);

                Writeln(‘1. Menghitung Keliling Persegi Panjang’);

                Writeln(‘2. Menghitung Keliling Lingkaran’);

                Write(‘Masukkan Pilihan Anda : ‘);Readln(pilih);

                If pilih = 1 Then

                                Begin

                                Writeln(‘-----------------------------------------------------------’);

                                Writeln(‘  Menghitung Keliling Persegi Panjang’);

                                Writeln(‘-----------------------------------------------------------’);

                                Write(‘Masukkan Nilai Panjang : ‘);Readln(p);

                                Write(‘Masukkan Nilai Lebar     : ‘);Readln(l);

                                Kel:= 2*(p+l);

                                Write(‘Hasilnya Adalah               : ‘,kel:2:0);

                                Readln;

                                End

                Else

                If plh = 2 Then

                                Begin

                                Writeln(‘=================================’);

                                Writeln(‘  Menghitung Keliling Lingkaran  ‘);

                                Writeln(‘=================================’);

                                Write(‘Masukkan Jari-Jari              : ‘);Readln(r);

                                Kel:= 2*pi*r;

                                Write(‘Keliling Lingkaran Adalah  : ‘,kel2:2);

                                Readln;

                                End

                Until pilih = 0;
 end.

LOGIKA DAN PEMROGRAMAN (TUGAS 2)

program ipanlahili ;
uses wincrt;
var Nim, Nama, jurusan, kelas :string;
tahun : byte;
begin
writeln('BIODATA');
writeln('===============');
write('Nim :'); readln(Nim);
write('Nama:'); readln(Nama);
write('jurusan'); readln(jurusan);
write('kelas'); readln(kelas);
write('tahun'); readln(tahun);
end.