Rabu, 29 Oktober 2014

Soal Looping 2

3.Buatlah algoritma dan program untuk menampilkan angka seperti berikut:
Contoh inputan :


Jumlah angka : 5
1   5
 2 4
  3 
 2 4
1   5
Jumlah angka : 6
1    6
 2  5
  34 
  34 
 2  5
1    6
Jumlah angka : 9
1       9
 2     8
  3   7 
   4 6  
    5   
   4 6  
  3   7 
 2     8
1       9

PROGRAM PASCAL NYA :

program no3;
uses crt;

var
   i, j , k , l : integer ;
begin
    clrscr;
    write('Inputkan Jumlah Angka:');
    readln(i);
    j := i ;
    for k := 1 to i do
    begin
       for l := 1 to i do
       begin
         if ((l=j)or (l=k)) then
         begin
           write (l);
         end
         else
          write (' ');
       end;
       j := j - 1;
       writeln();
     end;
     readln();
end.

ouputan jika kita inputkan 5 :

jika kita inputkan 6 :
jika kita inputkan 9 :

Soal Looping 2

2. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?

ALGORITMA loop2
KAMUS DATA
I,j,n: Integer
BEGIN
Input(n)
For i :=0 to n-1 do
        begin
  For j:=0 to n-1 do
   begin
             Output(j+1)
   end 
         Output("\n") //ganti baris
    end 
End

PROGRAM PASCAL NYA:

program no2;
uses crt;

var i , j, n : integer;

begin
    clrscr;
    write('Masukan Inputan:');
    readln(n);
    for i := 0 to n - 1 do
    begin
      for j:=0 to n - 1 do
      begin
        write(j + 1);
      end;
      writeln();
    end;
    readln();
end.

 jadi pada saat kita inputkan 5 maka akan muncul outputan seperti gambar di bawah:


Soal Looping 2

1. Jika user memasukkan angka 5 Apa Output dari algoritma berikut?
ALGORITMA loop1
KAMUS DATA
 I,j,n: Integer
BEGIN
  Input(n)
  For i :=0  to  n-1 do
begin
  For j:=0 to n-1 do
         begin
           Output(i+1)
         End
      Output("\n") //ganti baris
    End
End.

PROGRAM PASCALNYA :

program no1;
uses crt;

var
 i, j, n : integer;

begin
   clrscr;
   writeln('Masukan Inputan:');
   readln(n);
   for i :=0 to n - 1 do
     begin
        for j := 0 to n - 1 do
        begin
        writeln(i + 1);
        end;
         writeln();
     end;
   readln();

end.

jadi jika kita inputkan 5 maka outputan nya kan seperti gambar di bawah :


Rabu, 08 Oktober 2014

Essay no 4 Soal Menghitung Gaji dan Upah Lembur

Soal Menghitung Gaji dan Upah Lembur
Pada suatu perusahaan terdapat 5 golongan karyawan. Gaji karyawan ditentukan berdasarkan gaji tetap dan juga dari lamanya bekerja. Gaji tetap dan gaji per jam tergantung kepada golongan karyawan sesuai dengan tabel berikut:
Golongan
Gaji tetap (Rp)
Upah lembur per jam (Rp)
1
500.000
5000
2
300.000
3000
3
250.000
2000
4
100.000
1500
5
50.000
1000
Buatlah program untuk menghitung total gaji karyawan yang diterima dengan rumus: gaji sesuai golongan + (banyaknya jam lembur * tarIF lembur sesuai golongan karyawan)!
Contoh tampilan program:
INPUT:
Golongan: 2
Jumlah jam lembur: 5
OUTPUT:
Total gaji: 315000


Jawab :
ALGORITMA MenghitungGajiDanUpahLembur

var i
     igolongan,ilembur : integer ;
     itot : real ;
begin
 input(igolongan)
 input(ilembur)

 case igolongan of
   1 <-- (500.000 + 5000) ;
   2 <-- (300.000 + 3000) ;
   3 <-- (250.000 + 2000) ;
   4 <-- (100.000 + 1500) ;
   5 <-- (50.000 + 1000) ;

 end

Essay no 3 Soal Menghitung Jumlah Bus

