Tanya Loop Array Pascal

[Darkc0der]

yang master pascal disini, gw minta tolong ya



gw dapet tugas kuliah bikin program yang jelas pake array



script nya :


Code:

I:= 1;
y:=5;
repeat
X1[i] := X1H[1] + X2H[1] * X2[i-1];
X2[i] := X1H[2] + X2H[2] * X1[i];
R[i] := abs((X[i] - X[i-1])/X[i]);
gotoxy(1,Y); write(' | ' , X1[i]);
gotoxy(6,Y); write(' | ' , X2[i]);
gotoxy(12,Y); write(' | ' , R[i]);
i := i + 1;
y := y + 1;
until R[i] < E

gw gak nulis semua script nya disini, sebelumnya masih ada untuk mencari nilai var X1H, X2H, asumsikan saja sudah diketahui nilainya



Nah gan , programnya itu akan berakhir kalau nilai dari var R[i] itu lebih kecil dari konstanta E = 0,01, maka akan terus berulang perhitungan-nya, nanti bentuknya akan keluar kayak tabel, terus kebawah.



Tapi gw bingung gan ternyata looping array pake repeat until , setelah semua statement di dalam bagian repeat nya selesai



semua nilai array X1[i], X2[i] , maupun R[i] Dibalikin ke 0



misal nih X1[i] = 1,6 X2[i] = 1,16 R[i] = 1,0

saat pencetakan, output keluar dengan benar, namun program gak melakukan looping ya karena habis pencetakan itu, semua nilai var array nya beubah ke 0



sehingga gak akan terjadi loop, karena program menganggap nilai R[i] = 0



yang berarti TRUE kalau R[i] < E







kalau gw coba pake loop for do , bisa berulang cuma untuk nentuin syarat R[i] < E nya ane bingung



program itu digunakan untuk mencari persamaan Linear untuk X1, X2







dan setelah gw coba lagi bikin program yang lebih sederhana , loop array pake repeat until, sama hasilnya gan.



semua nilai dalam array di balikin ke 0 semua setelah statement nya selesai



solusi nya ya gan , ane udah stuck banget nih