Soal UTS Program Komputer

Kamis, 07 November 2013

Berikut soal yang diujiankan dalam mata kuliah Program Komputer.
Semoga Bermanfaat.

Soal Nomor 2.
Dengan Menggunakan bahasa Pemprograman Delphi, buatlah Program untuk menampilkan Bilangan Fibonaci suku ke-N. Contohnya daftar bilangan fibonaci dari 1 sampai 6 : {1,1,2,3,5,8}
Selamat Mencoba!

Jawab:

procedure TForm1.Button1Click(Sender: TObject);

var

  a,b,c,n,i,l,e: Integer;

begin

  n:= StrToInt(edit1.Text);

  a:=1;

  b:=2 ;

  for i:=a to b do

  with listbox1.Items do

  add(IntTostr(a));

  l:=2;

  for i:=3 to 3 do

  with listbox1.Items do

  add(IntTostr(l));

  for i:=4 to n  do

  begin

    c:=a+b;

    a:=b;

    b:=c ;

    with listbox1.items do

    add(IntTostr(c));

    end;

end;

end.

Hasil yang diperoleh :

Inputkan angka 13 untuk memastikan apakah Program tersebut benar, berikut tampilannya :

Sipp Benar.

Soal Nomor 1.

Buat Program dalam Delphi Program menentukan berat badan yang ideal. Caranya input tinggi badan, kemudian dikurangi 100. Berat badan ideal yaitu hasil pengurangan tadi dikurangi dengan 10% hasil kali dengan proses pengurangan tadi.
Selamat Mencoba!

Jawab:

Dalam UnitPass tombol Proses yaitu seperti langkah berikut:

procedure TForm1.Button1Click(Sender: TObject);

var

  a,b,c: Real;

begin

  a:=strToFloat(edit1.text);

  b:= a-100;

  c:=b-(10/100)*b;

  edit2.Text:= FloatTostr(c);

end;

Berikut tampilan hasil yang dibuat:

Untuk memastikan program yang telah dibuat input tinggi badan, misalnya tinggi badan saya yaitu 159, maka akan muncul output seperti berikut: