Program Hitung Untuk XE

1. Cobalah untuk membuat program XD yang mendeklarasikan variabel.
- Menu --> bertipe Integer
- A, B, Total --> bertipe real

Kemudian pada bagian pernyataan isilah;
- Menu Manghitung Rumus Matematika.
- Menu 1.Prnjumlahan.
- Menu 2.Perkalian.
- menu 3.Pengurangan.
- Menu 4.Pembagian.
- Menu 5.Keluar program.

Terakhir kali, tampilkan salah satu MENU yang dipilih.

Gunakanlah struktur program dibawah ini.

Program XE;
Uses Crt;
Var
Menu : integer;
-----------------------------
begin
Writeln ('Menu Menghitung Rumus Matematika');
Writeln ('Menu 1.Penjumlahan');
-----------------------------------
-----------------------------------
-----------------------------------
Writeln ('Menu 5. Program Keluar');
readln (menu);

Case menu of

1: Begin
Writeln ('Masukkan Nilai A');
Read (A);
--------------
end;

2: Begin
--------------
--------------
--------------
end;

3: Begin
--------------
--------------
--------------
end;

4.begin
--------------
--------------
--------------

5: Writeln ('Program keluar');
end;
end.

Read more »

Program X E

1. Cobalah untuk membuat program XE yang mendeklarasikan variabel.
- Menu --> bertipe Integer
- r,t,L, SelimutTabung,LuasTabung,LuasTabung_tapa_tutup,LuasSelimutTabung -------> bertipe real

Kemudian pada bagian pernyataan isilah;
- Menu ManghitungLuas Tabung.
- Menu 1.Luas selimur Tabung
- Menu 2.Luas seluruh Tabung.
- menu 3.Luas Tabung tanpa Tutup.
- Menu 4. Keluar dari program.

Terakhir kali, tampilkan salah satu menu yang dipilih.

Ketentuan Rumus Tanung
Luas selimut tabung = 2 * phi * r * t
Luas Tabung Tanpa Tutup = phi * r * r + 2 * phi * r * t
Luas Seluruh Tabung = 2 * phi * r + phi * r * t
Gunakanlah struktur program dibawah ini.

Read more »

Program mencari;
uses wincrt;
var
dafbil:array[1..100] of inte;
terbesar :int;
terkecil :int;
i,n :integer;
begin

write('Masukkan cacah bilangan =');read(n);
{terbesar:=-999;
terkecil:=999;- -->ini hanya berlaku apabila nilai bilangan
antara -999 s/d 999}
{terbesar:=dafbil[1];
terkecil:=bil[1];--> akan menyebabkan yang terkecil selalu
0(nol) apabila nilai semua bilangan lebih besar dari 0(nol)}

for i:= 1 to n do
begin
write('Bilangan ke ',i,' = ');read(dafbil[X]);
end;
terbesar:=bil[1];
terkecil:=bil[1];
for i:= 2 to n do
if dafbil[i] > terbesar then
terbesar:=bil[X]
{for i:= 2 to n do}
else

if dafbil[i] < terkecil then terkecil:=bil[X]; write('Bilangan terbesar =',terbesar); write('Bilangan terkecil =',terkecil); end.

Read more »

Program 01

Kerjakanlah Program Dibawah dan Cari kesalahan program tersebut?
Kemudian berikan batasan tidak ada angka dibelakang koma pada Gaji, Total dan Tunjangan.
setelah itu berikan Rata-rata pada prongram tersebut.
.......................................................................................

Var
Ttl, Gaji, Tunjangan : real ;
Jumlahnak : integer ;
Keterangan : string [25] ;
Begin
Gaj : = 500000 ;
Jmlahnak : = 3 ;
Tunjangan : = 0.25 * Gaji + Jumlahanak * 30000 ;
Total : = Gaji + Tunjangan ;
Keterangan : = ‘Karyawan Teladan’ ;
Writeln ( Gaji bulanan = Rp. ‘ , Gaji ) ;
Writeln ( ‘ Tunjangan = Rp. ‘ , Tunjngan ) ;
Writeln ( ‘ Total gaji = Rp. ‘ Ttal ) ;
Writeln ( ‘ Keterangan = Rp. ‘ , Keterangan ) ;
End .

Read more »

Kata kata mutiara

Kata – kata Mutiara (English dan Bahasa Indonesia) :

Smile is the shortest distance between two people.
Senyum adalah jarak yang terdekat antara dua manusia .