Soal Menghitung Jumlah Bus
Sebuah acara wisatadigunakan bus yang berkapasitas 30 orang.Tulisalgoritmauntukmenghitungjumlah bus wisata yang diperlukanbilajumlahpesertadiINPUTdari keyboard.Catatan :bilajumlahpesertatidakkelipatan 30, makajikasisanya> 5 harusdisediakan 1 bus tambahan, bilasisanya<= 5 makatidakperlutambahan bus.

AlgoritmaWisata
//
Kamus Data
jpeserta  :
j_bus:
BEGIN
INPUT(jpeserta)
      ...
OUTPUT(j_bus)
END
 JAWAB:

ALGORITMA
var 
ijmlbus,ijmlpeserta,iSisa : integer ;
begin
 input(ijmlpeserta);
 if ijmlpeserta < 30 then
   if  ijmlpeserta mod 30 > 5 then
        ijmlbus := (ijmlpeserta div 30 ) + 1
   else
        ijmlbus := ijmlpeserta div 30
 else
   ijmlbus :=  0 ;

 input(ijmlbus)
end.


Essay no 2 Soal Menghitung Gaji Bersih

Soal Menghitung Gaji Bersih
Gaji bersih seorang pegawai dihitung dari gaji pokok dan tunjangan dipotong pajak yang harus di bayar. Besar tunjangan adalah 15 % dari gaji pokok, dan besar pajak adalah 10 % dari gaji pokok ditambah tunjangan. Buat algoritma untuk menghitung gaji bersih tersebut jika gaji pokok nya di INPUT.

JAWAB :
ALGORITMA

var 
gaji_bersih,gaji_pokok,tunjangan,pajak : real
begin
 input(gaji_pokok)
 gb <-- {gaji_pokok + (gaji_pokok* 0,15) - ((gaji_pokok + (gaji_pokok * 0,15))* 0.1)}

 output(gaji_pokok)
end.


Essay No 1 Soal Nilai Akhir

SoalNilaiAkhir
Seorangmahasiswainginmengetahuinilaiakhirmatakuliahalgoritma.
AturanperhitunganNilaiAkhir yang diterapkan :
         - UTS                                            25 %
         - UAS                                            35 %
         - Tugas& Quiz                           20 %
         - Praktikum                                20 %
Setelahdihitungnilaiakhirnya, kemudiandapatditentukanindeksnilainyadenganaturan:
         - Indeks=”A” bilaNilaiAkhir>= 80
         - Indeks=”B” bilaNilaiAkhir>= 65 danNilaiAkhir<80
         - Indeks=”C” bilaNilaiAkhir>= 50 danNilaiAkhir<65
         - Indeks=”D” bilaNilaiAkhir>= 35 danNilaiAkhir<50
         - Indeks=”E” bilaNilaiAkhir< 35

BuatalgoritmauntukmembantumahasiswatersebutdalammenghitungnilaiakhirdanIndeksnya, bilasemuakomponennilaidiINPUT.

JAWAB :
ALGORITMA
var 
na,uts,uas,tugas,quiz,praktikum : real
begin
 input(uts,uas,tugas,quiz,praktikum)
 na <-- ((uts * 0,25) + ( uas * 0,35) + ( tugas * 0,2) + ( quiz * 0,2) + (praktikum * 0,2))

 if na >= 80 then
  output('A')
 else if ((na >= 65) and (na < 80)) then
  output('B')
 else if ((na >= 50) and ( na < 65)) then
  output('C')
 else if ((na >= 35) and ( na < 50)) then
  output('D')
 else if ( na< 35 ) then
  output('E');

 output('maka nilai akhirnya adalah ? ',na);
 input();

end

Selasa, 07 Oktober 2014

Soal IF dan Case No 26-30

26.Telusurialgoritmadibawahini:

ALGORITMA AllAboutboolean
KAMUS
x, y, z : boolean
a : integer
BEGIN 
INPUT(a)    
     x <-- false
     z <-- ((3 + (5 mod3)) = 5)   
     y <-- (a <= 0) 
     IF ((x and y) or (not(y or z))) THEN
OUTPUT(“Telkom university is The Best”)
     ELSE IF ((y and (not z)) or (x and y)) THEN
OUTPUT(“Telkom university is The Clean Campus”)
     END IF 
OUTPUT(“Telkom university is The Smart Campus”)
END 

