Contoh Penggunaan memo pada Delphi

1.       Menggunakan Memo

r Rumusnya

 

          

Ø  Cari Ganjil

procedure TForm1.Button1Click(Sender: TObject);

   var

                i,bill, N : integer;

   begin

memo1.Clear ;

i:=1;

   repeat

                N := strtoint(bilangan.Text);

                 bill:= 2*i-1 ;

   memo1.Lines.Add(floattostr(bill));

                i:= i+1

   until i> N

   end;

Ø  Cari Genap

procedure TForm1.Button3Click(Sender: TObject);

   var

I, Bill, N : integer;

   Begin

memo1.Clear;

I :=1;

   repeat

N := strtoint(bilangan.Text);

bill:=  2*I ;

   memo1.Lines.Add(floattostr(bill));

                I := i + 1;

   until I >= N ;

   end;

   end.

Ø  Cari Fibonansi

procedure TForm1.DeretClick(Sender: TObject);

   var

N , I, F1, F2, F : integer ;

   begin

N := strtoint (bilangan.text);

memo1.Clear;

    if N = 1 then

                memo1.Lines.Add('1')

    else

      If N = 2 then

    begin

                memo1.Lines.add ('1');

                memo1.Lines.add ('1');

    end

         else

         If N > 2 then

         Begin

                F1 := 1;

                F2 := 1;

                 I := 3;

                memo1.Lines.add ('1');

                memo1.Lines.add ('1');

         

end;

             while I <= N do

             begin

                F:= F1+F2;

                memo1.Lines.Add(floattostr(F));

                F1:= F2;

                F2 := F ;

                I := I + 1 ;

           end;

        end;

Ø  Cari Faktorial

procedure TForm1.Button2Click(Sender: TObject);

     var

I, fak : Integer;

     begin

memo1.Clear;

I :=  1;

fak := 1;

     repeat

                fak := fak * I;

                I := I + 1 ;

    memo1.Lines.Add(floattostr(fak)) ;

    until I> strtoint(bilangan.Text);

    end;

Ø  Mereset Hasil

procedure TForm1.Button5Click(Sender: TObject);

    begin

                bilangan.text:= '';

                memo1.clear;

    end;

Ø  Mengeluarkan Program

procedure TForm1.Button4Click(Sender: TObject);

    begin

close;

    end;