Program Menampilkan Bilangan Ganjil di Delphi 7

Source code Program Keseluruhan 

unit uStrukturKontrol;
interface

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


type

  TForm1 = class(TForm)
    ed1: TEdit;
    ed2: TEdit;
    edhasil: TEdit;
    bFor: TButton;
    bRepeat: TButton;
    bCase: TButton;
    label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    bIF: TButton;
    Memo1: TMemo;
    bproses: TButton;
    bGanjil: TButton;
    bBintang: TButton;
    bKelipatan: TButton;
    procedure bForClick(Sender: TObject);
    procedure bRepeatClick(Sender: TObject);
    procedure bCaseClick(Sender: TObject);
    procedure bprosesClick(Sender: TObject);
    procedure bGanjilClick(Sender: TObject);
    procedure bBintangClick(Sender: TObject);
    procedure bKelipatanClick(Sender: TObject);

private

    { Private declarations }

public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bForClick(Sender: TObject);
var i ,bil1,bil2,hasil:integer;
begin

  bil1:=StrToInt(ed1.Text);
  bil2:=StrToInt(ed2.Text);
  hasil:=0;

  for I := 0 to bil2 - 1 do
  begin
    hasil:=hasil+bil1;
  end;

  edhasil.Text:=IntToStr(hasil);
end;

procedure TForm1.bRepeatClick(Sender: TObject);
var i,bil1,bil2,hasil:Integer;
begin

  bil1:=StrToInt(ed1.Text);
  bil2:=StrToInt(ed2.Text);
  hasil:=0;
  i:=0;

  repeat
    hasil:=hasil+bil1;
    i:=i+1;
  until (i>=bil2);

  edhasil.Text:=IntToStr(hasil);
end;


procedure TForm1.bCaseClick(Sender: TObject);
var bil1:Integer;
begin

  bil1:=StrToInt(ed1.Text);

  case bil1 of
    1:edhasil.Text:='Bilangan = 1';
    2:edhasil.Text:='Bilangan = 2';
    3:edhasil.Text:='Bilangan = 3';
    4:edhasil.Text:='Bilangan = 4';
  end;
end;

procedure TForm1.bprosesClick(Sender: TObject);
begin
  Memo1.Clear;
  Memo1.Lines.Add('hallo 1');
  Memo1.Lines.Add('hallo 2');

end;

procedure TForm1.bGanjilClick(Sender: TObject);
var i,bil,ganjil:Integer;
begin
  bil:=StrToInt(ed1.Text);
  i:=1;
  Memo1.Clear;
  while i<=bil do

  begin
    ganjil:=2*i-1;
    Memo1.Lines.Add(IntToStr(ganjil));
    i:=i+1;
  end;

end;

procedure TForm1.bBintangClick(Sender: TObject);
var i,bil:Integer;
      star,hasil:String;

begin
    bil:=StrToInt(ed1.Text);
    star:='*';
    Memo1.Clear; 

     for i := 0 to bil - 1 do
     begin
        hasil:=hasil+star;
        Memo1.lines.add(hasil);

      end;

end;

procedure TForm1.bKelipatanClick(Sender: TObject);
var i,nil1,hasil:Integer;
begin
  nil1:=StrToInt(ed1.Text);
  hasil:=1;

  for i := 0 to nil1-1  do
  begin
      hasil:=hasil*nil1;

  end;
  Memo1.Clear;
  Memo1.Lines.Add(IntToStr(hasil));

end;

end.

Source Code N bilangan ganjil (button 1)

procedure TForm1.bGanjilClick(Sender: TObject);
var i,bil,ganjil:Integer;
begin
  bil:=StrToInt(ed1.Text);
  i:=1;
  Memo1.Clear;

  while i<=bil do
  begin
    ganjil:=2*i-1;
    Memo1.Lines.Add(IntToStr(ganjil));
    i:=i+1;

  end;

end;

Source Code N bilangan ganjil (button 1)

procedure TForm1.bGanjilClick(Sender: TObject);
var i,bil,ganjil:Integer;
begin
  bil:=StrToInt(ed1.Text);
  i:=1;
  Memo1.Clear;

  while i<=bil do
  begin
    ganjil:=2*i-1;
    Memo1.Lines.Add(IntToStr(ganjil));
    i:=i+1;

  end;

end;

Source Code Menampilkan Bintang 

procedure TForm1.bBintangClick(Sender: TObject);
var i,bil:Integer;
    star,hasil:String;
begin
    bil:=StrToInt(ed1.Text);
    star:='*';
    Memo1.Clear;

    for i := 0 to bil - 1 do
      begin
        hasil:=hasil+star;
        Memo1.lines.add(hasil);

      end;
end;

Source Code Kelipatan 

procedure TForm1.bKelipatanClick(Sender: TObject);
var i,nil1,hasil:Integer;
begin
  nil1:=StrToInt(ed1.Text);
  hasil:=1;

  for i := 0 to nil1-1  do
    begin
      hasil:=hasil*nil1;

    end;
    Memo1.Clear;
    Memo1.Lines.Add(IntToStr(hasil));

end;

Hasil Run

• Tweet
• Share
• Share
• Share
• Share

About Admin MC3

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post