Looping dengan For 


program loop2;
var
 i,j : integer;
 begin
  for i:=15 downto 1 do
   begin
    for j:=1 to i do
     write('*');
     writeln('');
   end;
end.

Comments

Post a Comment

Popular posts from this blog

Privacy policy

Privacy Policy Privacy Policy SMK ADZIKRO built the Movie Zone app as a Free app. This SERVICE is provided by SMK ADZIKRO at no cost and is intended for use as is. This page is used to inform website visitors regarding my policies with the collection, use, and disclosure of Personal Information if anyone decided to use my Service. If you choose to use my Service, then you agree to the collection and use of information in relation to this policy. The Personal Information that I collect is used for providing and improving the Service. I will not use or share your information with anyone except as described in this Privacy Policy. The terms used in this Privacy Policy have the same meanings as in our Terms and Conditions, which is accessible at [App Name] unless otherwise defined in this Privacy Policy. I
Read more

Cara menyimpan gambar JPEG di database MySQL Dengan Program Delphi

Image
Membuat sebuah aplikasi, alangkah indahnya apabila program yang dibuat indah dan menarik. Untuk mencapai tujuan tersebut kadang terhalang dengan cara bagaimana untuk membuatnya. Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG. Perlengkapan yang digunakan penulis : Delphi 7 Database MySQL, silahkan donlot gratis tanyakan ke bah gugel Koneksi menggunakan ZEOS silahkan donlot dimari Langkah 1 Masuk ke MySQL buat database beserta tablenya  Create database jpeg;    Use jpeg;    Create table contoh( Nomor int auto_increment, Nama varchar(10), Photo longBlob, primary        key(nomor)); Langkah 2 Jalankan delphi 7 buat desain seperti berikut ini Langkah 3 Masukan scripnya procedure TForm1.FormCreate(Sender: TObject); begin   ZConnection1.Connect;   ZTable1.Open; end; procedure TForm1.Image1DblClick(Sender: TObject); var op : TOpenPictureDialog; str : TStream; begin op := TOpenPictureDialog.Create(self)
Read more