Contoh Soal Pengulangan



1 1.       Cetak angka 1-10 dengan menggunakan pengulangan!
a.    For
b.    Do While
c.     Repeat Until
2 2.       Cetaklah bilangan ganjil sampai dengan 10 suku dengan menggunakan pengulangan!
1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
a.       For
b.      Do While
c.       Repeat Until
3 3.      Cetaklah angka 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 dengan menggunakan pengulangan!
a.       For
b.      Do While
c.       Repeat Until
4 4.   Cetaklah angka 3, 9, 27, 81, 243, 729, 2187, 6561, 19683, 59049 dengan menggunakan pengulangan!
a.       For
b.      Do While
c.       Repeat Until
5 5.    a
a a
a a a
a a a a

6 6.     5
5 4
5 4 3
5 4 3 2
5 4 3 2 1

7 7.      1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

8 8.     ?
? ?
? ? ?
9 9.       1
1 3
1 3 5
1 3 5 7
1 3 5 7 9
  10.   2
2 4
2 4 6
2 4 6 8
2 4 6 8  10

JAWAB

1. a.     For
Start
X = int
{ for x = 1 to 10 Do
  Cetak x
  x = x + 1
}
End

b.      Do While
Var
X = int
Begin
X : = 1
While x <= 10 Do
Begin
Writeln ( x ) ;
X : = x + 1 ;
End ;
End

c.       Repeat Until
Var
X = int
Begin
X : = 1
Repeat
 Writeln ( x ) ;
X : = x + 1 ;
Until 1 = 10
End
  
     2. a.     For
X = int
Y = int   Y = 1
{  for X = 1 To 10 Do
    Y =Y + 2
}
End

     b.     While Do
Var
  X = int
  Y = int
Begin
  Y : = 1
  While Y  <= 10 Do
Begin
Writeln ( Y ) ;
 Y : = Y + 2 ;
  End ;
End

c   c.     Repeat Until
Var
  X = int
  Y = int
Begin
Y : = 1
Repeat
Y : = Y + 2 ;
   Writeln ( Y )
     Until 1 = 10
End

 

3. a.     For
Start
     X = int
     Y = int Y = 5
{  for x = 1 to 10 do
        Y = Y + 5
}
Cetak  Y
End

b.     While Do
Var
  X = int
  Y = int
Begin
   Y : = 5
 While Y  <= 10 do
Begin
Writeln ( Y ) ;
 Y : = Y + 5 ;
End ;
End
c.      Repeat Until
Var
        X = int
        Y = int
      Begin
        Y : = 5
     Repeat
     Y : = Y + 5;
     Writeln ( Y )
     Until 1 = 10
      End

4.   a.     For
Start
     X = int
     Y = int    Y = 3
{  for x = 1 to 10 do
        Y = Y * 3
}
Cetak  Y
End.

b.     While Do
Var
  X = int
  Y = int
Begin
   Y : = 3
 While Y  <= 10 do
Begin
Writeln ( Y ) ;
 Y : = Y * 3 ;
  End ;
End.

c.      Repeat- until
Var
        X = int
        Y = int
      Begin
        Y : = 5
     Repeat
     Y : = Y + 5;
     Writeln ( Y )
     Until 1 = 10
      End


5.     PSEUDOCODE
X = int
Y = int
{ for x = 1 to 4 do
     { for y = 1 to x do
                  Cetak a
end } ;
Readln ;
end }

6.     PSEUDOCODE
Var
X = int
Y = int
Begin
Clrscr :
X : = 5 ;
While x <= 5 do
Begin
Y : = 5 ;
While y <= x do
Begin ( b,” ) ;
B : = b – 1 ;
End;
Writeln ;
X : = x + 1 ;
End
Readln ;
End.





7.     PSEUDOCODE
Start
X = int
Y = int
{ for x = 1 to 5 do
      { for y = 1 to x do
Cetak ( X )
       end } ;
 Readln ;
end }

8.     PSEUDOCODE
Start
X = int
Y = int
{ for x = 1 to 3 do
{ for y = 1 to x do
Cetak ( ? )
end } ;
 Readln ;
     end }

9.     PSEUDOCODE
Start
X = int
Y = int
{ for x = 1 to 5 do
{ for y = 1 to x do
Cetak bilangan ganjil
       end } ;
 Readln ;
end }


10.            PSEUDOCODE
Start
X = int
Y = int
{ for x = 1 to 5 do
{ for y = 1 to x do
Cetak bilangan genap
       end } ;
 Readln ;
end }




Komentar

Postingan populer dari blog ini

Soal Latihan Logika Informatika

Konfigurasi EIGRP pada Router Cisco Menggunakan Packet Tracer