UAS Program Komputer (Aplikasi Delphi)
Teman-teman tentu tau kan Program Delphi??? Ya, Program
Delphi itu merupakan salah satu bahasa pemprograman yang lajim digunakan.
Terdapat beberapa soal yang cukup sulit menurutku. Nah, jika teman-teman tau atau mau tau, yo mangga coba
lihat saja. J
11.
Program Delphi yang dapat menampilkan Bilangan kubik yang
kurang dari N.
Langkah yang kita lakukan yaitu:
Buka Program Delphi, dan buat seperti form berikut:
Secara lebih terperinci programnya sebagai berikut:
unit Unit1;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Button1:
TButton;
Edit1: TEdit;
ListBox1:
TListBox;
Label1: TLabel;
Label2: TLabel;
Button2:
TButton;
procedure Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,n,k : integer;
begin
n:=
StrToInt(edit1.text) ;
i:=1;
k:=0;
for i:=1 to n
do
begin
k:=i*i*i;
if k<n
then
listbox1.Items.add('bilangan kubik ke-'+IntTostr(i)+'='+ IntTostr(k));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.clear;
edit1.Text:= ' ';
end;
end.
Setelah melakukan pengeditan, akan diperoleh sebagai berikut:
Komentar