Sunday, April 17, 2011

ALGORITMA DAN FLOWCHART

Algoritma adalah urutan langkah-langkah logika yang menyatakan suatu tugas dalam menyelesaikan suatu masalah.

Flowchart adalah gambaran dalam bentuk diagram alir dari algoritma-algoritma dalam suatu program yang menyatakan arah alur program tersebut.

Contoh :
Menentukan bilangan genap dan ganjil.
procedure TForm1.ProsesClick(SenderTObject);var
a : integer;
begin
a:=
strtoint(edit1.text);
if a mod 2 = 0 then
   Edit2.text:='
Genap'
else
   Edit2.text:='
Ganjil';end;
procedure TForm1.UlangClick(Sender: TObject);
begin

edit1.clear;  edit2.clear;  edit1.setfocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

Private Sub Command1_Click()

Dim a As Integer

a = CInt(Text1.Text)

If a Mod 2 = 0 Then

   Text2.Text = "Genap"

Else

   Text2.Text = "Ganjil"

End If

End Sub


Private Sub Command2_Click()

Unload Me

End Sub


Private Sub Command3_Click()

Text1.Text = " "

Text2.Text = " "

End Sub

(google.com & pelajaran perkuliahan)

No comments:

Post a Comment