PROGRAM APLIKASI INPUT NILAI

PROGRAM APLIKASI INPUT NILAI

• FORM

                    Adapun gambar dari form program aplikasinya seperti di bawah ini :

• SCRIPT CODE (LISTING PROGRAM)

                   Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

 unit UTS;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nim,nama,grade:string;
  TUGAS,MID,NUTS,UAS:real;
  NA:real;
implementation

uses hasil_nilai, Menu, Tentang;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.show;
  Form2.Edit2.Text:=Edit2.Text;
  nim:=Edit1.Text;
  if nim='111' then
  Edit2.Text:='Himayatul Millah' else
  if nim='112' then
  Edit2.Text:='Qonita Syarif' else
  if nim='113' then
  Edit2.Text:='Maisirotul Riska' else
  Edit2.Text:='NIM tidak terdaftar';
  TUGAS:=StrToFloat(Edit3.Text);
  MID:=StrToFloat(Edit4.Text);
  NUTS:=StrToFloat(Edit5.Text);
  UAS:=StrToFloat(Edit6.Text);
  Form2.show;
  Form2.Edit3.Text:=FloatToStr(NA);
  TUGAS:=StrToFloat(Edit3.Text)*0.1;
  MID:=StrToFloat(Edit4.Text)*0.2;
  NUTS:=StrToFloat(Edit5.Text)*0.3;
  UAS:=StrToFloat(Edit6.Text)*0.4;
  NA:=TUGAS+MID+NUTS+UAS;
  Form2.Edit3.Text:=FloatToStr(NA);

  if (NA>=80) then Form2.Edit4.Text:='Sangat Baik' else
  if (NA>=65) and (NA<80) then Form2.Edit4.Text:='Baik' else
  if (NA>=55) and (NA<65) then Form2.Edit4.Text:='Sedang' else
  if (NA>=45) and (NA<55) then Form2.Edit4.Text:='Kurang' else
  Form2.Edit4.Text:='Sangat Kurang'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Edit1.setfocus
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form3.show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Form4.show;
end;

end.

 

• FORM RUNNING PROGRAM 

                   Adapun gambar dari form running program aplikasinya seperti di bawah ini :   

Read More

INPUT DATA MENGGUNAKAN METODE QUICK SORT

PROGRAM APLIKASI

INPUT DATA MENGGUNAKAN METODE QUICK SORT

• FORM

                    Adapun gambar dari form program aplikasinya seperti di bawah ini :

 

 

• SCRIPT CODE (LISTING PROGRAM)

                   Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

unit quicksorta;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TFQuickSort = class(TForm)

    GroupBox1: TGroupBox;

    Label4: TLabel;

    Label5: TLabel;

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label2: TLabel;

    Label3: TLabel;

    ListBox2: TListBox;

    ListBox1: TListBox;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

    Data:array of integer;

  public

    { Public declarations }

  end;

var

  FQuickSort: TFQuickSort;

implementation

{$R *.dfm}

procedure QuickSort(var A:array of integer;iLo,iHi:integer);

var

  Lo,Hi,Pivot,T:integer;

begin

  Lo:=iLo;

  Hi:=iHi;

  Pivot:=A[(Lo+Hi) div 2];

  repeat

    while A[Lo]<Pivot do Inc(Lo);

    while A[Hi]>Pivot do Dec(Hi);

    if Lo<=Hi then

    begin

      T:=A[Lo];

      A[Lo]:=A[Hi];

      A[Hi]:=T;

      Inc(Lo);

      Dec(Hi);

    end;

  until Lo>Hi;

  if Hi>iLo then QuickSort(A,iLo,Hi);

  if Lo<iHi then QuickSort(A,Lo,iHi);

end;

procedure TFQuickSort.Button1Click(Sender: TObject);

var

  nilai:integer;

begin

  //menambahkan nilai ke listbox

  if TryStrToInt(Edit1.Text,Nilai) then

  ListBox1.Items.Add(IntToStr(nilai));

  //membersihkan komponen inputan nilai

  Edit1.Clear;

  //focus kursor ke inputan nilai

  Edit1.SetFocus;

end;

procedure TFQuickSort.Button2Click(Sender: TObject);

var

  indek:Word;