Jikapenggunamemasukkan  -1, maka OUTPUT algoritmatersebutadalah?
Telkom university is The Smart Campus

program no26 ;
uses crt ;
var 
x,y,z : boolean ;
    n : integer ;
begin
    clrscr ;
        write('Input Nilai a =');
readln(n);

        x := false ;
        z :=((3+(5 mod 3))= 5);
        y := ( n <= 0);

        if (( x and y) or (not(y or z))) then
          writeln('telkom university is the best')
        else if (( y and (not z)) or ( x and y)) then
          writeln('telkom university is the clean campus');

        writeln('telkom university is the smart campus');
         readln();
end.


27.Diberikan potongan algoritma sbb :

IF d>0 THEN
d <-- d + 1
ELSE
d <-- 59
IF (m < 0) THEN
m <-- m + 1   
ELSE
m <-- 59
j <-- j + 1 
ENDIF
ENDIF
OUTPUT(j+m-d) 

Jikasecaraberurutannilai j, m dan d adalah 9, 0, dan 0, 

makatampilanakhirkode program diatasadalah? 10


program no27 ;
uses crt ;

var 
j,m,d,hasil : integer ;
begin
    clrscr ;
        write('Nilai d = ');
readln(d);
        write('Nilai m = ');
readln(m);
        write('Nilai j = ');
readln(j);

        if d > 0 then
         d := d + 1
        else
         d := 59;
         if ( m < 0 ) then
          m := m + 1
        else
          m := 59;
          j:= j + 1 ;

        writeln(' jika j + m - d , maka hasilnya ? ',hasil);
        readln();
end.


28. Diberikan potongan algoritma sbb :
INPUT(N)
IF N>10 THEN
N <-- N + 5
ENDIF
OUTPUT(N)

JikadariperintahINPUT(N), dimasukkan data 5, 
makatampilandariOUTPUT(N) adalah… 5


program no28 ;
uses crt ;

var 
n : integer;
begin
    clrscr ;
        write('Masukan Nilai n = ');
readln(n);

        if n > 10 then
         n := n + 5;
        writeln('Maka n Adalah = ',n);
        readln();
end.




29. Diberikan potongan algoritma sbb :
Kamus Data 
a : integer
b :boolean
Begin
input(a)
bfalse
if (( a  =  10 ) &&  b ) then
output(“First”) 
else
output(“Second”)
end if 
output(“Third”)
End
Apakah keluaran dari kode program diatas jika pada input(a) dimasukkan nilai 10? Second Third



program no29;
uses crt ;

var 
    a : integer ;
    b : boolean ;
begin
        clrscr;
        write('Masukan a = ');
readln(a);

        b := false ;
         if (( a = 10) and b) then
          writeln('frist')
        else
          writeln('second');
        writeln('so third is?',a);
        readln();
end.


30. Jika y diinputkannilai 16, apakah output darialgoritma di         bawahini:
Kamus Data
isFalse: Boolean
y: Integer
BEGIN
      Input(y)
isFalse<-- True
      If (True) Then
    If ( ((y Mod 2) = 0) AND isFalse )
                y <-- y Div 3
    Else
                 y <-- y * y
Endif
       Else
    y <-- 100
Endif
output(y)
END
        jawaban = 5




program no30;
uses crt ;

var 
    isfalse : boolean ;
    y :integer ;
begin
   clrscr ;
        writeln('Input Nilai y = ');
readln(y);
        isfalse := true;

        if (true) then
         if (((y mod 2) = 0) and isfalse) then
          y:= y div 3
         else
          y := y * y
        else
          y := 100 ;
        writeln('maka y adalah? ',y);
        readln();
end.











Soal IF dan Case no 21 -25

21. Telusuri program dibawah ini:
ALGORITMA Semangat1
KAMUS
     x, y, z : integer 
BEGINALGORITMA
INPUT(x,y,z)
IF (x < y) THEN
IF (y < z) THEN
OUTPUT(“mahasiswa telkom university”)
ELSE
OUTPUT(“mempunyai visi yang besar”)
ENDIF
ELSE
IF (x > y) THEN
IF (y < z) THEN
OUTPUT(“karena itu”)
ELSE
OUTPUT(“kami selalu rajin belajar”)
ENDIF
ENDIF
ENDIF

