Uncounted LOOP

Contoh :
Menentukan Bulan :
1. while .. do



program case_of;

uses
    wincrt;
var
    bulan:string;
    indeks:byte;
    ulang:char;

begin
  ulang:='Y';
  while (ulang='Y') or (ulang='y') do
  begin
  writeln ('Program Mencetak Nama Bulan');
  writeln('____________________________');
   writeln;
  write('Masukkan no Bulan[1..8] : ');readln(indeks);
case indeks of
     1:bulan:= 'Januari';
     2:bulan:= 'Februari';
     3:bulan:= 'Maret';
     4:bulan:= 'April';
     5:bulan:= 'Mei';
     6:bulan:= 'juni';
     7:bulan:= 'Juli';
     8:bulan:= 'Agustus';
else
writeln('Nama Gak Ada');
end;
    writeln('Bulan ke ',indeks,' Adalah ',bulan);
     writeln;
    write('Masih Ada Data Lagi?[Y/T] : ');readln(ulang);clrscr;
    writeln;
    end;
end.

2. Repeat .. Until


program case_of;

uses
    wincrt;
var
    bulan:string;
    indeks:byte;
    coba:char;

begin
  coba:='T';
  repeat
  writeln ('Program Mencetak Nama Bulan');
  writeln('____________________________');
  write('Masukkan no Bulan[1..8] : ');readln(indeks);
case indeks of
     1:bulan:= 'Januari';
     2:bulan:= 'Februari';
     3:bulan:= 'Maret';
     4:bulan:= 'April';
     5:bulan:= 'Mei';
     6:bulan:= 'juni';
     7:bulan:= 'Juli';
     8:bulan:= 'Agustus';
else
writeln('Nama Gak Ada');
end;

    writeln('Bulan ke ',indeks,' Adalah ',bulan);
    write('Masih Ada Data Lagi?[Y/T] : ');readln(coba);clrscr;
    writeln;
    until (coba='T') or (coba='t')
end.

Latihan Pra UAS

A. buatlah sebuah program menu karyawan dimana jika memilih menu
1. program data karyawan (nik,nama,alamat,tgl lahir,jabatan,status,no telpon)
2. program data barang (kde barang, nama barang, quantity,harga satuan,total harga,diskon,harga bayar (harga setelah diskon))
 diskon jika total harga lebih besar atau sama dengan 50000 maka diskon 0,5%,jika total harga lebih besar atau sama dengan 500000 maka diskon 10%.
jika memilih menu di atas 3 maka akan muncul pesan *menu yang anda pilih tidak ada*
gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).

B.buatlah sebuah program menu untuk data kampus dimana jika memilih menu
1.program data mahasiswa (nim,nama,jurusan,tahun ajaran,smster,dosen wali,alamat,telpon)
2.program data dosen (nip,nama,ttl,alamat,telpon,status,jabatan,ruangan,mata kuliah)
3.program menghitung grade mahasiswa(nama,nim,jurusan,smster,angkatan,NH,NUTS,NUAS,NA,Grade)
jika memilih menu di atas 4 maka akan muncul pesan *menu yang anda pilih tidak ada*
gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).

C. Buatlah program konversi suhu, dimana jika memilih menu
1.  merubah celcius ke kelvin
     CeLKel = Celcius + 273,15

2.  merubah celcius ke rheamur
     CelRea= Celcius x 0,8

3. merubah reamur ke celcius
     ReaCel = Rheamur x 1,25

4.  merubah celcius ke fahrenheit
     CelFa = (Celcius x 1,8) + 32

5. merubah fahrenheit ke celcius
     FaHCel = (Fahrenheit - 32) / 1,8

6. merubah rheamur ke farenheit
     ReFa = (Rheamur x 2,25) + 32

jika memilih menu di atas 7 maka akan muncul pesan *menu yang anda pilih tidak ada*

gunakan pengulangan uncounted loop untuk mengulang ke menu awal, dan buatlah pembatas yang bisa digunakan berklai-kali  (misal :bintang,samadengan,simbol2 lainnya dengan subrutin).

selamat mencobaa iiiaahhh,,GOOD LUCK,,
^_^

Jawaban MID Algo & Pemrog 1- Kel C

KANAN :
program Data_tamu;

uses
    wincrt;

var
   lma_inap        :byte;
   nm_tamu,jns_kmr : string;
   biaya,ttl_biaya :real;

