Tutorial Delphi 7 sederhana (Flow chart)

 udah pada tau gak nih apa itu program delphi?? kalau udah tau,, aku punya scripnya nih sob..
langsung aja yukk sob...
Ceeekiddoootttt... :D
 

Pertama-tama buka Dulu Program delphi  

Setelah itu akan muncul tampilan seperti ini :: 

  Pilih Run program

             Buka  file>new>Console aplication untuk membuat lembaran baru>ok 

        #Copas Script di bawah untuk anda Pelajari#

program tugas2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  n : integer;

  grade,ket : string;

begin

  write('Masukkan Nilai Anda = '); readln(n);

  case n of

  0..25 :

  begin

  grade :='E';

  ket :='Sangat kurang';

  end;

  26..55 :

  begin

  grade :='D';

  ket :='Kurang';

  end;

  56..75 :

  begin

  grade :='C';

  ket :='Cukup';

  end;

  76..85 :

  begin

  grade :='B';

  ket :='Memuaskan';

  end;

  else

  grade :='A';

  ket :='Sangat Memuaskan';

  end;

writeln('Grade               = ',grade);

writeln('Keterangan          = ',ket);

readln

end.

Selanjutnya tekan F9 untuk menjalankan nya

   Masukkan nilai yang anda inginkan

  Maka akan muncul tampilan seperti di bawah ini :

.. Semoga Bermanfaat Sob ..

 Untuk Program Delphi di Atas Menggunakan Flow Chart Seperti ini Sob ::

Selamat Mencoba Guys... :) 
Tetap Semangat Buatt BeLajar Yaa.. Cemungutt...Cemunguttt :D

TUTORIAL SEDERHANA MENGGUNAKAN BAHASA PEMPOGRAMAN (DELPHI)

*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