
Procedure TFQuickSort.Button2Click(Sender: TObject) įor indek:=0 to -1 doĭata:=StrToInt(ListBox1.Items) Procedure TFQuickSort.Button1Click(Sender: TObject) Procedure QuickSort(var A:array of integer iLo,iHi:integer) Bagi yg butuh langsung liat aje dan bagi yang ada kesulitan Nah kali ini ratih bakal nerangin bagaimana cara untuk membuat deret pola pada program delphi.

Hanya bisa dipakai di barisan bilangan yang memiliki pola.

Pasti kebenarannya Cuma kamu harus menghafal rumusnya aja tapi ingat cara ini Rumusnya yg memakan waktu cukup lama atau yang kedua kamu pake cara yang udah Yang bisa di kerjakan, pertama kamu bisa mencoba dan memikirkan bagaimana Tadi di awal ratih udah jelasin contoh-contoh barisan bilangan, nah di setiapīarisan mempunyai rumusnya masing-masing untuk menemukan rumus itu ada dua cara

kalo udah, yuk langsung aja kita coba guys.īagaimana cara mencari rumus deret bilangan, bukan cara mencari suku ke-n. Procedure TForm1.Button2Click(Sender: TObject) ģ. Procedure TForm1.Button1Click(Sender: TObject) Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,įunction ret(x:integer):integer
