*Buka program delphi
*setelah itu klik run program untuk membuat delphi
*Kemudian
buat document baru degan memilih
( file – new – other - Console
Application )
*setelah itu Masukkan script seperti di bawah ini :
cara1
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n:integer;
begin
write('Masukkan Nilai = '); readln(n);
if (n>=0) and (n<=25) then write('Nilai E');
if (n>=26) and (n<=55) then write('Nilai D');
if (n>=56) and (n<=70) then write('Nilai C');
if (n>=71) and (n<=85) then write('Nilai B');
if n>85 then write ('Nilai A');
readln
end.
*klik Run (F9) untuk melihat apakah script itu dapat berjalan atau tidak.
*Setelah itu muncul tampilan seperti di atas.
*Masukkan angka 0-25 maka akan muncul Nilai E
*Jika angka 26-55 maka akan muncul Nilai D
* Jika angka 56-70 maka akan muncul Nilai C
*Jika angka 71-85 maka akan muncul Nilai B
*Jika angka lebih dari 85 maka akan muncul Nilai A. Seperti berikut ini :
SELESAI................
cara2
program cara2;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
n:integer;
begin
write('Masukkan Nilai ='); readln(n);
if n>85 then write('Nilai A') else
if n>70 then write('Nilai B') else
if n>55 then write('Nilai C') else
if n>26 then write('Nilai D') else
write('Nilai E');
readln
end.
*klik Run (F9) untuk melihat apakah script itu dapat berjalan atau tidak.
*Setelah itu muncul tampilan seperti di atas.
*Masukkan angka 0- 26 maka akan muncul Nilai E
*Jika angka <55 maka akan muncul Nilai D
* Jika angka <70 maka akan muncul Nilai C
*Jika angka <85 maka akan muncul Nilai B
*Jika angka >85 maka akan muncul Nilai A. Seperti berikut ini :
Terima Kasih........
Selamat Mencoba Sob :D
0 komentar:
Posting Komentar
Tinggalkan jejak kalian dengan menulis komentar, saran, ataupun kritiknya ya sob . Gunakan karakter seperti :a: untuk menambahkan emoticon..