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