unit Ukondisional;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Ebatas: TEdit;
    Brepeat: TButton;
    Bwhile: TButton;
    Bfor: TButton;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    Bfortingkat: TButton;
    lbhasil: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BrepeatClick(Sender: TObject);
    procedure BwhileClick(Sender: TObject);
    procedure BforClick(Sender: TObject);
    procedure BfortingkatClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var jam:integer;
begin

jam := strtoint(Edit1.Text);

if (jam>=0) and (jam<=12) then
  Edit2.Text:='AM'
else if (jam>12) and (jam<=24) then
  Edit2.Text:='PM'
else
  Edit2.Text:='Angka Harus 0-24';

end;

procedure TForm1.Button2Click(Sender: TObject);
var jam:integer;
begin
jam := strtoint(edit1.Text);
case jam of
  1..10: Edit2.Text:='Selamat Pagi';
  11..15: Edit2.Text:='Selamat Siang';
  16..18: Edit2.Text:='Selamat Petang';
  19..24: Edit2.Text:='Selamat Malam';
  0: Edit2.Text:='Selamat Malam';
else
  Edit2.Text:='Angka Harus 0-24';
end;


end;

procedure TForm1.BrepeatClick(Sender: TObject);
var i : integer;
begin
lbhasil.Items.Clear;
i := StrToInt(Ebatas.Text);
repeat
 lbhasil.Items.Add(IntToStr(i)+' repeat..until');
 i := i-1;
until (i<=0);
end;

procedure TForm1.BwhileClick(Sender: TObject);
var i:integer;
begin
lbhasil.Items.Clear;
i:= StrToInt(Ebatas.Text);
while (i>0) do
begin
  LBHasil.Items.Add(IntToStr(i)+' while..do');
  i:=i-1;
end;
end;

procedure TForm1.BforClick(Sender: TObject);
var i,j:integer;
begin
  LBhasil.Items.Clear;
  i := StrToInt(Ebatas.Text);
  for  j:=1  to i do
  begin
    LBHasil.Items.Add(IntToStr(i)+' for..Do');
    i:=i-1;
  end;
end;

procedure TForm1.BfortingkatClick(Sender: TObject);
var i,j,k:integer;
begin
  LBhasil.Items.Clear;
  i := StrToInt(Ebatas.Text);
  for  j:=1  to i do
    for  k:=1 to 3 do
      begin
        Lbhasil.Items.Add(IntToStr(j)+' '+
        IntToStr(k)+' for..Do..Tingkat');
      end;
end;

end.