Posts filed under 'Tugas Kuliah'

Konversi basis bilangan menggunakan rekursif

#include <stdio.h>
char ch[17] = “0123456789ABCDEF”;
void CetakBaseN(int base,int nilai)
{
if (nilai == 0) //jika nilai sudah 0 maka keluar
return;
CetakBaseN(base,nilai / base);
printf(“%c”,ch[nilai % base]);
}
void main(void)
{
CetakBaseN(2,255); printf(“\n”);
CetakBaseN(8,255); printf(“\n”);
CetakBaseN(10,255); printf(“\n”);
CetakBaseN(16,255); printf(“\n”);
}

Add comment April 8, 2008

Contoh – contoh Program TURBO C

/* Contoh Program Menghitung Luas Lingkaran */

# include < stdio.h >

main()

{

float l,r;

clrscr();

Printf ( ” Menghitung Luas Lingkaran \n “);

Printf ( ” =========================\n “);

Printf ( ” Masukkan Nilai Jari – Jari : “);

scanf ( “%f”,&r);

l=3.14*r*r;

printf (” Luas Lingkaran = % 6.2%f”,l);

getch();

}

/* Contoh Program Menghitung Luas Segitiga */

# include < stdio.h >

main()

{

float L,a,t;

clrscr();

Printf ( ” Menghitung Luas Segitiga \n “);

Printf ( ” =========================\n “);

Printf ( ” Masukkan Nilai alas : “); scanf ( “%f”,&a);

Printf ( ” Masukkan Nilai tinggi : “); scanf ( “%f”,&t);

L = 0.5*a*t;

printf (” Luas Segitiga = % 6.2%f”,L);

getch();

}

/* Contoh Program Menggunakan Fungsi */

# include < stdio.h>

# include <conio.h >

main ()

{

hpslyr();

cw ( ” contoh Program Fungsi “, GREEN);

cw ( ” Press Any Key to Exit “, GREEN + BLINK);

getch();

}

hpslyr()

{

clrscr();

}

cw(teks,warna)

{

printf(“\n”);

textcolor(warna);

cprintf(text);

}

/* Menghitung Luas Lingkaran */

# include < stdio.h>

#include <conio.h>

main()

{

float luaslink,j ;

wlyr (BLUE)

cw (“Menghitung Luas Lingkaran “);

cw (“Masukkan nilai r : “,YELLOW );

scanf(” % f “,& j);

luaslink=luaslink(j);

cprintf ( ” Luas lingkaran = % .2f”,luaslink);

cw ( ” Press Any Key to Exit “, GREEN + BLINK);

getch();

}

wlyr(warna )

{

Textbackground(warna);

clrscr();

}

cw(teks,warna);

{

printf(“\n”);

textcolor(warna);

}luas link (r)

float r;

{

return (3.14*r*r);

}

Add comment April 8, 2008


Kategori

 

Desember 2009
S S R K J S M
« Apr    
 123456
78910111213
14151617181920
21222324252627
28293031  

Tulisan Terakhir

Komentar Terakhir

Pengemar Mu di Ku Kenal Dirimu

Klik tertinggi

Arsip