Jika pengguna memasukkan  x = 3, y = 8, z = 5, maka OUTPUT algoritma tersebut adalah? “mempunyai visi yang besar”


program no21 ;
uses crt ;

var
     x,y,z: integer ;
begin
   clrscr ;
     write('Masukan x = ');
     readln(x);
     write('Input y = ');
     readln(y);
     write('Input z = ');
     readln(z);

       if ( x < y) then
        if ( y < z ) then
          writeln('Mahasiswa Telkom University')
        else
          writeln('Mempunyai Visi yang Besar')
        else
         if ( x > y ) then
          if ( y < z ) then
           writeln('Karena Itu')
        else
        writeln('Kami Selalu Rajin Belajar');
        readln();


end.


22.Telusuri program dibawahini:

ALGORITMA Semangat2
KAMUS
   x, y, z : integer 
BEGIN ALGORITMA 
   INPUT(x,y) 
        z <-- x + y 
   IF (z >= 80) THEN
   z <-- z – 30 

   IF (z >= 70) THEN
          z <-- z - 10
   ELSE
   IF (z >= 65) THEN
               z <-- z - 5
               y <-- x
   ENDIF
   ENDIF
   IF (x <= 70) THEN
          z <-- z – 10 
         y <-- x 
   ENDIF
   OUTPUT(x, y, z) 
END

Jikapenggunamemasukkan  x = 32, y = 50, makaOUTPUTalgoritmatersebutadalah? 32 32 42

program no22 ;
uses crt ;

var 
l,m,n : integer ;
begin
   clrscr ;
        write ('input x = ');
readln(l);
        write ('input y = ');
readln(m);

        n := l + m ;
        if ( n >= 80 ) then
         n := n - 30 ;
        if ( n >= 70 ) then
         n := n - 10
        else
         if (  n>= 65 ) then
          n := n - 5;
          m := l ;

        if ( l <= 70 ) then
         n := n - 10 ;
         m := l ;

        writeln('Nilai x ',l);
        writeln('Nilai y ',m);
        writeln('Nilai z ',n);
        readln();
end.


23.Telusuri program dibawahini:

Program Periksa_Semangat
Kamus
x, y : integer 
BEGIN ALGORITMA
INPUT(x, y, x) 
IF (x = 1) THEN
OUTPUT(“1. Visi (Mimpi) telahsesuaidenganlangkah”)
ELSEIF ((x >= 2) and ( x<= 4) THEN
OUTPUT(“2. Pantangmenyerahuntukmeraihmimpi”)
ELSEIF (x = y) THEN
OUTPUT(“3. Jujurdanprofesionaldalammelangkah”)
ELSEIF( y> x) THEN
OUTPUT(“4. Berdoatanpaputus”)
ENDIF
END ALGORITMA
Jikapenggunamemasukkan  x = 4, y = 5, dan x = 1, makaoutputnyaadalah:  Visi (Mimpi) telahsesuaidenganlangkah


program no23;
uses crt ;
var 
x,y,x2 : integer ;
begin
    clrscr ;
        writeln('Input Nilai x = ');
readln(x);
        writeln('Input Nilai y = ');
readln(y);
        writeln('Input Nilai x2 = ');
readln(x2);

        if ( x = 1 ) then
          writeln('1.visi(mimpi) telah sesuai dengan langkah')
        else if ((x >= 2 ) and ( x <- 4)) then
          writeln('2.pantang menyerah untuk meraih mimpi')
        else if (x = y) then
          writeln('3.jujur dan profesional dalam melangkah')
        else if ( y > x ) then
          writeln('4. berdoa tanpa putus ');
        readln();
end.


24.Telusuri program dibawahini:

ALGORITMACari_Maksimum
Kamus
     dat1, dat2, dat3, dat4, big : integer 
BEGIN 
  INPUT(dat1, dat2, dat3, dat4) 
  IF ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) THEN
  big<-- dat1
  ELSEIF ((dat2 >= dat1) and (dat2 >= dat3) and (dat2 >= dat4))
  big<-- dat2
  ELSEIF ((dat3 >= dat1) and (dat3 >= dat2) and (dat3 >= dat4))
  big<-- dat3
  ELSE
  big<-- dat4
  ENDIF
  OUTPUT(big)