begin
   
     gotoxy(12,3);writeln('Program Pengolahan Data Tamu');
     gotoxy(12,4);writeln('=============================');
     writeln;
     write('Nama Tamu        : ');readln(nm_tamu);
     writeln('==========================');
     writeln('Standar,Superior,Suite');
     writeln('==========================');
     write('Jenis Kamar      : ');readln(jns_kmr);
     write('Lama Menginap    : ');readln(lma_inap);
     clrscr;
   
     if (jns_kmr='Standar') or (jns_kmr='standar') then
        biaya := 375000
     else if (jns_kmr='Superior') or (jns_kmr='superior') then
        biaya := 500000
     else
        biaya := 750000;


     ttl_biaya := biaya * lma_inap;


     gotoxy(18,3);writeln('Hotel Tenang');
     gotoxy(9,4);writeln('=======^^^^^^^^^^^^^^^^=======');
     writeln;
     writeln('Nama Tamu             : ',nm_tamu);
     writeln('Jenis Kamar           : ',jns_kmr);
     writeln('Lama Menginap         : ',lma_inap,' Bulan');
     writeln('Biaya yang dibayar    :Rp.',ttl_biaya:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
   
end.

KIRI :

program Data_pelanggan;

uses
    wincrt;

var
   lma_inap        :byte;
   nm_plgn,jns_cci : string;
   biaya,ttl_biaya :real;

begin

     gotoxy(12,3);writeln('Program Pengolahan Data Pencucian Mobil');
     gotoxy(12,4);writeln('=======================================');
     writeln;
     write('Nama Pelanggan        : ');readln(nm_plgn);
     writeln('==========================');
     writeln('Standar,Kilap,Salju');
     writeln('==========================');
     write('Jenis Cuci            : ');readln(jns_cci);
     clrscr;
   
     if (jns_cci='Standar') or (jns_cci='standar') then
        biaya := 35000
     else if (jns_cci='Kilap') or (jns_cci='kilap') then
        biaya := 50000
     else
        biaya := 75000;


     ttl_biaya := biaya + biaya * 0.1;


     gotoxy(17,3);writeln('Bengkel Tenang');
     gotoxy(9,4);writeln('=======^^^^^^^^^^^^^^^^=======');
     writeln;
     writeln('Nama Pelanggan        : ',nm_plgn);
     writeln('Jenis Cuci            : ',jns_cci);
     writeln('Biaya Cuci            :Rp. ',biaya:10:0,',-');
     writeln('Biaya Stelah Pajak    :Rp.',ttl_biaya:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
   
end.

Jawaban MID Algo & Pemrog 1- Kel D

KANAN :
program Data_pengunjung;

uses
    wincrt;

var
   nope,wktu     :byte;
   game          : string;
   biaya,ttl_byr :real;

begin
    
     gotoxy(12,3);writeln('Program Pengolahan Data Pengunjung');
     gotoxy(12,4);writeln('==================================');
     writeln;
     write('No Pengunjung    : ');readln(nope);
     write('Lama Bermain     : ');readln(wktu);
     writeln('================================');
     writeln('Shooting,Racing,Fighting,Dancing');
     writeln('================================');
     write('Jenis Game       : ');readln(game);
     clrscr;
    
     if (game='Shooting') or (game='shooting') then
        biaya := 500
     else if (game='Racing') or (game='racing') then
        biaya := 700
     else if (game='Fighting') or (game='Fighting') then
        biaya := 650
     else
        biaya := 800;


     ttl_byr:= biaya * wktu;


     gotoxy(12,3);writeln('TIMEZONE MATARAM');
     gotoxy(9,4);writeln('===^^^^^^^^^^^^^^^^===');
     writeln;
     writeln('No Pengunjung         : ',nope);
     writeln('Jenis Permainan       : ',game);
     writeln('Lama Bermain          : ',wktu,' Menit');
     writeln('Biaya yang dibayar    :Rp.',ttl_byr:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
    
end.


KIRI :

program Data_pengunjung;

uses
    wincrt;

var
   nope,jml:byte;
   menu : string;
   harga,ttl_harga :real;

begin
   
     gotoxy(12,3);writeln('Program Pengolahan Data Pengunjung');
     gotoxy(12,4);writeln('==================================');
     writeln;
     write('No Pembeli       : ');readln(nope);
     writeln('======================================');
     writeln('Kebab standar,Kebab gila,Burger,Hotdog');
     writeln('======================================');
     write('Jenis Menu       : ');readln(menu);
     write('Jumlah           : ');readln(jml);
     clrscr;
   
     if (menu='Kebab standar') or (menu='kebab standar') then
        harga := 11000
     else if (menu='Kebab gila') or (menu='Kebab gila') then
        harga := 10000
     else if (menu='Burger') or (menu='burger') then
        harga := 13000
     else
        harga := 12500;


     ttl_harga := harga * jml;


     gotoxy(12,3);writeln('Kebab Baba Rafi Karang Sukun');
     gotoxy(9,4);writeln('=======^^^^^^^^^^^^^^^^=======');
     writeln;
     writeln('No Pembeli            : ',nope);
     writeln('Menu                  : ',menu);
     writeln('Jumlah                : ',jml,' Buah');
     writeln('Total yang dibayar    :Rp.',ttl_harga:10:0,',-');
     writeln('=====================================');
     writeln;
     gotoxy(12,13);writeln('Terima Kasih Atas Kunjungan Anda..!!');
     gotoxy(12,14);writeln('=====================================');
   
end.

Latihan PraUTS

buat temen-temen kelas C dan D yang butuh soal latihan PraUTSnya bisa latihan pake soal dibawah ini, mungkin mirip geto sama soal UTSnya..Coba pelajari ajja yach,,ingettt Kerjaennya jangan pake acara nyontek yaaa,,, and beljara disiplin dalam waktu biar pas UTS kaliand pada bisa,,,SEmangaaathh yooo,..
GOOD Luck buat kaleandddd,,,Jawaban soal ini saya posting besok kaloo udah selesai kalian ujian praktikum...!!! ^_^

A.    Buatlah sebuah program Perhitungan Gaji Karyawan dengan ketentuan berikut :

a.    User memasukkan data pegawai berupa : NIP, Nama Pegawai, Golongan, Jumlah Anak.

b.    Gaji Pokok pegawai ditentukan sebagai berikut :

Golongan	Gaji Pokok
IA	1500000
IB	1600000
IIA	1800000
IIB	1900000
IIIA	2100000
IIIB	2400000
IVA	3500000

c.    Jika pegawai sudah menikah dan memiliki anak >= 2 maka tunjangan anak := 15%*Gaji Pokok, jika tidak maka tunjangan anak tidak diberikan.

d.   Gaji Bersih dihitung dengan rumus : Gaji Bersih := Gaji Pokok + Tunjangan Anak

e.    Output program berupa : Nama Pegawai, NIP, Golongan,Status, Jumlah anak, Tunjangan anak, Gaji pokok, Gaji Bersih.

B.     Buatlah program untuk mencetak gaji karyawan dimana:

Inputan :  nik,nama,jabatan (direktur,manager,karyawan,OB)

Ketentuan:

Jabatan                         Gaji                                        Tunjangan
Direktur                       3000000                                   10 % dari gaji
Manager                      2000000                                  5% dari gaji
Karyawan                    1000000                                  2% dari gaji
OB                              800000                                    1% dari gaji

Dikenakan PPN 10 % dari gaji
Gaji Bersih didapat dari : gaji + tunjangan – PPn

Output : Nik,nama,jabatan,gaji awal,tunjangan,PPN,total gaji.

C.     Buatlah program kasir dimana :

Input : Nama kasir,Kode barang,Nama barang,harga satuan,jumlah barang.

Proses:

Harga_beli := harga_satuan * jumlah

Jika harga_beli >= 20000, maka diskon 10% * harga_beli, total_bayar := harga_beli – diskon.

Output : Nama kasir,kode barang, nama barang, harga satuan, jumlah barang, diskon.

D.    Buatlah program program menghitung grade mahasiswa dimana:

Jika na >=90 grade A

Jika na >=80 grade B+

Jika na >=70 grade B

Jika na >=60 grade C+

Jika na >=50 grade C

Jika na >=40 grade D

Jika na <=39 grade E

Rumus na:= 20% * Harian + 30% * UTS + 50% * UAS

Output Nim,Nama,Jurusan,Semester,Nilai harian,Nilai UTS,Nilai UAS,Nilai akhir

E.     Berikut adalah data pengolahan gaji karyawan;

·         Nomor Induk Karyawan

·         Nama Karyawan

·         Status

·         Jumlah Anak

·         Jabatan

·         Gaji Pokok

·         Tunjangan Istri

·         Tunjangan Anak

·         Tunjangan jabatan

·         Jamsostek

·         Pajak

·         Gaji Bersih

Catatan;
Tunjangan istri 

·         jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok

·         Selain itu tidak dapat tunjangan

Tunjangan anak

·         Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk masing-masing anak

·         Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.

·         selain itu tidak dapat tunjangan

Tunjangan jabatan, dan GAPOK

·         Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000, Gapok : 3500000

·         Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000, Gapok : 2500000

·         Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000 , Gapok : 1500000

·         Selain itu tidak ada tunjangan

Pajak 2,5% dari gaji pokok

Jamsostek 10 % dari Gaji pokok

Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

.

jawaban KUIS C

heeyyy kelas C...
ini jawaban kuis kalian...soalnya gampang tapi kenapa bnyak yang belomm bisa...hmmmm
parahnya lagi ada yang COPAS....nget belajar UTS sebentar lagi...

program gaji_pegawai;
uses
 winCrt;

 var
   nm,gol :string;
   ank,nip : integer;
   gapok,tunjangan,gaji_brsh :real;


 begin
  gotoxy(12,2);writeln('MENCETAK GAJI PEGAWAI');
  gotoxy(12,3);writeln('=====================');
  writeln;
  write('NIP            : ');readln(nip);
  write('Nama Pegawai   : ');readln(nm);
  write('Golongan       : ');readln(gol);
  write('Jumlah anak    : ');readln(ank);
 
  if gol ='IA' then
   gapok := 1500000 else
  if gol ='IIA' then
   gapok:= 2500000 else
  if gol ='IIIA' then
   gapok:= 3500000 else
  if gol ='IVA' then
   gapok:= 4500000;


 if ank >= 2 then
 begin
  tunjangan:= (0.10 * gapok);
  gaji_brsh:= (gapok + tunjangan);
 end
 else

 begin
 tunjangan:= 0;
 gaji_brsh:=gapok;
 end;

 clrscr;
 begin
  writeln('DATA GAJI KARYAWAN');
  writeln('------------------');
  writeln('NIP            : ',nip);
  writeln('Nama Pegawai   : ',nm);
  writeln('Golongan       : ',gol);
  writeln('Jumlah anak    : ',ank);
  writeln('Tunjangan      : ',tunjangan:6:0);
  writeln('Gaji Pokok     : ',gapok:6:0);
  writeln('Gaji Bersih    : ',gaji_brsh:6:0);
 end;
end.

jawaban KUIS D

nie jawaban hasil kuis buat temen2 kelompok D...masakkkk soal kayak begini di bilang sulit...

yang penting mau usaha semuanya pasti bisa,,soalnya gampang,,heeee
bisa kalian liat sendiri jawabanya di bawah nie,,,!!!
moga bisa bermanfaat yach...ingett belajarrrr sebentarrr lagi UTS...!!!

program Gaji;

uses
    winCrt;

var
   gp,gb,pjk,js,tis,ta,tjb:real;
   nik:string[10];
   nk:string[27];
   sts:string[9];
   jb:string[15];
   ja:byte;

begin
gotoxy (12,3);writeln('PROGRAM PENCETAKAN GAJI KARYAWAN');
gotoxy (12,4);writeln('________________________________');
gotoxy (12,6);writeln('## MASUKKAN DATA KARYAWAN ##');
writeln;
write('Nomor Induk Karyawan = '); readln(nik);
write('Nama Karyawan        = '); readln(nk);
write('Status               = '); readln(sts);
write('Jumlah Anak          = '); readln(ja);
write('Jabatan              = '); readln(jb);
clrscr;

if jb='manager' then
   begin
        gp := 3500000;
        tjb:= 2000000;
   end
else
if jb='supervisor' then
   begin
        gp := 2500000;
        tjb:= 1500000;
   end
else
if jb='mandor' then
   begin
        gp := 1500000;
        tjb:= 1000000;
   end
else
begin
     tjb:=0;
end;


if sts='menikah' then
   begin
        tis:=0.1*gp;
   end
else
   begin
        tis:=0;
   end;

if ja<=3 then
   begin
        ta:=0.05*gp*ja;
   end
else
if ja>3 then
   begin
        ta:=0.05*gp*3;
   end
else
   begin
        ta:=0;
   end;


pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);

gotoxy (12,3);writeln('DATA GAJI KARYAWAN');
gotoxy (12,4);writeln('==================');
writeln;
writeln('Tunjangan Istri     : Rp. ', tis:9:0);
writeln('Tunjangan Anak      : Rp. ', ta:9:0);
writeln('Tunjangan Jabatan   : Rp. ', tjb:9:0);
Writeln('Pajak               : Rp. ', pjk:9:0);
writeln('Jamsostek           : Rp. ', js:9:0);
writeln('Gaji Bersih         : Rp. ', gb:9:0);
end.