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

0 komentar:

Poskan Komentar