begin

  //menentukan panjang array

  SetLength(Data,ListBox1.Items.Count);

  //pemasukan nilai ke array

  for indek:=0 to ListBox1.Items.Count-1 do

  Data[indek]:=StrToInt(ListBox1.Items[indek]);

  //proses pengurutan/sorting

  QuickSort(data,Low(Data),High(Data));

  //kosongkan hasil

  ListBox2.Items.Clear;

  //memasukkan nilai hasil

  for indek:=0 to ListBox1.Items.Count-1 do

  ListBox2.Items.Add(IntToStr(data[indek]));

end;

procedure TFQuickSort.Button3Click(Sender: TObject);

begin

  close;

end;

      end.

• FORM RUNNING PROGRAM 

                   Adapun gambar dari form running program aplikasinya seperti di bawah ini :

Read More

PROCEDURE & FUNCTION

TUGAS

PROCEDURE & FUNCTION

• FORM

                     Adapun gambar dari form program aplikasinya seperti di bawah ini :

 

• SCRIPT CODE (LISTING PROGRAM)

                    Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

 

unit tugas4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    txtA: TEdit;

    Label2: TLabel;

    txtB: TEdit;

    Label3: TLabel;

    txtC: TEdit;

    Label4: TLabel;

    txtD: TEdit;

    Button1: TButton;

    Label5: TLabel;

    Label6: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function pangkat(x,y:integer):integer;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.pangkat(x,y:integer):integer;

var

  i,c:integer;

begin

  i:=1;

  c:=1;

  while i<=y do

  begin

    c:=c*x;

    i:=i+1;

  end;

  pangkat:=c;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  A2,B3,C3,A,B,C:integer;

  D:real;

begin

  A:=strtoint(txtA.Text);

  B:=strtoint(txtB.Text);

  C:=strtoint(txtC.Text);

  A2:=pangkat(A,2);

  B3:=pangkat(B,3);

  C3:=pangkat(C,3);

  D:=(A2+B3)/C3;

  txtD.Text:=floattostr(D);

end;

     end.

• FORM RUNNING PROGRAM

                    Adapun gambar dari form running program aplikasinya seperti di bawah ini :

 

 

Read More

MENGHITUNG PERPANGKATAN BILANGAN

PROGRAM APLIKASI

MENGHITUNG PERPANGKATAN BILANGAN

• FORM

                   Adapun gambar dari form program aplikasinya seperti di bawah ini :

• SCRIPT CODE (LISTING PROGRAM)

                  Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label4: TLabel;

    Label5: TLabel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    cmd_p1: TButton;

    cmd_p2: TButton;

    cmd_p3: TButton;

    cmd_p4: TButton;

    txt_hasil: TEdit;

    txt_pangkat: TEdit;

    txt_bil: TEdit;

    Button1: TButton;

    Button2: TButton;

    Label6: TLabel;

    procedure cmd_p1Click(Sender: TObject);

    procedure cmd_p2Click(Sender: TObject);

    procedure cmd_p3Click(Sender: TObject);

    procedure cmd_p4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

           procedure pangkat_1 (p,l:string);

           function pangkat_2 (p,l:string):string;

           function pangkat_3 (m,n:integer):integer;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmd_p1Click(Sender: TObject);

  var

    a,b,c,l:Integer;

begin

  l:=1;

  c:=1;

  a:=StrToInt(txt_pangkat.Text);

  b:=StrToInt(txt_bil.Text);

    while l<=a do

        begin

          c:=c*b;

          l:=l+1;

        end;

  txt_hasil.Text:= IntToStr(c);

  end;

procedure TForm1.pangkat_1(p,l:string);

  var

    a,b,l:integer;

      begin

        l:=1;

        c:=1;

        a:=StrToInt(p);

        b:=StrToInt(l);

          while

            begin

              c:=c*b;

              l:=l+1;

            end;

        txt_hasil.Text:= IntToStr(c);

      end;

function Tform1.pangkat_2(p,l:string):string;

  var

    a,b,l:integer;

      begin

        l:=1;

        c:=1;

        a:=StrToInt(p);

        b:=StrToInt(l);

          while l<= a do

            begin

              c:=c*b;

              l:=l+1;

            end;

      pangkat_2:=IntToStr(c);

      end;

function TForm1.pangkat_3(m,n:integer):Integer;

  var

    a,b,l:Integer;

      begin

        l:=1;

        c:=1;

          while l<= n do

            begin

              c:=c*m;

              l:=l+1;

            end;

          pangkat_3:=c;

      end;

    end;

