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 :

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

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.