Percabangan IF

Assalamualaikum Temen Temen Semua,  Salam  Luar Biasa Untuk Hari ini.  Hari ini kita share Belajar Materi Delphi 7 lagi nih yang akan kita bahas kali ini ialah Mengenal Fungsi Percabangan IF pada Delphi 7. Gak usah panjang lebar wes Langsung aja mulai prakteknya  biar gak lama deh.

Ini  Contoh  persoalan  Program yang akan di buat

Nilai 0-50  Grade = E

Nilai 26-55 Grade = D

Nilai 56-75 Grade = C

Nilai 76-85 Grade = B

Nilai 86-100 Grade = A

Ini kalau igin buat Flocatnya

klik start ====èpilih  all program pilih borland delphi 7.Atau pilih dekstop ====è Pada icon, lalu klik 2 kali/tekan enter pada keyboard, tungu proses kemudian  akan muncul program delphi 7gambar dibawah ini,karena ini membuat program berbasis text  maka langkah selanjutnya

Klik > File>New>Other> kemudiaan akan muncul seperti di bawah ini lalu klik Console Application

Kemudiaan muncul tampilan seperti di bawah ini

Kemudian ketik kan sekrip Percabangan IF

VAR

  nilai:integer;

  GRADE:STRING;

begin

    write('nilai=');readln(nilai);

    if nilai IN [0..25] then GRADE:='E' else;

    if nilai IN [26..55] then GRADE:='D' else;

    if nilai IN [56..75] then GRADE:='C' else;

    if nilai IN [76..85] then GRADE:='B' else;

    if nilai IN [86..100] then GRADE:='A';

    WRITELN('GRADE=',GRADE);{ TODO -oUser -cConsole Main : Insert code here }

READLN

end.

Kalau ingin menjalankan atau mengetahui script yg kita ketik tadi benar klik run(Berfungsi untuk menjalankan program yang buat)

Apa bila tidak mengunakan If Bisa juga dengan  mengunakan  Case Of, contoh membuat ProgamCase Of

Ini  script  apabila mengunakan  Case Of di bawah ini

VAR

  BB :integer;

  Discont,Sofenir:STRING;

begin

    write('Bayak Barang yang di Beli=');readln(BB);

    case BB of

    0..65:

      begin

      Discont:='3%';

           Sofenir:='Balon';

      end;

    66..80:

      begin

      Discont:='5%';

           Sofenir:='Gelas Cantik';

       end;

    ELSE

    Discont:='10%';

          Sofenir:='Piring Cantik ';

      end;

      WRITELN('Discont=',Discont,' Sofenir=',Sofenir);{ TODO -oUser -cConsole Main : Insert code here }

      READLN

 

Kalau ingin menjalankan atau mengetahui script yg kita ketik tadi benar klik run(Berfungsi untuk menjalankan program yang buat)

Gimana mudahkan