procedure TForm1.cmd_p2Click(Sender: TObject);

begin

  pangkat_1(txt_pangkat.Text,txt_bil.Text);

end;

procedure TForm1.cmd_p3Click(Sender: TObject);

begin

  txt_hasil.Text:=pangkat_2(txt_pangkat.Text,txt_bil.Text);

end;

procedure TForm1.cmd_p4Click(Sender: TObject);

  var

    A,B,C:integer;

  begin

    A:= StrToInt(txt_bil.Text);

    B:= StrToInt(txt_pangkat.Text);

    C:= pangkat_3(A,B);

    txt_hasil.Text:=IntToStr(C);

  end;

      end.

• FORM RUNNING PROGRAM  

                  Adapun gambar dari form running program aplikasinya seperti di bawah ini : 

 

Read More

MENGHITUNG HASIL PENJUMLAHAN DERET DUA BILANGAN

TUGAS

MENGHITUNG HASIL PENJUMLAHAN DERET DUA BILANGAN

 

• Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

 

unit deret;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Button1: TButton;

    Button2: TButton;

    Label5: TLabel;

    Label6: TLabel;

    Button3: TButton;

    Label7: TLabel;

    Label8: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    function deret(x:integer):integer;

  end;

var

  Form1: TForm1;

  hasil:integer;

  D:real;

implementation

{$R *.dfm}

function TForm1.deret(x:integer):integer;

var

  i:integer;

begin

  i:=1;

  hasil:=0;

  while i<=x do

  begin

    hasil:=hasil+i;

    i:=i+1;

  end;

  deret:=hasil;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  DA,DB,DC,A,B,C:integer;

begin

  A:=strtoint(Edit1.Text);

  B:=strtoint(Edit2.Text);

  C:=strtoint(Edit3.Text);

  DA:=deret(A);

  DB:=deret(B);

  DC:=deret(C);

  D:=(DA+DB)/DC;

  Edit4.Text:=floattostr(D);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

  Edit4.Text:='';

end;

      end.

 

• FORM RUNNING PROGRAM

                    Adapun gambar dari form running program aplikasinya seperti di bawah ini :

 

Read More

DERET ARITMATIKA BILANGAN

 DERET ARITMATIKA BILANGAN

• FORM

                    Adapun gambar dari form program aplikasinya seperti di bawah ini :

• SCRIPT CODE (LISTING PROGRAM)

                   Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

unit deret;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,i,b:integer;
begin
  a:=strtoint(Edit1.Text);
  Memo1.Clear;
  i:=1;
  while i<=a do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=i+1;
  end;
end;

end.

• FORM RUNNING PROGRAM

                   Adapun gambar dari form running program aplikasinya seperti di bawah ini:

Read More

PROGRAM APLIKASI METODE REKURSI

 PERTEMUAN KE 4

PROGRAM APLIKASI

MENGGUNAKAN METODE REKURSI

• Adapun Script (listing program aplikasinya) dapat dilihat di bawah ini :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tipelarik=string[20];
  larikurut=array[1..1000] of tipelarik;

  procedure quicksort(var x :larikurut;bawah,atas:word);

var
i,j:word;
sementara:tipelarik;

begin
  while atas>bawah do
  begin
    i:=bawah;
    j:=atas;
    sementara:=x[bawah];
    {memecak larik menjadi 2 bagian}
    while i<j do
    begin
      while x[j] > sementara do
      j:=j-1;
      x[i]:=x[i];
      while (i<j)and (x[i] <= sementara) do
      i:=i+1;
      x[j]:=x[i];
    end;
    x[i]:=sementara;
    {urutkan rekursi}
    quicksort(x,bawah,i-1);
    bawah:=i+1;
    end;
  end;
    var
      nama:larikurut;
      n,i:word;
    begin
      write ('jumlah data akan diurutkan ?');readln(n);
      writeln;
      writeln ('masukkan data :');
      for i:=1 to n do
      begin
        write ('data ke',i,'?');readln(nama[i]);
      end;
      {urutkan dengan procedure quick sort}
      quicksort(nama,1,n);
      {tampilkan data yang di urut}
      writeln;
      writeln ('data yang telah urut :');
      for i :=1 to n do
      writeln(nama[i]);readln;
  end.

• FORM RUNNING PROGRAM 

 

Read More