Contoh Program DELPHI Menggunakan IF

Sebenarnya setiap logika pemrograman itu sama, dan bahkan tidak ada yang berbeda. Namun dalam konsep pembuatannya itu yang berbeda. Logika yang kita gunakan semuanya adalah logika aritmatika, dan dari jaman dulu smpai sekarang logika itupun belum berubah. tetapi ada juga yang menyatakan JIKA ("IF") dan kemudian MAKA ("THEN") setelah itu didapatkan sebuah keputusan dari logika yang sudah kita tulis didalam program. Berikut adalah salah stu contoh program delphi yang menggunakan IF.

Kalau mau COPY Sourch Codenya MONGGO... :D

procedure TForm1.Button1Click(Sender: TObject);
var tb, u, bi, ipa, mtk : Integer;
   hasil : string;
begin
  tb:=StrToInt(Edit1.Text);
  u:=StrToInt(Edit2.Text);
  bi:=StrToInt(Edit3.Text);
  ipa:=StrToInt(Edit4.Text);
  mtk:=StrToInt(Edit5.Text);
  if (tb>150) and (u<50) and (bi>60) and ((ipa>70) or (mtk>70))
  then hasil:='Diterima'

  else
    hasil:='Tidak Diterima';
    Edit6.Text:=hasil;
end;

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

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