Tutorial Delphi7 sederhana
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
end.
- 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
0 komentar:
Post a Comment