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.

LOGIKA DAN PEMROGRAMAN (TUGAS 1)

Nama : Ipan lahili
NIM : T3115083
Jurusan : Teknik informatika
Kelas : 1 Karyawan B
Tugas : Games Logika

• GAMES LOGIKA "PEDAGANG, SAYUR, KAMBING DAN SERIGALA"
Penjelasan : Permainan ini menjelaskan tentang soeorang pedagang yang akan menyebrang dan membawa sayur, kambing dan serigala dengan selamat.
Tantangan : anda harus menyebrangkan seorang pedagang, sayur, kambing dan serigala dengan selamat dan memperhatikan bahwa kambing makan sayur dan serigala makan anjing.
Penyelesaian :

1. Pertama-tama anda harus menyebrangkan terlebih dahulu pedagang dan kambing
2. Selanjutnya turunkan kambing lalu kembali ke tempat awal.
3. Selanjutnya angkutlah sayur ke atas perahu dan sebrangkan.
4. Selanjutnya turunkan sayur dari atas perahu lalu angkut kembali seekor kambing ke atas perahu dan bawa kembali ke tempat awal.
5. Selanjutnya turunkan kambing tersebut dari atas perahu dan angkutlah serigala dan sebrangkan dia.
6. Terakhir kembali ke tempat awal dan angkut kembali kambing dan sebrangkan kembali.
7. SELESAI
• GAMES LOGIKA "3 KANIBAL DAN 3 PENDETA"
Penjelasan : 3 Pendeta dan 3 orang kanibal itu harus menyebrang dengan selamat. dengan cara pendeta harus lebih banyak dari kanibal. karena apabila kanibal lebih banyak dari pendeta maka pendeta akan di makan oleh kanibal. tetapi sebaliknya jika pendeta lebih banyak dari kanibal maka pendeta tidak akan dimakan oleh kanibal.
Tantangan : anda harus menyebrangkan kanibal dan pendeta itu dengan selamat!!!
Penyelesaian:

1. Pertama-tama sebrangkan dua kanibal ke sebrangkan terlebih dahulu
2. Selanjutnya turunkan satu kanibal saja lalu kembali ke tempat awal untuk mengambil satu kanibal lagi dan sebrangkan kembali
3. Selanjutnya turunkan satu kanibal dan kembali ke tempat awal
4. Selanjutnya angkutlah ke atas perahu satu pendeta dan sebrangkan.
5. Selanjutnya turunkan satu pendeta dan angkut kembali ke atas perahu satu kanibal dan sebrangkan kembali ke tempat awal.
6. Selanjutnya turunkan dari atas perahu satu kanibal dan angkut lagi satu pendeta ke atas perahu lalu sebrangkan
7. Selanjutnya turunkan satu pendeta dan kembali untuk ke tempat awal
8. Selanjutnya angkut satu pendeta dan sebrangkan
9. Selanjutnya turunkan satu pendeta dan kembali ke tempat awal
10. Selanjutnya angkut satu kanibal dan sebrangkan
11. Selanjutnya turunkan satu kanibal dan kembali ke tempat awal
12. Terakhir angkut satu kanibal dan sebrangkan lalu turunkan kedua kanibal tersebut
• GAMES LOGIKA " KELUARGA"
Penjelasan : permainan ini tentang sebuah keluarga yang terdiri dari 5 orang yaitu adik, kakak, tante, paman dan kakek. sebuah keluarga ini akan menyebrangi sebuah jembatan kayu pada malam hari dengan membawa sebuah lampu yang akan bertahan hanya dengan waktu 30 detik. setiap orang masing-masing mempunyai waktu lampu dengan waktu yang berbeda-beda. yaitu :
- Adik : 1 detik
- Kakak : 3 detik
- Tante : 6 detik
- Paman : 8 detik
- Kakek : 12 detik
Info : untuk menyebrangi jembatan tersebut hanya bisa dilewati dua orang saja, karena jembatan tersebut sudah sangat lapuh. maka akan roboh jika dilewati oleh banyak orang.
Penyelesaian :

1. pertama-tama adik dan kakaknya didahulukan
2. Kemudian adik kembali keseberang lagi.
3. Selanjutnya paman dan kakeknya menyebrangi jembatan tersebut.
4. Saat sampai kakek harus kembali ke tempat awal.
5. Lalu adiknya menyebrangi jembatan tersebut dengan tantenya .
6. Adik tersebut kembali lagi untuk menjemput.
7. Terakhir sebrangkan adik dan kakaknya.
8. Selesai.