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
- kemudian coba kita masukkan nilai misalnya 87 maka akan muncul seperti ini
selesai... hehehe
- kemudian untuk cara yang ke 2, copas script berikut
Cara 2
program cara2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n:integer;
begin
write(' Masukkan Nilai Anda = '); readln(n);
if n>85 then write(' Anda mendapatkan Nilai " A "')else
if n>70 then write(' Anda mendapatkan Nilai " B "')else
if n>55 then write(' Anda mendapatkan Nilai " C "')else
if n>26 then write(' Anda mendapatkan Nilai " D "')else
write(' Anda mendapatkan Nilai "E"');
readln
- kemudia tekan F9 untuk menRunning
- maka akan muncul seperti berikut
- kemudian coba kita masukkan nilai misalnya 45 maka akan muncul seperti ini
selesai...
sekian tutorial sederhana dari saya, untuk saran dan kritiknya bisa di komentar....
Terimah Kasih
http://ilmumumed.blogspot.com
