Selamat malam Gan....
Kali ini saya akan membuat tutorial tentang pencarian tahun kabisat
pada pemrogaman DELPHI 7..
Pertama Buat desain seperti ini :
Kemudian atur propertinya seperti ini :
Bab 1
Perintah Percabangan (If....Then....Else dan Case...of )
Percabangan mrupakan suatu perintah bersyarat dimana komputer
melakukan suatu aksi tertentu bila suatu kondisi terpenuhi. Bahasa Pascal
menyediakan dua cara penyajian perintah bersyarat, yaitu If…Then…Else dan Case…Of.
1. If ... Then ... Else
Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan
sederhana (antara 2 atau lebih cabang). dimana kondisi yang menjadi
prasyaratnya melibatkan lebih dari satu parameter.
Bentuk sintaks dari perintah
bersyarat ini adalah:
If <kondisi_pencabangan1> then
Begin
… {aksi-1}
end
else
If <kondisi_pencabangan2> then
Begin
… {aksi-2}
end
else
Begin
… {aksi-3}
End;
Untuk contoh programnya buwat desain form seperti dibawah ini :
kali ini saya akan berbagi tentang tutorial bahasa pascal menggunakan delphi7.
jika sebelumnya saya membuwat tutorial sederhana menggunakan bahasa pemoragaman pascal menggunakan rumus
if, sekarang saya akan menggunakan
case of .
sebagai programer, sebelum membuwat sebuah program alangkah baiknya jika kita membuwat
Flow Chart nya terlebih dahulu.... karena
Flow Chart adalah sebuah rancangan alur program yang akan kita buwat...
ok, langsumg saja. saya akan membuwat sebuah program sederhana tentang penilaian nilai...
- - Yang pertama desain Flow Chart nya... seperti di bawah ini...
- - Buka dulu program delphinya, Kemudian buat document baru dengan memilih
( file – new – other - Console Application )
- - Kemudian copas scrip berikut :
Kali ini
saya akan berbagi sedikit ilmu tentang pembuatan progam sederhana menggunakan
DELPHI 7, Misalnya kita akan membuat program penilaian. Disini saya akan
menjelaskan dua cara perumusan tpi hasilnya sama. Ok lansung saja saya mulai.
- - Yang
pertama buka dulu program delphinya
- - Kemudian
buat document baru dengan memilih
( file – new – other - Console
Application )
- - Kemudian copas scrip berikut
Cara 1
program
cara1;
{$APPTYPE
CONSOLE}
uses
SysUtils;
var
n:integer;
begin
write(' Masukkan Nilai Anda = '); readln(n);
if (n>=0) and (n<=25) then write(' Anda
mendapatkan Nilai " E "');
if (n>=26) and (n<=55) then write('
Anda mendapatkan Nilai " D "');
if (n>=56) and (n<=70) then write('
Anda mendapatkan Nilai " C "');
if (n>=71) and (n<=85) then write('
Anda mendapatkan Nilai " B "');
if n>85 then write(' Anda mendapatkan
Nilai " A "');
readln
end.
- kemudia tekan F9 untuk menRunning
- maka akan muncul seperti berikut
Pepatah mengatakan Tuntutlah Ilmu hingga ke negri cina.
jadi buat kawan-kawan
jangan pernah menyerah dan berhenti dalam mencari ilmu. karena ilmu tidak pernah habis dan tidak mungkin pernah bisa habis.
jadi intinya, jangan pernah puas dengan ilmu yang kita miliki ... hehehe
Footer Widget
There is, one knows not what sweet mystery about this sea, whose gently awful stirrings seem to speak of some hidden soul beneath; like those fabled undulations of the Ephesian sod over the buried Evangelist St. John. And meet it is, that over these sea-pastures