END
Jikapenggunamemasukkan  12, 3, 4, dan 5, makaOUTPUTnyaadalah? 12
                

program no24 ;
uses crt ;
var 
dat1,dat2,dat3,dat4,big : integer ;
begin
    clrscr ;
        write('input data 1 = ');readln(dat1);
        write('input data 2 = ');readln(dat2);
        write('input data 3 = ');readln(dat3);
        write('input data 4 = ');readln(dat4);

        if ((dat1 >= dat2) and (dat1 >= dat3) and (dat1 >= dat4)) then
          big := dat1
        else if ((dat2 >= dat1) and ( dat2 >= dat3) and (dat2 >= dat4)) then
          big :=dat2
        else if ((dat3 >= dat1) and( dat3 >= dat2) and (dat3 >= dat4)) then
          big := dat3
        else
          big:= dat4;

        writeln('maka big-nya adalah ? ',big);
        readln();
end.


25.Perhatikan penggalanalgoritmadibawahini:
     …….
IF (a = 10 and b = 5) THEN
          c <-- 156
ELSE
          c <-- 165
ENDIF

Jikaternyatavariabel  adiberikanINPUT 5, makanilaivariabel  c  adalah? 165        

program no25 ;
uses crt ;
var 
l,m,n : integer ;
begin
    clrscr ;
        write('Nilai a ');
readln(l);

        if(( l = 10) and (m = 5)) then
           n := 156
        else
          n := 165 ;

        writeln('maka nilai c adalah ? ',n);
        readln();
end.



Soal IF dan Case No 11-20

11.       Diketahui A berisi 25, B berisi 13 dan C berisi 37, dijalankan algoritma
                       B ß A
         C ß B
         A ß C
         OUTPUT(A)

             Keluaran dari program diatas adalah …  25
          
            program no11 ;
            uses crt ;

var a,b,c : integer ;
begin
        clrscr ;
        write('Masukan Nilai a: ');
        readln(a);
        write('masukan nilai b: ');
        readln(b);
        write('masukan nilai c: ');
        readln(c);

        b := a ;
        c := b ;
        a := c ;

        writeln('maka a adalah : ',a);
        readln();
end.


12.      Perhatikan potongan algoritmaberikut:
     na, uts, uas, tugas, quiz:  integer
  utsß75
  uasß80
  tugasß50
  quizß50
  naß (uts* 30 /100) + (uas*35 / 100) + (tugas*15 /100) +  (quiz * 20 / 100)
   IF na>80 THEN
          indeksß’A’
   ENDIF
     IF na>60 THEN
          indeksß’B’
   ENDIF
          indeksß’C’
           indeksß’A’
   OUTPUT (indeks)
Apakah Keluaran dari program diatas? 


program soal_no12;
uses crt;

var

 na, uts, uas, tugas, quiz : integer;
 indeks : char;

begin

  clrscr;
  uts := 75;
  uas := 80;
  tugas := 50;
  quiz := 50;

       na := (uts * 30 div 100) + (uas * 35 div 100) + (tugas *          15 div 100) + (quiz * 20 div 100);

  if na > 80 then
     indeks := 'A';
  if na > 60 then
     indeks := 'B';
  end.
     indeks := 'C'
     indeks := 'A'
  writeln(' maka indeks nilainya adalah: ',indeks);                readln();
  end.



13.       Diberikan potongan algoritma sbb :
iß 5
iß 8
OUTPUT(i)

      TampilandariOUTPUT(i) adalah … 

program no13;
uses crt ;
var 
  i : integer ;
begin
        clrscr ;
         i := 5;
         i := 8;
        write('maka nilai i adalah ',i);
        readln();
end.


14.      Diberikan potongan algoritma sbb :
IF d>0 THEN
     d ß d - 1
ELSE
     d ß 59
     IF (m > 0) THEN
     m ß m – 1  
     ELSE
     m ß 59
     j ß j - 1
     ENDIF
ENDIF
OUTPUT(j+m-d)

Jika secara berurutan nilai j, m dan d 9,0, dan 0, maka tampilan akhir kode program diatas adalah? 8

program no14;
uses crt;

var
 j,m,d : integer;


