Percaya dan Semangat
Kalo kita percaya dan yakin apa yang tidak mungkin,mau di kucilin mau gimana aja tetep aja ga bakal ngerubah apapun kalo kita percaya dan terus bekerja keras. Semangat seperti pahlawan yang terus maju dan tak mudah menyerah itulah yang bisa membawa kita menuju sukses.
Keyakinan dan semangat lah yang bisa membawa kita meraih mimpi kita dari yang dianggap mustahil bisa menjadi kenyataan.
So,buat teman-teman jangan mudah menyerah yah, percaya saja atas apa yang ada pada diri kita bisa jadi dari kekurangan kita mungkin itulah yang bisa menjadi kelebihan kita. Tetap Semangat dan nothing to lose aja.
#include
BalasHapusvoid main()
{
float radius,keliling,luas;
printf("**************************************\n");
printf("\n PROGRAM LINGKARAN\n");
printf("**************************************\n");
printf("Masukan Jari-jari : ");
scanf("%f", &radius);
keliling = 2*3.14f*radius;
luas = 0.5f*3.14f*radius*radius;
printf("\n data lingkaran\n");
printf("jari-jari=%8.2f\n",radius);
printf("keliling=%8.2f\n",keliling);
printf("luas=%8.2f\n",luas);
#include
BalasHapusint main (void){
int a,b,c,D;
printf("massukan nilai a = "); scanf("%d",&a);
printf("massukan nilai b = "); scanf("%d",&b);
printf("massukan nilai c = "); scanf("%d",&c);
D=(b*b)-4*a*c;
printf("\nDeterminan=%d",D);
return D;
}
/*contoh program variabel global*/
BalasHapus#include
int x=10;
void TampilkanNilaiX(void){
printf("Nilai x yang dipanggil dari fungsi TampilkanNiliax()\t:%d\n",x);
}
int main(void){
printf("Nilai x yang dipanggil dari fungsi main()\t\t\t:%d\n",x);
return 0;
}
/*contoh program variabel global*/
BalasHapus#include
int x=10;
int main(void){
printf("Nilai x yang dipanggil dari fungsi TampilkanNiliax()\t:%d\n",x);
printf("Nilai x yang dipanggil dari fungsimain()\t\t\t:%d\n",x);
return 0;
}
#include
BalasHapusint main(int arg, char * argv[])
{
int a,b,c,d,e,f,g,pilih;
char jawab;
printf( "Pilihlah operasi yang akan dipilih : ");
printf("1. Penjumlahan");
printf("2. Pengurangan");
printf("3. Perkalian ");
printf("4. Pembagian");
printf("5. Hasil bagi");
printf("Masukkan pilihan = ");
scanf("%d",&pilih);
if(pilih ==1)
{
printf("Masukkan nilai pertama : ");
scanf("%d",&a) ;
printf("Masukkan nilai kedua : ");
scanf("%d",&b) ;
c=a+b;
printf("\nhasil=%d",c);
}
if ( pilih == 2)
{
printf("Masukkan nilai pertama : ");
scanf("%d",&a) ;
printf("Masukkan nilai kedua : ");
scanf("%d",&b) ;
c=a-b;
printf("\nhasil=%d",c);
}
if ( pilih == 3)
{
printf("Masukkan nilai pertama : ");
scanf("%d",&a) ;
printf("Masukkan nilai kedua : ");
scanf("%d",&b) ;
c=a*b;
printf("\nhasil=%d",c);
}
if ( pilih == 4 )
{
printf("Masukkan nilai pertama : ");
scanf("%d",&a) ;
printf("Masukkan nilai kedua : ");
scanf("%d",&b) ;
c=a/b;
printf("\nhasil=%d",c);
}
}
var
BalasHapusn:Byte;
a:string;
begin
write('Masukkan nama : ');
Readln(a);
write('Nilai Anda : ');
repeat
Readln(n);
until(n>=0)and(n<=100);
if(n>=85)and(n<=100)then
write('Anda Mendapat Grade A')else
if(n>=75)and(n<85)then
write('Anda Mendapat Grade B')else
if(n>=65)and(n<75)then
write('Anda Mendapat Grade C')else
if(n>=55)and(n<65)then
write('Anda Mendapat Grade D')else
write('Anda Mendapat Grade E');
Readln;
end.
Option Explicit
BalasHapusDim operasi1, operasi2 As Double
Dim operator As String
Dim HapusTampilan As Boolean
Private Sub angka_Click(Index As Integer)
If HapusTampilan Then
label1.Caption = " "
HapusTampilan = False
End If
label1.Caption = label1.Caption + angka(Index).Caption
End Sub
Private Sub Bagi_Click()
operasi1 = Val(lebel1.Caption)
operator = "/"
label1.Caption = ""
End Sub
Private Sub Command1_Click()
operasi1 = Val(lebel1.Caption)
operator = "^"
label1.Caption = " "
End Sub
Private Sub Desimal_Click()
If HapusTampilan Then
label1.Caption = ""
HapusTampilan = False
End If
If InStr(label1.Caption, ".") Then
Exit Sub
Else
label1.Caption = label1.Caption + "."
End If
End Sub
Private Sub Kali_Click()
operasi1 = Val(label1.Caption)
operator = "*"
label1.Caption = " "
End Sub
Private Sub Kurang_Click()
operasi1 = Val(label1.Caption)
operator = "-"
label1.Caption = " "
End Sub
Private Sub SamaDengan_Click()
Dim hasil As Double
On Error GoTo errorhandler
operasi2 = Val(label1.Caption)
If operator = "+" Then hasil = operasi1 + operasi2
If operator = "-" Then hasil = operasi1 - operasi2
If operator = "*" Then hasil = operasi1 * operasi2
If operator = "/" And operasi2 <> "0" Then hasil = operasi1 / operasi2
label1.Caption = hasil
HapusTampilan = True
Exit Sub
errorhandler:
MsgBox "Hitungan menghasilkan kesalahan berikut" & vbCrLf & Err.Description
label1.Caption = "salah"
HapusTampilan = True
End Sub
Private Sub SatuPer_Click()
If Val(label1.Caption) <> 0 Then
label1.Caption = 1 / Val(label1.Caption)
End If
End Sub
Private Sub Tambah_Click()
operasi1 = Val(label1.Caption)
operator = "+"
label1.Caption = " "
End Sub
Private Sub TambahKurang_Click()
operasi1 = -Val(label1.Caption)
End Sub
Private Sub tblhapus_Click()
label1.Caption = ""
End Sub
#include
BalasHapusvoid main()
{
enum negara {
USA, UK, Germany, India, China, Japan,
Philippines, Malaysia, Singapore, Thailand,
Indonesia, Others
};
enum mata_uang {
randData1 = 1, randData2 =11, randData3 =12,
randData4 = 13, randData5 =14
};
printf("Germany: %d\n", LocGermany);
printf("India: %d\n", LocIndia);
printf("randData2: %d\n", randData2);
printf("randData5: %d\n", randData5);
}
#include
BalasHapusenum Bulan {JAN = 1, FEB, MAR, APR, MEI, JUN, JUL, AGU, SEP, OKT, NOP, DES};
main() {
enum bulan Bulan;
char *namaBulan[] = {"", "Januari", "Pebruari", "Maret", "April", "Mei", "Juni", "Juli","Agustus", "September", "Oktober", "Nopember", "Desember" };
for ( Bulan = JAN ; Bulan <= DES ; Bulan++ )
printf( "%2d%11s\n", Bulan, namaBulan[Bulan] );
return 0;
}