Ane ada tugas nih gan dari dosen. Tugasnya disuruh buat program dengan pascal. Bingung sih nama programnya apa, tapi ane jelasin cara kerjanya. Cara kerjanya jika kita menginputkan angka 1, maka akan keluar tulisan "satu", input angka 11 maka keluar "sebelas", jika menginput 123 maka keluar "seratus dua puluh tiga", begitu seterusnya. Maksimal 3 digit, berarti maxsimal 999. Tolong pencerahannya gan. Gak ngerti nih, baru belajar langsung dikasih tugas begituan
Mungkin agan bisa mempelajari syntaxnya dari blog berikut : http://wpancoro.mhs.uksw.edu/2013/10/membuat-konversi-terbilang-di-pascal.html atau bisa mendownload file dari blog ini: http://zaidproject.blogspot.com/2012/10/angka-terbilang-free-pascal.html . CMIIW
Original Posted By adityacs►Ane ada tugas nih gan dari dosen. Tugasnya disuruh buat program dengan pascal. Bingung sih nama programnya apa, tapi ane jelasin cara kerjanya. Cara kerjanya jika kita menginputkan angka 1, maka akan keluar tulisan "satu", input angka 11 maka keluar "sebelas", jika menginput 123 maka keluar "seratus dua puluh tiga", begitu seterusnya. Maksimal 3 digit, berarti maxsimal 999. Tolong pencerahannya gan. Gak ngerti nih, baru belajar langsung dikasih tugas begituan
For hitung = Len(angka) To 1 Step -1
kanan.s = Right(angka, hitung)
kiri.s = namaAngka(Left(kanan, 1))
If hitung = 3
If kiri = "satu"
hasil + "se"
Else
hasil + kiri
EndIf
hasil + "ratus "
ElseIf hitung = 2
If kiri = "satu"
hitung - 1
hasil + namaAngka(Right(kanan, 1))
hasil + " " + "belas "
Else
hasil + kiri
hasil + " " + "puluh "
EndIf
ElseIf hitung = 1
hasil + kiri
EndIf
Next hitung
Debug hasil
Procedure.s namaAngka(isi.s)
Select Val(isi)
Case 1
ProcedureReturn "satu"
Case 2
ProcedureReturn "dua"
Case 3
ProcedureReturn "tiga"
Case 4
ProcedureReturn "empat"
Case 5
ProcedureReturn "lima"
Case 6
ProcedureReturn "enam"
Case 7
ProcedureReturn "tujuh"
Case 8
ProcedureReturn "delapan"
Case 9
ProcedureReturn "sembilan"
EndSelect
EndProcedure
yg dalam variabel angka lebih dari 3 digit di kecualikan..
udah di tes kok, buat nyoba kode gw, download aja nih versi demo compiler nya PureBasic di http://www.purebasic.com/download.php
