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
</div>
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
</div>