LRT

MEMBUAT PROGRAM APLIKASI KALKULATOR SEDERHANA Kali ane mau berbagi program aplikasi kalkulator sederhana, langsung aja yahhh…. Pertama saya menggunakan Delphi 2010 Kedua saya memasangkan Alpha Controls Delphi (versi 7.12) supaya tampilannya kayak dibawah ini kaga’ standar. Ketiga lanjut codingnya :! Label ada 4, Edit text ada 3, dan button ada 7. A.       Tampilan Formnya -           B.       Source Code Button Tambah procedure TForm1.tambahClick(Sender: TObject); begin   bilpertama := strtofloat(bilsatu.text);   bilkedua := strtofloat(bildua.Text);   hasil.Text := floattostr(bilpertama + bilkedua); end; C.       Source Code Button Kurang procedure TForm1.kurangClick(Sender: TObject); begin   bilpertama := strtofloat(bilsatu.text);   bilkedua := strtofloat(bildua.Text);   hasil.Text := floattostr(bilpertama - bilkedua); end; D.       Source Code Button Bagi procedure TForm1.bagiClick(Sender: TObject); begin   bilpertama := strto

Kali ini ane mau ngeposting salah satu dari program yang ane dah buat yaitu program menghitung banyak element yang kita input kemudian Jumlah datanya, Rata-ratanya, Terkecil, dan Terbesar.. semoga bermanfaat yah.. jgn cuma ngopas tapi pelajari tiap codenya yah broo... bagi ilmuu yuukkkk.... shared juga yoo kalau perlu... :) #include <iostream> #include <conio.h> int main () { int a = 0; int i; int sum = 0, max = 0, min = 0; int *p; cout << "Banyaknya element yang akan diinput :"; cin >> a; p = new int[a]; if (!p)     cout<<"Alokasi tidak berhasil \n"; else { int data[100]; for(i=0; i<a; i++) { cout << "Input element ke "; cout << i+1; cout << " : "; cin >> p[i]; } cout << "\n data yang anda masukan adalah "; max = min = p[0]; for(i=0; i<a; i++) { cout << p[i] << ','; sum = sum + p[i]; if (max < p[i]) { max = p[i];