KAULAH HARAPAN
Sari Simorangkir
BUKAN DENGAN KEKUATANKU
KU DAPAT JALANI HIDUPKU
TANPA TUHAN YANG DI SAMPINGKU
KU TAK MAMPU SENDIRI
ENGKAULAH KUATKU
YANG MENOPANGKU
REFF :
KUPANDANG WAJAH-MU DAN BERSERU
PERTOLONGANKU DATANG DARI-MU
PEGANGLAH TANGANKU, JANGAN LEPASKAN
KAULAH HARAPAN DALAM HIDUPKU
untuk semua mahasiswa Pagi yang sedang mengambil matakuliah bahasa pemrograman I, pada thread ini saya ingin memberitahukan bahwa soal tugas besar untuk matakuliah bahasa pemrograman I ini sudah bisa didownload dari link berikut ini:
http://www.mikroskil.ac.id/~adi/2008/GENAP/TUGAS%20BESAR%20BAHASA%20PEMROGRAMAN%20I.txt
ok, silahkan dikerjakan.
Rgds
Adi
Sering sekali dalam pembuatan program, terutama program berhaluan bisnis, program harus melafalkan nilai nominal uang dalam bentuk kata – kata.
untuk itu, postingan kali ini saya coba untuk menuliskan sebuah fungsi terbilang yang akan mengubah nilai nominal uang menjadi kata – kata.
berikut ini fungsinya, (ditulis dengan menggunakan C++, dengan teknik rekursif):
void terbilang(long n, char *str) {
if(n < 10)
strcat(str, kata[n]);
else if(n >= 1000000000) {
terbilang(n / 1000000000, str);
strcat(str, " milyar ");
terbilang(n % 1000000000, str);
}
else if(n >= 1000000) {
terbilang(n / 1000000, str);
strcat(str, " juta ");
terbilang(n % 1000000, str);
}
else if(n >= 1000) {
if(n / 1000 == 1) {
strcat(str, "seribu ");
terbilang(n % 1000, str);
}
else {
terbilang(n / 1000, str);
strcat(str, " ribu ");
terbilang(n % 1000, str);
}
}
else if(n >= 100) {
if(n / 100 == 1) {
strcat(str, "seratus ");
terbilang(n % 100, str);
}
else {
terbilang(n / 100, str);
strcat(str, " ratus ");
terbilang(n % 100, str);
}
}
else if(n >= 10) {
if(n == 10)
strcat(str, "sepuluh");
else if(n == 11)
strcat(str, "sebelas");
else if(n >= 20) {
terbilang(n / 10, str);
strcat(str, " puluh ");
terbilang(n % 10, str);
}
else {
terbilang(n % 10, str);
strcat(str, " belas");
}
}
silahkan bertanya jika ada yang tidak dipahami.
Rgds
Adi
berikut ini saya lampirkan contoh penggunaan program yang menggunakan struct dan mengalami proses pengurutan:
#include <stdio.h>
#include <conio.h>
#include <string.h>
void main() {
//struct
struct Data {
int no;
char value[20];
};
struct Data x[5], temp; //variable struct Data
int i, j; //counter
//isi data
x[0].no = 4;
strcpy(x[0].value, "empat");
x[1].no = 1;
strcpy(x[1].value, "satu");
x[2].no = 2;
strcpy(x[2].value, "dua");
x[3].no = 3;
strcpy(x[3].value, "tiga");
x[4].no = 5;
strcpy(x[4].value, "lima");
//tampilkan data awal
clrscr();
printf("Data Mula - Mula : \n");
for(i = 0; i < 5; i++)
printf("%d %s\n", x[i].no, x[i].value);
//sorting
for(i = 0; i < 4; i++)
for(j = i + 1; j < 5; j++)
if(x[i].no > x[j].no) {
temp = x[i];
x[i] = x[j];
x[j] = temp;
}
//tampilkan data setelah sorting
printf("Data Setelah Sorting : \n");
for(i = 0; i < 5; i++)
printf("%d %s\n", x[i].no, x[i].value);
getch();
}
jika ada yang ingin ditanyakan, anda dipersilakan untuk bertanya.
Rgds
Adi
Teknik yang bisa digunakan untuk mengecek palindrom:
Dim str As String = "Katak"
Dim data() As Char = str.ToLower.ToCharArray
Dim i, j As Integer
Dim palin As Boolean = True
j = data.GetUpperBound(0)
For i = data.GetLowerBound(0) To data.GetUpperBound(0)
If data(i) <> data(j) Then
palin = False
Exit For
Else
j -= 1
End If
Next
If palin Then
MsgBox(str & " is palindrom")
Else
MsgBox(str & " is not palindrom")
End If
Rgds
Adi
berikut ini fitur – fitur yang bisa anda nikmati ketika anda menggunakan Visual Basic 2008 sebagai development language anda:
Rgds
Adi
Saya suka dengan Algoritma di atas :-)
Dengan membaca / belajar kita akan jadi tahu. setelah tahu, kita pun mencoba untuk mempraktekkan apa yang kita tahu tsb sehingga kita menjadi bisa. hal ini apabila dilakukan berulang – ulang akan membuat kita menjadi trampil. setelah trampil, kita akan sering diminta bantuan oleh orang yang membutuhkan, apabila kita bisa memuaskan harapan mereka, pada akhirnya mereka akan melabeli kita sebagai ahli.
Rgds,
Adi
