Selasa, 27 September 2011

contoh latihan percabangan


PERCABANGAN
IF
a. if tunggal
    Kasus :
Nilai yang dimasukan dari keyboard akan dikonversi menjadi keterangan Lulus atau Maaf ulang tahun       depan degan kondisi , Jika nilai yang di masukan lebih besar sama dengan  70 maka Anda Lulus, jika nilai lebih kecil dari 70 Maaf Ulang Tahun Depan.
Penyelesain Algoritma  
            nilai : integer
            Input (nilai)
            IF(nilai>=70) then
                        KET=’Anda LuLus’
            eLse
                        KET=’Maaf Ulang Tahun Depan’
     Dalam Bahasa Pascal
uses wincrt;
Var
   nilai : integer;
begin
     writeln('Program Untuk Konversi Angka Menjadi Lulus atau Tidak');
     writeln('Dengan Kondisi jikan Nilai >= 70 lulus jika < 70 maaf ulang tahun depan');
     writeln('Masukan Data yang akan di konversi : ');
     readln(nilai);
     if (nilai>=70) then
        begin
             writeln('Anda Lulus');
        end else
        begin
             writeln('Maaf Ulang Tahun Depan');
     end;
end.
b. if Majemuk
    Kasus :
Sebuah nilai yang dimasukan di konversi menjadi keteragan nilai dengan kondisi adalah jika nilai yang dimasukan lebih besar sama dengan 80 maka nilainya A, jika nilai lebih besar sama dengan 70 maka nilainya B, jika nilai lebih besar 60 maka nilainya C, Jika nilai lebih besar sama dengan 60 maka nilainya D selain itu nilainya E.
    Penyelesaian Algoritma
    Nilai = integer
    Ket = character
    Input (nilai)
    if nilai>= 80 then
            Ket='A'
    else  if nilai>=70 then
            Ket = ‘B’
            else if nilai>=60  then
                        Ket = ‘c’
            else if nilai>=50 then
                        Ket = ‘D’
            else  Ket= ‘E’
   
    Dalam Bahasa Pascal
   
    uses wincrt;
Var
   nilai: integer;
   Ket : char;
begin

     writeln('Program Untuk Konversi Angka Menjadi Lulus atau Tidak');
     writeln('Dengan Kondisi jikan Nilai >= 70 lulus jika < 70 maaf ulang tahun depan');
     writeln('Masukan Data yang akan di konversi : ');
     readln(nilai);
     if (nilai>=80) then
        begin
             Ket :='A';
        end else
    if (nilai>=70)  then
        begin
             Ket :='B';
        end else
    if (nilai>=60)  then
        begin
             Ket :='C';
        end else
    if (nilai>=50)  then
        begin
             Ket :='D';
    end else
        begin
             Ket :='E';
        end;
         writeln('Nilai : ',nilai,' Keterangan Nilai adalah ',Ket);
    end.  








     Soal
1.  Sebuah algoritma u/k menghitung gaji pokok dan tunjangan,dengan ketentuan :
     Var
     Gol:string
     Tunjangan,gaji pokok:ReaL
     Algoritma
     Infut(‘gol’)
     If gol=’2A’ then
            Gaji pokok   1000.000
            Tunjangan 10/100*1000.000
     Else if gol=’2B’ then
            Gaji pokok..1.200,000
            Tunjangan..5/100*1.200,000
     Else if gol=’2C’ then
            Gaji pokok..1.500,000
            Tunjangan..12/100*1.500,000readln
     Else
            Gaji pokok..900.000
            Tunjangan..o
     Output(gol,gaji_pokok,tunjangan)
     Buatlah Program Pascalnya :
2.  Buatlah algoritma untuk menetukan sebuah bilangan apakan ganjil aau genap di bawah ini kedalam 
     bahasa Pascal
     Var
            Bilangan:Real
     Ket:string
     Algoritma
            Input(bilangan)
    If bilangan mod 2=0 then
            ket =’genap’
     Else
            Ket’ganjil’
     Output(bilangan,ket)
