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.