Seputar Ilmu

#include <iostream> #include <math.h> using namespace std; int main() { int a, b, c; float D, x, x1, x2; cout<<"Nilai a : ";cin>>a; if(a==0) cout<<"bukan persamaan kuadrat"; else{ cout<<"nilai b : ";cin>>b; cout<<"nilai c : ";cin>>c; D=(b*b)-(4*a*c); if(D<0) cout<<"akar-akarnya imajiner"<<endl; else if (D==0){ x=(-b/2)*a; cout<<"akar-akarnya kembar : "<<x; } else{ cout<<"akar-akarnya berbeda"; x1=(-b+(sqrt(D)))/2*a; x2=(-b-(sqrt(D)))/2*a; cout<<"x1 : "<<x1<<endl; cout<<"x2 : "<<x2; } } return 0; }

#include <iostream> using namespace std; int main() { int i, premium, pertamax, biosolar; cout<<"---------------------------------------------------------"<<endl; cout<<"| L\t|\t"<<"premium\t|\t"<<"pertamax|"<<" biosolar\t|"<<endl; cout<<"---------------------------------------------------------"<<endl; for(i=1;i<=100;i++){ premium=7400*i; pertamax=8600*i; biosolar=6900*i; cout<<"| "<<i<<"\t|\t"<<premium<<"\t|\t"<<pertamax<<"\t|\t"<<biosolar<<"\t|"<<endl; } cout<<"---------------------------------------------------------"<<endl; return 0; }

#include <iostream> using namespace std; int main() { int pilihan, R1,R2,R3; float Rs, Rp; cout<<"PILIHAN : "<<endl; cout<<"1. SERI"<<endl; cout<<"2. PARALEL"<<endl; cout<<"masukkan pilihan anda (1/2) : ";cin>>pilihan; switch (pilihan){ case 1: cout<<"R1 : ";cin>>R1; cout<<"R2 : ";cin>>R2; cout<<"R3 : ";cin>>R3; Rs=R1+R2+R3; cout<<"Total rangkaian seri : "<<Rs<<endl; break; case 2: cout<<"R1 : ";cin>>R1; cout<<"R2 : ";cin>>R2; cout<<"R3 : ";cin>>R3; Rp=(1/((1/R1) + (1/R2) + (1/R3))); cout<<"Total rangkaian paralel : "<<Rp<<endl; break; } return 0; }

Program Rangkaian_Listrik; {dibaca 3 tahanan R1,R2 dan R3 kemudian tampilkan rangkaian total dalam seri atau paralel} var         pilihan:integer;         R1, R2, R3, Rs, Rp:real; begin         writeln('PILIHAN : ');         writeln('1. SERI');         writeln('2. PARALEL');         write('masukkan pilihan anda (1/2) : ');readln(pilihan);         case pilihan of           1 : begin                 write('R1 : ');readln(R1);                 write('R2 : ');readln(R2);                 write('R3 : ');readln(R3);                 Rs:=(R1 + R2 + R3);                 writeln('Total rangkaian seri :',Rs);         ...

B5              A5    G5                                        D5 It's been a while, we sat here with a glass of wine                   A5                     B5        - A5 -  We don't seem much happier today G5              A5   D5        B5                     ...

Resep Memasak - Tahu adalah makanan yang dibuat dari endapan perasan biji kedelai yang mengalami koagulasi. Tahu berasal dari Tiongkok, seperti halnya kecap, tauco, bakpau, dan bakso. Nama "tahu" merupakan serapan dari bahasa Hokkian (tauhu) (Hanzi: ??, hanyu pinyin: doufu), yang secara harfiah berarti "kedelai terfermentasi". Tahu telah dikenal di Tiongkok sejak zaman dinasti Han sekitar 2200 tahun lalu. Penemunya adalah Liu An (Hanzi: ??) yang merupakan seorang bangsawan, cucu dari Kaisar Han Gaozu, Liu Bang yang mendirikan dinasti Han. Versi tahu yang dikenal di Jepang adalah tofu. Tofu lebih lunak dan kurang tahan terhadap pengolahan. Tofu dan tahu dibawa para perantau Cina ke seluruh penjuru dunia sehingga menyebar ke Asia Timur dan Asia Tenggara, lalu juga akhirnya ke seluruh dunia. ( sumber : id.wikipedia.org/wiki/Tahu ) ilustrasi martabak tahu Pastinya anda sudah pernah makan tahu :),  tapi apa kalian sudah pernah makan Martabak Tahu ?. Cara membuat martaba...

Berikut ini adalah source code Program Gaji pegawai menggunakan bahasa Pascal. program Gaji_Pegawai; {Dibaca data pegawai dengan tabel NIK, Nama, JK, Jam Kerja, Gaji akan diolah datanya dengan soal: 1. Menginputkan data, 2. Mencetak data, 3. Jam Kerja Minimum, 4. Jam Kerja maksimum, 5. Rata-rata jam kerja, 6. banyaknya karyawan yang lembur, 7. banyaknya karyawan yang jam kerjanya    48 jam. Program ini dibuat oleh NIM.1400018214-SRI WAHYUNI dengan JUJUR  pada tanggal 30 Mei 2015} uses crt; const Nmaks=500; type   karyawan=record         nama, nik : string[25];         jk : char;         jamkerja:integer;         gaji : longint;   end;   karyawanArray=array[1..Nmaks] of karyawan; procedure BacaPegawai(N:integer; var krywan:karyawanArray); var    i : integer; begin     for i:=1 to N do ...