Program faktorial dengan repeat untilFactorial program using repeat until

Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut: program HitungFaktorial4; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write(‘Masukkan sebuah bilangan: ‘); Readln(n); faktorial:=1; if (n0) then begin i:=1; repeat faktorial:=faktorial*i; i:=i+1; until (i>n); end; Write(‘Faktorial dari ‘,n); Writeln(‘ adalah ‘,faktorial); Writeln(‘Tekan Enter’); Readln; end. Perhatikan bahwa kita tidak membutuhkan begin dan end;…

Program faktorial dengan while doFactorial program using while do

Selain dengan menggunakan perulangan for, kita juga bisa menghitung faktorial dengan perulangan while do seperti contoh berikut: program HitungFaktorial3; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write(‘Masukkan sebuah bilangan: ‘); Readln(n); faktorial:=1; if (n0) then begin i:=1; while (i

Variasi program faktorialVariation of factorial program

Aksi setelah then pada pernyataan if pada contoh program sebelumnya hanya merupakan statemen tunggal, jadi tidak diperlukan begin dan end;. Akan tetapi aksi setelah else merupakan aksi dengan statemen yang majemuk, jadi dibutuhkan begin dan end;. Perhatikan statemen pertama pada blok else. Statemen tersebut adalah statemen faktorial:=1 yang merupakan statemen yang sama dengan statemen pada…

Perulangan dan PercabanganRepetition and Branch

Dalam pemrograman, seringkali sebuah program harus mengulang sebuah aksi yang sama secara berulang. Salah satu contoh program yang melakukan perhitungan menggunakan perulangan adalah pada contoh program menghitung faktorial. Sebuah ekspresi n! (dibaca n faktorial) adalah hasil perkalian dari bilangan 1 hingga n. Sebagai contoh, 5! Adalah hasil dari 1x2x3x4x5. Khusus untuk bilangan 0, pengertiannya tidaklah…

Membaca MasukanReading Input

Setelah kita melakukan percobaan bagaimana menuliskan pesan ke keluaran console, sekarang kita juga akan membaca masukan dari pengguna. Pada percobaan ini kita menggunakan beberapa variabel. Buatlah sebuah aplikasi console dengan cara seperti pada contoh sebelumnya. Setelah itu, buatlah listing program seperti berikut ini: program HitungUmur; {$APPTYPE CONSOLE} var Nama:string; TahunSekarang,TahunLahir,Umur:integer; begin //proses pengambilan data Write(‘Masukkan…

Hello World – DelphiHello World – Delphi

Aplikasi console adalah aplikasi yang tidak banyak melibatkan tampilan. Sebelum kita lanjutkan mengenai pengenalan komponen-komponen Delphi, ada baiknya kita melakukan percobaan-percobaan console untuk mendapatkan gambaran mengenai aspek-aspek pemrograman Delphi. Jika Anda telah mengenal Pascal, maka Anda boleh melewati bagian ini tanpa kehilangan apapun yang berarti. Susunan program Sebuah program Delphi memiliki susunan sebagai berikut: program…

Memulai DelphiGetting Started – Delphi

Pada saat pertama kali Anda menjalankan Delphi, tampilan yang muncul kurang lebih adalah sebagai berikut: Form Form adalah tampilan dari program yang Anda buat. Cobalah untuk menjalankan program dengan menekan tombol F9. Anda akan melihat sebuah jendela program yang masih kosong. Tentu saja masih kosong karena Anda belum menambahkan apapun kedalamnya. Meskipun demikian program tersebut…

Pengaman Sepeda Motor dengan Kombinasi Lampu RitingMotorbike Safeguard using Combination on Turn Signal Switch

Pengaman sepeda motor dengan kombinasi penyalaan lampu riting. Sepeda motor hanya bisa dihidupkan setelah lampu riting dinyalakan dengan kombinasi tertentu. Jika kombinasi benar, maka sepeda motor bisa dihidupkan, jika kombinasi salah, sepeda motor tidak bisa dihidupkan.Motorcycle safeguard with a combination of turn signal switch. A motorcycle can only be switched on after the turn signal are lit with a particular combination. If the combination is correct, then the bike could be turned on, if the combination is wrong, motorcycles cannot be turned on.