3. Buatlah program untuk menentukan bilangan yang dimasukan adalah negatif , positif atau nol.
4. Buatlah program untuk menetukan huruf yang diinput adalah huruf vokal atau konsonan.
5. Buatlah program untuk menukarkan dua buah bilangan yang di masukan
    Contoh bilangan pertama 2, bilangan kedua yang diinput 5 setelah di tukar maka
                bilangan pertama 5, bilangan kedua 2

PROFIL


saya adalah seorang yang terlahir di dunia ini berkat orang tua saya  terutama Ibu saya, karena mereka lah saya ada, ibu yang jasanya begitu besar terus berjuang dari awal saya hanya benih dan hingga kini menjadi seorang anak laki-laki dewasa, ayah yang tak pernah lelah memberi kami nafkah hingga kami bisa hidup dan tumbuh dewasa,..
  saya terlahir sebagai anak pertama dari empat bersaudara, saya kuliah di salah satu kampus di purwakarta, adik saya yang pertama masih duduk di kelas 2 SMP begitupula demgan adik saya yang ke dua, adik saya yang ke 2 seorang perempuan, dia baru masuk MTS taun ini, adik saya yang perempuan hanya satu-satunya dan sekarang dia sekolah sambil mondok d salah satu pesantren di daerah rawamerta, karawang. dan adik saya yang terakhir yang sekaligus paling berbeda di antara saya dan adik-adik saya yang lain, adik saya yang satu ini yaaaa.... bisa di bilang paling nakal yang sering sekali membuat saya kesal, orang tua saya juga sudah pusing karna ulahnya,.. tapi di samping itu semua, saya bahagia dan beruntung memiliki orang tua yang super super hebat, orang tua terhebat yang ada di dunia,. orang tua yang selalu tersenyum dan tidak pernah mengeluh sesulit apapun keadaan kami, orang tua yang selalu memberikan motivasi kepada anak-anaknya,.. tanpa mereka saya tidak akan seperti ini sekarang,.... tapi sayangnya........... saya belum bisa membantu atau membahagiakan mereka sampai saat ini, hal itulah yang selalau membuat saya merasa sedih, padahal keinginan saya sewaktu lulus dari SMK saya bisa membantu mereka untuk membiayai sekolah adik-adik saya tapi sayangnya rencana  dan keinginan saya belum bisa terwujudkan dan lagi-lagi saya menyusahkan meraka dengan saya masuk kuliah, awalnya saya takut tidak bisa lanjut kuliah setelah semester pertama saya lalui,. berkat do'a, usaha dan keyakinan yang salalu mereka tanamkan pada diri saya yang membuat saya yakin bahwa sesulit apapun keadaan atau masalah yang saya miliki semuanya bisa dan pasti ada jalan keluarnya akhirnya saya bisa lanjut kuliah sampai sekarang saya mau menginjak ke semester 3,... terimasih untuk ayah dan ibu buat semuanya dan saya mint maaf atas semua kesalahan saya,..

ya ALLAH jaga mereka, lindungi mereka dan sayangi mereka seperti mereka menjaga saya, melindungi saya dan menyayangi saya,...

ALGORITMA



PERULANGAN
1)      FOR TO DO
Syarat :
1.      Memiliki nilai awal
2.      Memiliki nilai akhir
3.      Proses
4.      Operasi Penambahan/pengurangan
Example :
            For i = 1 to 10 do
            Output (i)
Hasil = 1 2 3 4 5 6 7 8 9 10










2)      FOR DOWNTO DO         
Syaratnya sama dengan FOR TO DO
Example :
            For i = 10 downto 1 do 
            Output (i)
Hasil = 10 9 8 7 6 5 4 3 2 1










3)     
Example :
            I = 1
            While (i <=10) do
            Output (i)
            I           i+1      

WHILE DO
Jika hasil looping bernilai benar maka proses looping di teruskan dan jika hasil looping bernilai salah maka proses looping berhenti, cara kerjanya  adalah proses terlebih dahulu baru cetak hasil









4)      REPEAT UNTIL
Example :
            I = 1
            Repeat
            Output (i)
Until (i>10)
I           i+1 


Jika hasil looping bernilai salah maka proses looping di teruskan dan jika hasil looping bernilai benar maka  proses looping berhenti, cara kerja adalah mencetak terlebih dahulu baru di proses