begin
  clrscr;
  write('masukan nilai j: '); 
  readln(j);
  write('masukan nilai m: '); 
  readln(m);
  write('masukan nilai d: '); 
  readln(d);
  if d > 0 then
      d := d - 1
  else
      d := 59;
      if (m > 0)then
          m := m - 1
      else
          m := 59;
          j := j - 1;
  writeln('maka nilai j + m - d adalah: ',j + m - d);
  readln();

end.

15.      Perhatikan algoritmaberikut
Program Soal18
Kamus
     x,y:integer
Algoritma
xß15
yß8
zß7
xßy + x
yßx - y
OUTPUT(x)
OUTPUT(y)
END

Keluaran dari program diatas secara berurutan adalah 23 15


program no15;
uses crt;

var
  x,y,z : integer;

begin

   x := 15;
   y := 8;
   z := 7;
   x := y + x;
   y := x - y;
  writeln('maka nilai x: ',x);
  writeln('maka nilai y: ',y);
  readln();

end.


16.       Diketahui A berisi 15, B berisi 23, dijalankan algoritma
A ß B
B ß A
Isi A dan B di akhir algoritma adalah …  23 23

program no16;
uses crt;

var
 a,b : integer;

begin
 clrscr;
  write('Masukan Nilai a: '); 
  readln(a);
  write('Masukan Nilai b: '); 
  readln(b);
 a := b;
 b := a;
 writeln('Maka Nilai a: ',a);
 writeln('Dan Nilai b: ',b);
 readln();
end.



17.       Diketahui A berisi 25, B berisi 13 dan C berisi 37, dijalankan algoritma
B ß A
C ß B
A ß C
        Isi C di akhir algoritma adalah …  25



program no17;
uses crt;

var
  a,b,c : integer;

begin
  write('Masukan Nilai a: '); 
  readln(a);
  write('Masukan Nilai b: ');
  readln(b);
  write('Masukan Nilai c: ');
  readln(c);

 b := a;
 c := b;
 a := c;

 writeln('maka nilai c adalah: ',c);
 readln();
end.


18.       Diberikan potongan algoritma sbb :
INPUT(N)
IF N<10 THEN
   N ß N + 5
ENDIF
OUTPUT(N)
                Jika dari perintah INPUT(N), dimasukkan data 15, maka tampilan dari OUTPUT(N) adalah … 
15

program no18;
uses crt;

var
  n : integer;

begin
  write('Masukan Nilai n: ');
  readln(n);
  if n < 10 then
    n := n + 5
  end.
 writeln('Maka Nilai n Adalah: ',n);
 readln();
end.

19.       Sebuah bilangan yang telah diINPUT ke dalam variable bil akan dipecah menjadi ratusan,puluhan dan      satuan :
ratusanßbil div 100
puluhanß ...
satuanßbil mod 10 

     Perintah untuk mENDapatkan puluhan di atas adalah …  


program no19;
uses crt;

var
  ratusan, puluhan, satuan, x : integer;

begin
  clrscr;
  write('Masukan Suatu Angka: ');
  readln(x);

  ratusan := x div 100;
  puluhan := x div 10;
  satuan  := x mod 10;

  writeln('maka nilai puluhannya adalah: ',puluhan);
  readln();

end.

20.       Diberikan potongan algoritma sbb :
INPUT(j,m,d)
IFd>0 THEN
dßd - 1
ELSE
   d ß 59
IF m>0 THEN
m ß m – 1
ELSE
m ß 59
j ß j - 1
ENDIF
ENDIF
OUTPUT(j,m,d)
JikaINPUT(j,m,d), dimasukkan data  9, 0  dan 0,                                                                           makatampilanakhirdariOUTPUT(j,m,d)adalah … 

program soal_no20;
uses crt;

var
 j,m,d : integer;


begin
  clrscr;
   writeln('Masukan Nilai j: ');
   readln(j);
   writeln('Masukan Nilai m: '); 
   readln(m);
   writeln('Masukan Nilai d: ');
   readln(d);
   if d > 0 then
      d := d - 1
   else
      d := 59;
      if (m > 0)then
          m := m - 1
      else
          m := 59;
          j := j - 1;
   writeln('Maka Nilai j Adalah: ',j);
   writeln('\Maka Nilai m Adalah: ',m);
   writeln('Maka Nilai d Adalah: ',d);
   readln();

end.