maksud saya di rubah for to do menjadi repeat until ,, uses wincrt; var a, b, bil : byte; lagi : string; begin lagi := 'Y'; while (lagi ='Y') or (lagi ='y') do begin write('berapa baris ? '); readln(bil); for a:=1 to bil do begin for b:=1 to 5 do begin wri...
mau nanya para agan2 yg jago pascal gimana yaa merubah coding di ini jadi rumus REPEAT UNTIL : uses wincrt; var a, b, bil : byte; lagi : string; begin lagi := 'Y'; while (lagi ='Y') or (lagi ='y') do begin write('berapa baris ? '); readln(bil); for a:=1 to ...
mau nanya para agan2 yg jago pascal gimana yaa merubah coding di ini jadi rumus REPEAT UNTIL : uses wincrt; var a, b, bil : byte; lagi : string; begin lagi := 'Y'; while (lagi ='Y') or (lagi ='y') do begin write('berapa baris ? '); readln(bil); for a:=1 to ...
alhamdulillah sdh mau gan :iloveindonesias mau nanya gan gimana bikin code di bawah ini tp pake rumus REPEAT UNTIL : uses wincrt; var a, b, bil : byte; lagi : string; begin lagi := 'Y'; while (lagi ='Y') or (lagi ='y') do begin write('berapa baris ? '); re...
makin bingun saya gan dengan code penjelasan agan yg ini : h:=LEBAJAP_RCSA + s + s + s { s = spasi,,, s = L,,,, s = A } maksud agan saya bikin code TERPISAH yaa kalau mau bikin SPASI hasil yg ke 2 itu :cystg mohon pencerahannya ya gan, maaf saya agak lambat nyerap pelajaran agan, maklum msh bel...
maksud saya gini gan, saya mau hasil ke 2 seperti ini : CODE] Kalimat : BELAJAR PASCAL Hasil 1 : RAJALEB PASCAL Hasil 2 : LEBAJAP RCSA LA (memakai spasi) dan punya saya tdk pakai 2 spasi yg hasil ke 2 kaya di bawah : CODE] Kalimat : BELAJAR PASCAL Hasil 1 : RAJALEB PASCAL Hasil 2 : LEBAJAP RCSAL...
makasih gan, tp kenapa yaa hasil yg ke 2 yg RCSALA gak pakai spasi kaya OUTPUT di bawah : Kalimat : BELAJAR PASCAL Hasil 1 : RAJALEB PASCAL Hasil 2 : LEBAJAP RCSALA mohon penjelasannya ya gan !!!
saya mau bikin OUTPUT gini gan : Kalimat : BELAJAR PASCAL Hasil 1 : RAJALEB PASCAL Hasil 2 : LEBAJAP RCSA LA dan sudah saya coba dgn rumus gini : Uses wincrt; var s,h,d: string; a,b,c,loop: byte; begin clrscr; write('kalimat: '); readln(s); \tfor c:=length(s) downto 1 do begin d:=d+...
di pertengahan instalasi terjadi erro alita bluescreen gan . oy, driver nya buat windows xp agan dpt dr mana ?? kan di kaset driver asal ny cm buat windows 7 !!
kalo windows 7 berat gan, mka nya saya mau pindah ke windows xp ,, kalo aja agan punya trik instalasi ny, soalnya sy udah cb tp bluescreen terus aliyas error,,
mau nanya gan, netbook punya saya Asus Eee PC 1215P tp gak bs di instal windows XP SP 1, 2 dan 3 .. kalo Windows Xp Dark Edition bs gak ya gan , soal ny blm di coba ??? mohon info nya yaa :iloveindonesias
iya gan, makasih sebelumnya udah mau bantu :cendolb oy, mau nanya lagi gan bikin output gini : ketikan bilangan : 43 \t\t Empat Puluh Tiga ketikan bilangan : 73 \t\t Tujuh Puluh Tiga kali aja agan bs kasih pencerahannya :iloveindonesias
ini coding buatan saya gan : uses wincrt; var n, x, i, c, z, y, b, s, v:integer; lagi: string; begin clrscr; lagi := 'Y'; while (lagi = 'Y') or (lagi = 'y') do begin write('Berapa baris ? '); readln(n); writeln; b := 1; c := 1; i := 1; s := 1; while (i <...
tp kalo make DOWN TO tidak bs di dalam rumus WHILE DO malah error gan ?? mohon penjelasannya gan :iloveindonesia
makasih gan, sdh mau jalan.. oy, yg saya susah sekali bikin pakai WHILE DO gan OUTPUT ini, gagal mulu bikinnya : 1 121 12321 1234321 123454321 mohon bantuannya gan :iloveindonesias
:shakehand2 tp gimana gan kalo outputnya gini : 1 111 11111 111111111 mohon pencerahannya gan, kalo makae WHILE DO :iloveindonesias
ini coding di pascal saya gan : uses wincrt; var a, b, bil : byte; lagi : string; begin lagi := 'Y'; while (lagi ='Y') or (lagi ='y') do begin write('berapa baris ? '); readln(bil); for a:=1 to bil do begin for b:=1 to 5 do begin write(' '); end; ...
ini hasil coding yg saya buat di pascal gan: uses wincrt; var a,b,c,x,z, kol, bar :integer; kar : string; begin clrscr; write('Karakter? '); readln(kar); write('Input? '); readln(x); write('Hasilnya '); writeln; kol:=x; bar:=4; c :=1; for c:=1 to x do begin begin for...
tp saya pake code FOR TO DO gan .. uses wincrt; var max, brs, a, b, x: integer; begin clrscr; write('Input : '); readln(max); writeln('Hasil -->'); brs:= 1; b := 1; x := 20; gotoxy(x,wherey); for a := 1 to max do begin write(a:3); if a=b then begin inc(brs); b := b+(2 * br...
