2.1 PEMROGRAMAN BORLAND DELPHI 7

Diposting oleh Unknown komentar (2)
 2.1 Tugas pemrograman delphi 7
Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang pertama kali ini adalah tentang "membuat program dengan menampilkan grade nilai dengan menggunakan statement case of " dengan kriteria:
nilai 0 s/d 25 Grade = E
nilai 26 s/d 55 Grade = D
nilai 56 s/d 75 Grade = C
nilai 76 s/d 85 Grade = B
nilai >86 Grade = A

dengan menggunakan basis teks maka inilah langkah-langkah mengerjakan delphi 7 :

  • pertama mulailah membuka program delphi 7
  • setelah terbuka pilih menu file > new > other 
  • kemudian akan tampil kotak new items > console application

  • setelah muncul kotak script maka tulislah script tersebut, seperti :
program nilaigrade;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  nilai:integer;
  grade, ket:string;

begin
  write ('masukkan nilai anda = '); readln(nilai);
case nilai of
  0..25 : begin grade:='E'; ket:='jelek' end;
  26..55 : begin grade:='D'; ket:='kurang' end;
  56..75 : begin grade:='C'; ket:='cukup' end;
  76..85 : begin grade:='B'; ket:='baik' end;
  else
  begin grade:='A'; ket:='amat baik' end;

end;
  writeln('Grade = ',grade);
  writeln('keterengan = ',ket);
  readln;

end.

  • jalankan program tersebut dengan run program atau F9 dan akan muncul kotak basis teks seperti di bawah ini :


nilai 24 grade E keterangan "jelek"


nilai 48 grade D keterangan "kurang"



nilai 68 grade C keterangan "cukup"


nilai 83 grade B keterangan "baik"



nilai 99 grade A keterangan "amat baik"


  • dan yang terakhir adalah save jika diperlukan

nama saya : Aisyah Ar-Rudhowi...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.1 dan akan dilanjutkan tugas delphi dengan nomer urut 2.2...

Jangan dilewatkan yyyy....

 

2.2 PEMROGRAMAN BORLAND DELPHI 7

Diposting oleh Unknown komentar (0)
2.2 Tugas pemrograman delphi 7
             
   Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2, diberi tugas oleh dosen mata kuliah dengan tugas "membuat tugas bebas dengan menggunakan case of  minimal tiga pencabangan dengan basis teks" dan kali ini saya mencoba membuat progam tentang potongan harga, karena saya belum pernah belajar tentang ini di sekolah saya dulu SMA maka mohon dimaklumi jika progam saya kurang menarik ya..bagi para pembaca..
Kriteria progam saya:
- Pembeli akan mendapat potongan harga jika barang yang dibeli memenuhi harga yang telah ditentukan di    bawah ini :

  • 200.000 - 500.000 mendapat potongan 30%
  • 600.000 - 1.000.000 mendapat potongan 50%
  • >1.000.000 mendapat potongan 60%
Berikut cara membuat program tersebut:
  • pertama mulailah membuka program delphi 7
  • setelah terbuka pilih menu file > new > other 

  • akan muncul kotak new items > console application



    • setelah muncul kotak script tulislah script pada kotak tersebut
    program jumlahdiskon;

    {$APPTYPE CONSOLE}

    uses
      SysUtils;

    var
      nilai:integer;
      ket, potongan:string;

    begin
      write ('masukkan jumlah harga = Rp.'); readln(nilai);

    case nilai of
      200000..500000 : begin ket:='selamat anda mendapat potongan';
      potongan:='30%' end;
      600000..1000000 : begin ket:='selamat anda mendapat potongan';
      potongan:='50%' end;
      else
      begin ket:='selamat anda mendapat potongan';potongan:='60%' end;

    end;
      writeln('keterangan = ', ket);
      writeln('jumlah potongan yang didapat = Rp. ', potongan);
      readln;

    end.


    • jalankan program tersebut dengan "run program" atau F9 dan akan muncul kotak basis teks seperti berikut.



    gambar runing program


    harga 345.000 dengan potongan 30%


    harga 673.000 dengan potongan 50%


    harga 2.348.000 dengan potongan 60%



    • dan yang terakhir adalah save jika diperlukan
    Nama saya : Aisyah Ar-Rudhowi ...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2

    Sekian tugas yang 2 tunggu tugas-tugas yang lain y.......

     

    Diposting oleh Unknown komentar (0)

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm1 = class(TForm)
        Masukkan_Nilai: TLabel;
        txtNilai: TEdit;
        Keterangan: TLabel;
        txtstatus: TEdit;
        cmdHasil: TButton;
        Label3: TLabel;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        procedure cmdHasilClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.cmdHasilClick(Sender: TObject);
    Var
      nl:integer;
    begin
      nl := strtoint(txtNilai.text);
      if nl >70 then txtstatus.Text := 'Lulus'
      else txtstatus.Text := 'Tidak lulus';

    end;

    end.