Pengulangan Angka Kuadrat Menggunakan Repeat Until

Masih membahas tentang Repeat Until, kali ini kita memakai Repeat Until untuk pengulangan angka kuadrat. Menghitung kuadrat memakai Repeat Until lebih mudah dibanding pake kalkulator loh? HAHAHA
Hanya saja ada kode~kodenya gak seperti kalkulator yang langsung pencet.
Kali ini aku contohkan angka 0, 3, 8, 15...
Biar lebih mudah maksudnyaaaaa?? Heheh :D



Tanpa Basa~basi langsung saja aku kasih scriptnya...

uses

  SysUtils;

var

  I,A:integer;

begin

  writeln('PERULANGAN KUADRAT MENGGUNAKAN REPEAT UNTIL');

  writeln('================================================');

  I :=1;

  repeat

    A :=SQR(I)-1;

    writeln(A);

    I :=I+1;

  until I>10;

  readln;

end.

Masukkan ke pemrograman Delphi seperti biasa, kurang lebih seperti dibawah ini.

Jalankan programnya, dan seperti inilah tampilannya...

Sama kan hasilnya dengan apa yang kita inginkan :D
Kalo sama berarti scriptnya benar hehe xD

Ohyaa.. buat yang gak tau SQR, ini aku jelasin sedikit..

"SQR(Square) & SQRT(square Root) adalah fungsi kuadrat dan akar kuadrat yang tersedia dalam Turbo Pascal. Argument fungsi SQR boleh berupa Variable atau KOnstanta yang bertipe real atau integer, dengan hasil yang tipenya sesuai dengan tipe argument. Sedangkan argument fungsi SQRT boleh variable/ kontstanta yang bertipe real/ integer, tetapi hasilnya harus bertipe real."

Sekian dulu sharingnya kali ini, semoga bermanfaat :):):)
Wassalamu'alaikum.....