delphi, for to do, for down to do, repeat until, while do

ini untuk segitiga ke atas dan kebawah,

tidak ada contoh, silahkan coba sendiri.

selamat mencoba...

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  memo1.Clear;

  for i:=1 to 10 do

    begin

      for j:=1 to i do

        begin

            Memo1.Lines.Text:=Memo1.Lines.Text+'*';

        end;

      Memo1.Lines.Add('');

    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  memo1.Clear;

  for i:=10 downto 1 do

    begin

      for j:=1 to i do

        begin

            Memo1.Lines.Text:=Memo1.Lines.Text+'*';

        end;

      Memo1.Lines.Add('');

    end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  memo1.Clear;

  i:=1;

  repeat

    j:=1;

    repeat

      Memo1.Lines.Text:=Memo1.Lines.Text+'*';

      inc(j);

    until j > i;

    Memo1.Lines.Add('');

    inc(i);

  until i > 10;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

  memo1.Clear;

  i:=10;

  repeat

    j:=1;

    repeat

      Memo1.Lines.Text:=Memo1.Lines.Text+'*';

      inc(j);

    until j > i;

    Memo1.Lines.Add('');

    dec(i);

  until i < 1;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  memo1.Clear;

  i:=1;

  while i <= 10 do

    begin

      j:=1;

      while j <= i do

        begin

          Memo1.Lines.Text:=Memo1.Lines.Text+'*';

          inc(j);

        end;

      Memo1.Lines.Add('');

      inc(i);

    end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

  memo1.Clear;

  i:=10;

  while i >= 1 do

    begin

      j:=1;

      while j <= i do

        begin

          Memo1.Lines.Text:=Memo1.Lines.Text+'*';

          inc(j);

        end;

      Memo1.Lines.Add('');

      dec(i);

    end;

end;

end.

procedure TForm1.Button1Click(Sender: TObject);

begin

  memo1.Clear;

  for i:=1 to 10 do

    begin

      for j:=1 to i do

        begin

            Memo1.Lines.Text:=Memo1.Lines.Text+'*';

        end;

      Memo1.Lines.Add('');

    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  memo1.Clear;

  for i:=10 downto 1 do

    begin

      for j:=1 to i do

        begin

            Memo1.Lines.Text:=Memo1.Lines.Text+'*';

        end;

      Memo1.Lines.Add('');

    end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  memo1.Clear;

  i:=1;

  repeat

    j:=1;

    repeat

      Memo1.Lines.Text:=Memo1.Lines.Text+'*';

      inc(j);

    until j > i;

    Memo1.Lines.Add('');

    inc(i);

  until i > 10;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

  memo1.Clear;

  i:=10;

  repeat

    j:=1;

    repeat

      Memo1.Lines.Text:=Memo1.Lines.Text+'*';

      inc(j);

    until j > i;

    Memo1.Lines.Add('');

    dec(i);

  until i < 1;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  memo1.Clear;

  i:=1;

  while i <= 10 do

    begin

      j:=1;

      while j <= i do

        begin

          Memo1.Lines.Text:=Memo1.Lines.Text+'*';

          inc(j);

        end;

      Memo1.Lines.Add('');

      inc(i);

    end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

  memo1.Clear;

  i:=10;

  while i >= 1 do

    begin

      j:=1;

      while j <= i do

        begin

          Memo1.Lines.Text:=Memo1.Lines.Text+'*';

          inc(j);

        end;

      Memo1.Lines.Add('');

      dec(i);

    end;

end;

end.

cerita hari ini

ada masalah nih sama anak ibu kos,
masak aku di setiap kos harus bermasalah sama yang namanya kamar mandi.
capeee dech...

profil amoy computer

demi memenuhi tugas apti( aplikasi teknologi informasi)

Amoy komputer

Nama    :    moy susanti

Alamat  :    jl. Depok Ds.Semawung 
                  rt1/rw2 Kab/kec
                  Purworejo

Bidang :    computare , aksesoris
                 computer, hardware &
                 upgrade

email     :   amoy.pesek1@gmail.com

 visi misi 

Kepuasan pelanggan adalah moto dari perusahaan kami. kepuasan pelanggan adalah motivasi kami.  one stop shoping your teknology.

Description / tentang kami 

   Perusahaan kami adalah perusahaan yang menjual berbagai komputer beserta aksesorinya. diantara seperti
1. computer hardware ( monitor, cpu, hardisk, dan segala kebutuhan yan
    dibutuhkan  komputer
2. kita juga menyediakan untuk service computer seperti hardware, install ulang  
    computer dan laptop segala merk dengan OS(windows, ubuntu/linux)
3. kami juga menjual berbagai peralatan jaringan kompter seperti switch, hub dll 
 
    dalam perusahaan kami, kami menjual dan merangkit berbagai komputer dengan berbagai spesifikasi yang dibutuhkan, mulai dari perakitan, perbaikan, sampai, upgrade os . kami mempunyai beberapa teknisi yang handal dan berpengalaman dalam bidangnya.  pemesanan dapat dilakukan dengan melalui email, melalui kontak kami atau datang langsung ketempat kami.