Minggu, 04 Januari 2015
Masih membahas tentang Repeat Until, kali ini kita memakai Repeat Until untuk pengulangan angka kuadrat. Menghitug kuadrat memakai Repeat Until lebih mudah dibanding pake kalkulator loh?
Hanya saja ada kode~kodenya gak seperti kalkulator yang langsung pencet.
Kali ini aku contohkan angka 0, 3, 8, 15...
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 :
Kalo sama berarti scriptnya benar
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 :):):)
Kalo sama berarti scriptnya benar
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 :):):)
