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 :
Jangan dilewatkan yyyy....
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....
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 :
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%
- 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
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.