LATIHAN UAS PEMROGRAMAN 1

LATIHAN SOAL PEMROGRAMAN 1

11. Buatlah program yang dapat melakukan perkalian dua buah bilangan bulat, namun di dalamnya hanya terdapat operator  + ( tidak diperkenankan menggunakan operator  * ). Gunakan tiga buah jenis pengulangan for, while dan repeat until !

                                                                                       

22.  Terdapat program dibawah ini :

Var

i, hasil : integer;

begin

hasil := 1;

for i := 10 to 10 do begin

i := i + 1;

hasil := hasil + i;

end;

writeln(hasil);

end.

Pada program diatas, berapakah nilai yang akan ditampilkan dilayar monitor? Jelaskan? Jika tidak ada nilai, jelaskan ?

33. Buatlah pemrograman pascal dengan menggunakan statement repeat – until yang dapat menentukan nilai pembagi bersama terbesar ( factor persekutuan terbesar ) dari dua buah bilangan  dengan hasil keluaran sebagai berikut: ( Contoh jika bilangan pertama 16 dan bilangan kedua 24 ).

Masukkan bilangan pertama          :  16 Masukakan bilangan kedua            :  24 Pembagi bersama terbesar = 8

44.  Buatlah pemrograman pascal dengan menggunakan statement While-do yang dapat menampilkan bilangan ganjil antara 1 .. 20 dengan hasil output adalah sebagai berikut :

1               3       5      7       9      11      13      15      17      19

55. Terdapat elemen Array  A[1] sampai A[5] dengan indeks array 1 – 5 dan terdapat nilai elemen array sebagai berikut:

Array  A
1	75
2	73
3	78
4	81
5	80

Buatlah pemrograman pascal dengan menggunakan metode beruntun apabila data yang dicari ditemukan dalam array maka program akan menampilkan  indeks dimana data tersebut berada, sebaliknya apabila data tidak ditemukan maka program akan mengembalikan indeks nol.

                                           SELAMAT MENCOBA .... ^_^