You have to endure caterpillars if you want to see butterflies. (Antoine De Saint)
Anda harus tahan terhadap ulat jika ingin dapat melihat kupu-kupu. (Antoine De Saint) Only the man who is in the truth is a free man.
Hanya orang yang berada dalam kebenaranlah orang yang bebas.
Every dark light is followed by a light morning.
Malam yang gelap selalu diikuti pagi yang tenang.
Laughing is healthy, especially if you laugh about yourself.
Tertawa itu sehat, lebih-lebih jika mentertawakan diri sendiri.
The danger of small mistakes is that those mistakes are not always small.
Bahayanya kesalahan-kesalahan kecil adalah bahwa kesalahan-kesalahan itu tidak selalu kecil.
Kesalahan kecil bisa mengakibatkan kesalahan yang lebih besar. Bersamaan dengan kesalahan itu, persoalannya bisa menjadi besar pula. Maka kesalahan kecil pun harus segera dibetulkan.
To be silent is the biggest art in a conversation.
Sikap diam adalah seni yang terhebat dalam suatu pembicaraan.
The worst in the business world is the situation of no decision. (Napoleon).
Yang terparah dalam dunia usaha adalah keadaan tidak ada keputusan. (Napoleon).
Dig a well before you become thirsty.
Galilah sumur sebelum Anda merasa haus.
Good manners consist of small sacrifices.
Sopan – santun yang baik yang terdiri dari pengorbanan –pengorbanan kecil.
IDEAS ARE ONLY SEEDS, TO PICK THE CROPS NEEDS PERSPIRATION.
GAGASAN-GAGASAN HANYALAH BIBIT, MENUAI HASILNYA MEMBUTUHKAN KERINGAT.
LAZINESS MAKES A MAN SO SLOW THAT POV ERTY SOON OVERTAKE HIM.
KEMALASAN MEMBUAT SESEORANG BEGITU LAMBAN SEHINGGA KEMISKINAN SEGERA MENYUSUL.
THOSE WHO ARE ABLE TO CONTROL THEIR RAGE CAN CONQUER THEIR MOST SERIOUS ENEMY.
SIAPA YANG DAPAT MENAHAN MARAHNYA MAMPU MENGALAHKAN MUSUHNYA YANG PALING BERBAHAYA.
KNOWLEDGE AND SKILLS ARE TOOLS, THE WORKMAN IS CHARACTER.
PENGETAHUAN DAN KETERAMPILAN ADALAH ALAT, YANG MENENTUKAN SUKSES ADALAH TABIAT.
A HEALTHY MAN HAS A HUNDRED WISHES, A SICK MAN HAS ONLY ONE.
ORANG YANG SEHAT MEMPUNYAI SERATUS KEINGINAN, ORANG YANG SAKIT HANYA PUNYA SATU KEINGINAN
A MEDICAL DOCTOR MAKES ONE HEALTHY, THE NATURE CREATES THE HEALTH. (Aristoteles)
SEORANG DOKTER MENYEMBUHKAN, DAN ALAM YANG MENCIPTAKAN KESEHATAN. (Aristoteles)
THE MAN WHO SAYS HE NEVER HAS TIME IS THE LAZIEST MAN.(Lichtenberg)
ORANG YANG MENGATAKAN TIDAK PUNYA WAKTU ADALAH ORANG YANG PEMALAS.(Lichterberg)
POLITENESS IS THE OIL WHICH REDUCES THE FRICTION AGAINST EACH OTHER. (Demokritus).
SOPAN-SANTU ADALAH IBARAT MINYAK YANG MENGURANGI GESEKAN SATU DENGAN YANG LAIN. (Demokritus).
A DROP OF INK CAN MOVE A MILLION PEOPLE TO THINK.
SETETES TINTA BISA MENGGERAKAN SEJUTA MANUSIA UNTUK BERFIKIR.
WE CAN TAKE FROM OUR LIFE UP TO WHAT WE PUT TO IT.
APA YANG BISA KITA DAPAT DARI KEHIDUPAN KITA TERGANTUNG DARI APA YANG KITA MASUKKAN KE SITU.
REAL POWER DOES NOT HIT HARD, BUT STRAIGHT TO THE POINT.
KEKUATAN YANG SESUNGGUHNYA TIDAK MEMUKUL DENGAN KERAS, TETAPI TEPAT SASARAN
IF YOU LEAVE EVERYTHING TO YOUR GOOD LUCK, THEN YOU MAKE YOUR LIFE A LOTTERY.
JIKA ANDA MENGANTUNGKAN DIRI PADA KEBERUNTUNGAN SAJA, ANDA MEMBUAT HIDUP ANDA SEPERTI LOTERE.
BEING CAREFUL IN JUDGING AN OPINION IS A SIGN OF WISDOM.
KEHATI-HATIAN DALAM MENILAI PENDAPAT ORANG ADALAH CIRI KEMATANGAN JIWA.
YOU RECOGNIZE BIRDS FROM THEIR SINGGING, YOU DO PEOPLE FROM THEIR TALKS.
BURUNG DIKENAL DARI NYANYIANNYA, MANUSIA DARI KATA-KATANYA.
ONE OUNCE OF PREVENT IS EQUAL TO ONE POUND OF MEDICINE.
SATU ONS PENCEGAHAN SAMA NILAINYA DENGAN SATU PON OBAT.

Read more »