Archive for 2014
Dalam Bahasa Sunda
*Obrolan Eneng sareng AA
Eneng : Assalammualaikum ?
AA : Wa'alaikumsalam.
Eneng : A punteun , pangdorongkeunlah itu mogok ! se'ep bahan bakarna cigana mah.
AA : Oh kitu , seep bensin panginten nya ?
Eneng : Eunya panginten
AA : Nya hayu atuh ku AA pang dorongkeun ka pom bensin nya ?
Eneng : Beneran A ? iih sieun ngarepotkeun. ^-^
AA : Muhun beneran , kanggo eneng mah naon sih nu heunteu.
Eneng : Nya hayu atuh, itu diparkirkeun di pengkolan caket stop-an !
AA : Oh, lumayan jauh geuningan, nya hayu !
(Barang Nepi Di pengkolan)
AA : Di palih mana Neng ?
Eneng : Itu, anu warna koneng, eta teh kendaraan eneng.
AA : Mobil itu sanes ?
( Bari nunjuk ka mobil Lamborghini anu warna koneng di sisieun STUM )Eneng : Sanes AA, eta anu di sisieunnana. Hayu A pang dorongkeun !
AA : Aaah gelo meureun, dorong sorangan ah.
hahahha
Dalam Bahasa Indonesia
*Percakapan Eneng dengan AA
Eneng : Assalammualaikum ?
AA : Wa'alaikumsalam.
Eneng : Permisi A, tolong dorong itu mogok ! sepertinya habis bahan bakarnya.
AA : Oh gitu, sepertinya habis bensinnya ya ?
Eneng : Sepertinya iya.
AA : Iya ayo kalo gitu, AA dorongkan ke pom bensin ya ?
Eneng : Beneran A ? Aduuh takut ngerepotin. ^-^
AA : Iya beneran, buat eneng apa sih yang engga.
Eneng : Iya ayo A, itu diparkir di belokan dekat stopan !
AA : Oh, lumayan jauh ternyata, ya hayu !
(Setelah tiba Di pengkolan)
AA : Di sebelah mana Neng ?
Eneng : Itu, yang warna kuning, itu teh kendaraan eneng.
AA : Mobil itu bukan ?
(sambil menunjuk ke mobil Lamborghini warna kuning di samping STUM )Eneng : Bukan A, itu yang di sampingnya. Ayo A tolong dorong !
AA : Aaah gila kali, dorong sendiri ah.
Pasti pernah kan kamu mengkhayal-khayalkan seseorang yang begitu berarti dalam hidup kamu ? Apalagi dia yang hanya bisa dapat kamu lihat dan kamu perhatikan dari jarak jauh, tidak ada dalam kehidupan keseharian kamu.
Begitu berartinya dia dalam hidup kamu hingga kamu memikirkannya setiap waktu. "Dia sedang apa ya sekarang ?", "Dia baik-baik saja kan disana ?", "Siapa sih orang itu (yang sedang dekat dengannya) ?",dan bla bla bla ... Berbagai pertanyaan tentangnya menjadi topik dalam pikiranmu, hingga sampai kamu mengkhayalkannya.
Jauh dalam mimpiku…Aku merindukan kamu,Aku membutuhkan kamu…Aku selalu menginginkan kamu ada…Ada didalam kehidupanku…Taukah kamu saat aku sendiri, aku berkhayal…Mengkhayalkan kamu ada dikehidupanku…Berbagi kebahagiaan bersama, saling menemani…Aku tersenyum sendiri dalam khayalkuAkankah khayalku ini menjadi nyata ?Takkan ku sia-siakan waktu bersamamu,Akan ku jaga dirimu…Seperti kapas putih yang takkan pernah ternodai…Janjiku, bila khayalanku ini menjadi nyata…
Sadar atau ga sadar, kita sudah memikirkan sesuatu hal yang sia-sia guys, jika hanya memikirkannya tanpa adanya usaha dan tindakan dari kita !
Came on guys, move on ! Kamu tengok balik diri kamu dan tanya diri kamu sendiri dulu, "Apakah kamu pantas untuk dia ?", "Apakah kamu lebih baik dari seseorang yang saat ini ada di dekatnya ?", "Apakah dia dapat lebih bahagia jika bersamamu ?".
Mungkin ada beberapa alasan yang menjadi sebab mengapa dia tidak ada di dalam kehidupanmu?, mengapa dia tidak memilihmu untuk ada didekatnya ?
By Bayu Wijaya Permana Putra
 |
| -Free Download Software penggabung file dan pembagi file HJSplit - |
HJSplit adalah perangkat lunak yang berguna untuk menyatukan file file yang terbagi (compare) atau membagi file menjadi beberapa bagian (Split).
Biasanya file tersebut dibagi dengan berekstensi .rar, dan dalam part dan file yang dibagi tersebut biasanya file dengan ukuran yang besar seperti file films aplikasi dan sebagainya.
Misalnya file tersebut seperti berikut :
1. Movie_2014.part1.rar
2. Movie_2014.part2.rar
3. Movie_2014.part3.rar
4. Movie_2014.part4.rar
Tanpa menggunakan HJSplit file tersebut tidak bisa kita ekstrak atau kita pakai, gabungkan dengan menggunakan software HJSplit !
Ya sekian sedikit penjelasan tentang software HJSplit, Anda dapat mendownload software HJSplit secara gratis disini !
Semoga bermanfaat ^_^
 |
| Ringkasan Perkembangan Komputer Masa Depan - |
Saat
ini negara berkembang “semua orang ingin maju dan pintar” telah membuat suatu
teknologi di dalam dunia IT yang akan menggeser posisi computer dan laptop.
Yaitu teknologi mini komputer masa depan yang sedang dipromosikan lebih praktis
dan lebih hebat dibanding dengan teknologi sekarang. Karena hanya mengandalkan
sebatang pulpen. Konsep tersebut di kembangkan oleh NEC Design Ltd, sebuah
lembaga di jepang. Konsepnya dinamai Komputer Model Pena.
<![endif]-->Model
dari komputer ini adalah model pena. Jika dilihat secara sekilas pena ini
sangat tidak mungkin disebut komputer. Namun jika sudah mengetahui fungsi dan manfaatnya
kita tentu pasti terkejut.
Sekian informasi mengenai ringkasan perkembangan komputer di masa depan, semoga bermanfaat dan menginspirasi kita semua !
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin
Komputer ini disebut P-ISM. Sebagaimana
dijelaskan oleh desainer NEC sebagai “Pen-style Personal Networking Gadget
Package”. Komputer model ini diperkirakan senilai $30.000 atau sekitar 300an
juta rupiah. Harga tersebut untuk ukuran sebuah komputer mungkin sangat mahal,
tetapi jika dilihat dari segi terkologi tentu tidak ada apa-apanya. Menurut
Website NEC Design, komputer jenis P-ISM ini adalah paket komputer pena yang
mencakup 5 fungsi yaitu :
- Ponsel bergaya pena dengan cara input data menggunakan tulisan tangan
- Virtual keyboard
- Proyektor kecil
- Camera Scanned
- Personal ID password yang berfungsi sebagai identitas pemilik
P-ISM terhubung satu sama lain dengan technology wireless
yang berdekatan. model ini juga bisa tersambung dengan internet menggunakan
fungsi telepon selular pada P-ISM ini.. Gadget personal ini bergaya pena
minimalis yang mempunyai fitur yang Luar biasa Lengkap. Awalnya kita berpikir
bahwa model teknologi laptop "Keyboard dan layar" akan bertahan lama.
namun tidak bisa kita pungkiri bahwa pena dan kertas adalah alat tulis dan
simbol yang secara alami kita terima, hanya tinggal masalah waktu saja sampai
seseorang menemukan produk Canggih terbaru yang berkedok sebagai "Pena
Pintar" ataupun "Kertas Pintar". Jadi mungkin tak lama lagi
laptop(komputer jinjing) akan tidak laku lagi.
Selain NEC Design Ltd , perusahaan
komputer ternama di dunia Microsoft Corporation juga tidak mau ketinggalan.
Baru -baru ini Microsoft sedang mengembangkan prototype komputer masa depan dan
sedang menyempurnakannya. Komputer ini dinamai Microsoft Surface. Dalam
teknologi ini, seumpama kita mempunyai sebuah kamera digital dan sebuah telepon
genggam/ponsel yang telah memiliki dukungan wireless, maka setelah kita
memotret benda/seseorang dengan kamera tadi, kemudian kamera itu kita letakkan
di atas sebuah monitor sentuh atau touchscreen yang menyerupai meja. Setelah
ditaruh, kemudian akan muncul gambar benda atau wajah yang telah kita potret
tadi di dalam layar tanpa kita memindahkannya. Kemudian dengan teknologi ini,
gambar tersebut bisa diperbesar, diperkecil, dibolak-balik dengan menggunakan
tangan. Dan yang lebih seru lagi. Letakkan sebuah ponsel tadi di atas meja itu.
Geser gambar dimonitor tersebut ke arah ponsel. Dan seketika itu pula gambar
sudah berpindah ke memory card ponsel kita tanpa kita memegang ponsel itu. Seperti terlihat pada gambar di bawah ini =.
[PENGUMUMAN]
Kami membutuhkan bantuan anda untuk mengisi survei singkat ini. Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin
Yang harus diperhatikan dalam membuat tampilan ini adalah posisi peletakkan posisi awal untuk window (jendela) dan posisi akhir windownya. Misal untuk membuat jendela yang pertama window(2,2,38,24). Angka 2,2 di sana menunjukkan posisi awal window, yaitu pada titik koordinat x=2 dan y=2 (x horizontal dan y vertikal). Sedangkan angka 38,24 di sana menunjukkan posisi akhir window, yaitu pada titik koordinat x=38 dan y=24. Untuk lebih detailnya Anda dapat melihat codingannya.
Berikut adalah coding untuk Membuat Tampilan Keren Di Program Console Pascal yaitu tampilan ekspresi muka :
program Hello_This_is_my_Ekspression;
uses crt;
begin
{ jendela 1 }
window(2,2,38,24);
textbackground(brown);
clrscr;
{ Mata }
window(3,3,15,7);
textbackground(white);
clrscr;
window(5,5,13,6);
textbackground(black);
clrscr;
window(25,3,37,7);
textbackground(white);
clrscr;
window(27,5,35,6);
textbackground(black);
clrscr;
{ hidung }
window(19,8,21,9);
textbackground(5);
clrscr;
window(18,9,22,10);
textbackground(5);
clrscr;//bayubayyz.blogspot.com
window(17,10,23,13);
textbackground(5);
clrscr;
window(15,13,25,15);
textbackground(5);
clrscr;
window(17,14,19,15);
textbackground(0);
clrscr;
window(21,14,23,15);
textbackground(0);
clrscr;
{ bibir }
window(5,17,6,18);
textbackground(4);
clrscr;
window(6,18,8,19);
textbackground(4);
clrscr;
window(7,19,33,20);
textbackground(4);
clrscr;
window(9,20,31,21);
textbackground(4);
clrscr;
window(12,21,29,23);
textbackground(4);
clrscr;
window(32,18,34,19);
textbackground(4);
clrscr;
window(34,17,35,18);
textbackground(4);
clrscr;
{ gigi }
window(11,20,29,20);
textbackground(7);
{ jendela 2 }
clrscr;
window(42,2,78,24);
textbackground(brown);
clrscr;
{ mata }
window(43,3,55,7);
textbackground(white);
clrscr;//10113218
window(45,5,53,6);
textbackground(black);
clrscr;
window(65,3,77,7);
textbackground(white);
clrscr;
window(67,5,75,6);
textbackground(black);
clrscr;
{ hidung }
window(59,8,61,9);
textbackground(black);
clrscr;
window(58,9,62,10);
textbackground(black);
clrscr;
window(57,10,63,13);
textbackground(black);
clrscr; //by bayuwpp
window(55,13,65,15);
textbackground(black);
clrscr;
window(57,14,59,15);
textbackground(white);
clrscr;
window(61,14,63,15);
textbackground(white);
clrscr;
{ bibir }
window(53,17,67,19);
textbackground(4);
clrscr;
window(51,19,69,20);
textbackground(4);
clrscr;
window(49,20,71,21);
textbackground(4);
clrscr;
window(48,21,50,22);
textbackground(4);
clrscr;
window(47,22,48,23);
textbackground(4);
clrscr;
window(70,21,72,22);
textbackground(4);
clrscr;
window(72,22,73,23);
textbackground(4);
clrscr;
readln;//alpro_praktikum1
end.
Nah bagaimana sobat ? Cukup mudahkan hehe, semoga bermanfaat !
Bila Anda belum mempunyai program pascalnya Anda dapat mendownloadnya secara free lengkap dengan penjelasan serta tipsnya disini !
Alhamdulillah Artikel mengenai Membuat Tampilan Keren di Program Pascal sudah selesai !
Belum updol bila temen-temen sering menjelajah di Internet tetapi Anda belum mengisi survei singkat online ini ! Klik disini untuk mengisi surveinya !
Tolong bantu ya untuk mengisi survei ini ! Semoga bantuan temen temen mendapat balasan yg berlipat ganda dari Allah SWT, Amin. Tolong yaa!
Definisi Array of Record dan Penggunaannya pada Program Pascal
Tag :
Algorithms and Programming,
Pascal
 |
| Contoh Program Pascal - Data Nilai Mahasiswa |
Berikut adalah coding progam membuat daftar nilai mahasiswa dalam pascal dan telah menggunakan array of record :
program Data_Nilai_MAhasiswa;
{I.S : User memasukkan banyaknya data (N) dan record Mahasiswa}
{F.S : Menampilkan Daftar Nilai Mahasiswa (1:N)}
//bayubayyz.blogspot.com
uses crt;
{Nama Konstanta}
const
Maks_Mhs = 50; {Jumlah Maksimum Mahasiswa}
{Nama Tipe}
type
Data_Mhs = record {Data Mahasiswa}
NIM,Nama : string;
Nilai : integer;
Indeks : char;
end;
Mahasiswa = array [1..Maks_Mhs] of Data_Mhs; {array of record data mahasiswa}
var
Mhs : Mahasiswa;
N,i,IndeksA,IndeksB,IndeksC,IndeksD,IndeksE,Tertinggi,Terendah,TotalNilai : integer;
rata_rata : real;
{unikom 2013}
begin
{Memasukkan Banyak Data}
textcolor(15);
write('Banyaknya Data : ');readln(N);
{Validasi Banyaknya Data}
while (N < 1) or (N > Maks_Mhs) do
begin
textcolor(red);
writeln('Banyak Data Hanya 1-50, Ulangi !');
write('Tekan Enter untuk melanjutkan !');
readln;
gotoxy(1,2);clreol;
gotoxy(1,3);clreol;
gotoxy(18,1);clreol;textcolor(15);readln(N);
end;
{Membuat Judul Tabel dan Header}
clrscr;
gotoxy(28,1);textcolor(15);
write('Daftar Nilai Mahasiswa');
gotoxy(28,2);
write('======================');
gotoxy(4,3);
write('======================================================================');
gotoxy(4,4);
write('! No ! NIM ! Nama Mahasiswa ! Nilai ! Indeks Nilai !');
gotoxy(4,5);
write('======================================================================');
{Jumlah Mula - Mula Indeks A - Indeks E}
IndeksA := 0;
IndeksB := 0;
IndeksC := 0;
IndeksD := 0;
IndeksE := 0;
{Nilai Tertinggi dan Terendah Mula Mula}
Tertinggi := -999;
Terendah := 999;
{Mula - Mula Total Nilai}
TotalNilai := 0;
{Mengolah Data Mahasiswa}
for i := 1 to N do
begin
{Menampilkan No}
gotoxy(4,i+5);
write('! ! ! ! ! !');
gotoxy(6,i+5);
write(i);
{Memasukkan NIM, Nama Mahasiswa dan Nilai}
gotoxy(11,i+5);
readln(Mhs[i].NIM);
gotoxy(23,i+5);
readln(Mhs[i].Nama);
gotoxy(53,i+5);
readln(Mhs[i].Nilai);
{Menentukan Indeks Nilai dan Menghitung Banyaknya IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
case (Mhs[i].Nilai) of
80..100 : begin
Mhs[i].Indeks := 'A';
IndeksA := IndeksA + 1;
end;
70..79 : begin Mhs[i].Indeks := 'B';
IndeksB := IndeksB + 1; end;
60..69 : begin Mhs[i].Indeks := 'C';
IndeksC := IndeksC + 1; end;
50..59 : begin Mhs[i].Indeks := 'D';
IndeksD := IndeksD + 1; end;
0..49 : begin Mhs[i].Indeks := 'E';
IndeksE := IndeksE + 1; end;
end;{endcase}
{Menentukan Nilai Rata-rata}
TotalNilai := TotalNilai + Mhs[i].Nilai;
rata_rata := TotalNilai div N;
{Menentukan Nilai Tertinggi}
if (Mhs[i].Nilai > Tertinggi)
then
Tertinggi := Mhs[i].Nilai;
{Menentukan Nilai Terendah}
if (Mhs[i].Nilai < Terendah)
then
Terendah := Mhs[i].Nilai;
{Menampilkan Indeks Nilai}
gotoxy(66,i+5);
write(Mhs[i].Indeks);
end;{endfor}
{Penutup Tabel}
gotoxy(4,i+6);
write('======================================================================');
{Menampilkan Nilai Rata-rata, Nilai Tertinggi, Nilai Terendah}
gotoxy(4,i+7);
write('Nilai Rata rata : ',rata_rata:0:2);
gotoxy(4,i+8);
write('Nilai Tertinggi : ',Tertinggi);
gotoxy(4,i+9);//by bayuwpp
write('Nilai Terendah : ',Terendah);
{Menampilkan Jumlah IndeksA, IndeksB, IndeksC, IndeksD & IndeksE}
gotoxy(4,i+10);
write('Jumlah Indeks A : ',IndeksA,' Mahasiswa');
gotoxy(4,i+11);
write('Jumlah Indeks B : ',IndeksB,' Mahasiswa');
gotoxy(4,i+12);
write('Jumlah Indeks C : ',IndeksC,' Mahasiswa');
gotoxy(4,i+13);
write('Jumlah Indeks D : ',IndeksD,' Mahasiswa');
gotoxy(4,i+14);
write('Jumlah Indeks E : ',IndeksE,' Mahasiswa');
gotoxy(23,i+16);textcolor(red);//by bayuwpp
write('Tekan Enter Untuk Menutup Program !');
readln;
end.
Semoga bermanfaat sob
[PENGUMUMAN]
Saya membutuhkan bantuan anda untuk mengisi survei singkat ini. Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin
Struktur pengulangan adalah struktur yang menjalankan perintah atau statemen untuk diulang beberapa kali sampai kondisi terpenuhi atau sampai batas pengulangan yang sudah ditentukan.
Ada 3 macam pengulangan :
1.
For … do
2.
While … do
3.
Repeat … until
1. For … do
Bentuk pengulangan For … do ada 2 tipe yaitu :
1.
Positif
2.
Negatif
Bentuk Umum For_do Positif :
for pencacah ← range1 to range2 doCatatan : range1 ≤ range2
{aksi-aksi yang diulang}
Endfor
Contoh For_do Positif
Menghitung_S{I.S. : diberikan harga pencacah (i) = 10}{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}Kamus:S, i : integerAlgoritma:S ← 0for i ← 1 to 10 doS ← S + iendforoutput(S)
Bentuk Umum For_do negatif :
for pencacah ← range1 downto range2 do
{aksi-aksi yang diulang}
endfor
Catatan : range1 ≥ range2
Contoh For_do Negatif
Menghitung_S{I.S. : diberikan harga pencacah (i) = 10}{F.S. : menampilkan hasil perhitungan S = 10+9+..+1}Kamus:S, i : integerAlgoritma:S ← 0for i ← 10 downto 1 doS ← S + iendforoutput(S)
2. While … do
Artinya lakukan pengulangan selama(while) memenuhi kondisi.
Bentuk Umum While_do :
inisialisasiWhile (kondisi) do{aksi aksi / perintah perintah yang diulang}Endwhile
Contoh :
Menghitung_S{I.S. : diberikan harga pencacah (i) = 10}{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}Kamus :S,i : integerAlgoritma :
{inisialisasi}S← 0i ← 1While S ≤ 10 doS←S + ii ← i + 1EndwhileOutput(S)
3. Repeat … until
Artinya lakukan pengulangan {repeat} aksi aksi hingga {until}
memenuhi kondisi.
Bentuk Umum repeat_until :
inisialisasirepeat{aksi aksi / perintah perintah yang diulang}Until(kondisi)
Contoh :
Menghitung_S{I.S. : diberikan harga pencacah (i) = 10}{F.S. : menampilkan hasil perhitungan S = 1+2+..+10}Kamus :S,i : integerAlgoritma :{inisialisasi}S ← 0i ← 1repeatS ← S + ii ← i + 1Until(S ≤ 10)Output(S)
Sumber : Tim Algoritma dan Pemrogramman Universitas Komputer Indonesia
Sekian Struktur Pengulangan dalam Algortima dan Pemrogramman yang saya share saat ini, semoga bermanfaat yaaa :)
[PENGUMUMAN]
Isi
survei singkat dibayar dari 200 Ribu hingga 2 juta dan tak dibatasi, lihat testimoni setelah mengisi survei. KLIK DISINI !
Program Kalkulator Sederhana Pengitungan dengan 4 operator (+,-,x,/) diantara 2 Angka
Tag :
Algorithms and Programming,
Pascal
 |
| - Program Kalkulator Sederhana - |
Oiya saya lupa untuk menyapa sobat yang berkunjung . Hallo guys, selamat pagi, siang, sore, malam, atau dini hari yaa
. Assalammualaikum Warahmatullahi Wabarakatu !Kapanpun dan dimanapun anda membaca artikel ini, saya ucapkan salam, selamat belajar dan semoga anda dapat mendapatkan apa yang anda cari disini.
Kita dapat membuat program kalkulator sederhana dengan operator yang umun digunakan yaitu operator penjumlahan, pengurangan, perkalian dan pembagian pada 2 angka yang ingin dihitung pada program kalkulator.
Persoalannya sebagai berikut !
Buatlah algoritma dan program dalam pemrograman bahasa pascal kalkulator sederhana dengan menggunakan operator penjumlahan, pengurangan, perkalian dan pembagian pada 2 angka dan tampilkan kelayar hasilnya. - Kedua angka dan operator penghitungan dimasukkan oleh user !
Dari persoalan diatas kita dapatkan logika untuk menyelesaikannya sebagai berikut :
1. Input 2 angka yang di tampung oleh variabel (bebas variabel apa saja). Saya gunakan variabel x dan y, kita anggap variabel x untuk angka ke-1 dan y untuk angka ke-2. Dan type data untuk variabelnya adalah integer, karena angka angka yang dimasukkan dalam bentuk bilangan bulat.
2 Input salah satu operator yang ditampung oleh variabel. Kalo saya gunakan variabel op. Karena operator yang digunakan adalah +,-,x,/ maka type data untuk variabel op adalah char agar sesuai dengan kebutuhan.
3. Menggunakan struktur pemilihan untuk proses mencacah penghitungan dan menentukan hasil dari penghitungan.
4. Tampung angka yang dihasilkan pada sebuah variabel, kalo saya menggunakan variabel hasil. Karena bilangan yang dihasilkan dari operator pembagian akan ada kemungkinan tidak akan menghasilkan bilangan bulat, jadi type data untuk variabel hasil adalah real.
Nah setelah kita dapatkan logikanya seperti itu, kita buat algoritmanya. Berikut adalah algoritma Program Kalkulator Sederhana Pengitungan dengan 4 oerator (+,-,x,/) diantara 2 Angka :
program penghitungan_dua_angka_kalkulator_sederhana_____byBayuWPP
{I.S. : User memasukkan dua buah angka dan operator penghitungannya (+,-,*,/)}
{F.S. : Menampilkan hasil penghitungan}
// pascal coding by @BayuWPP bayubayyz.blogspot.com
Kamus :
x,y : integer
hasil : real
op : char
begin
Input(x)
Input(op)
Input(y)
if op = '+' {jika op adalah +}
then
hasil ← x+y
else
if op = '-' {jika op adalah -}
then//by BayuWPP
hasil ← x-y
else
if op = 'x'
then
hasil ← x*y
else
hasil ← x/y
endif
endif
endif
{menampilkan penginputan oleh user}
Output(x,op,y)
{menampilkan hasil penghitungan}
Output(hasil)
Selesai algoritma selanjutnya kita buat programnya. Berikut pascal coding untuk membuat program Kalkulator Sederhana Pengitungan dengan 4 oerator (+,-,x,/) diantara 2 Angka :
program penghitungan_dua_angka_kalkulator_sederhana___byBayuWPP;
{I.S. : User memasukkan dua buah angka dan operator penghitungannya (+,-,*,/)}
{F.S. : Menampilkan hasil penghitungan}
// pascal coding by @BayuWPP bayubayyz.blogspot.com
var
x,y : integer;
hasil : real;
op : char;
begin
writeln('Pengitungan tambah/kurang/kali/bagi 2 Angka (x dan y)');
write('x = ');readln(x);
write('operator tambah/kurang/kali/bagi (+ or - or x or /) = ');readln(op);
write('y = ');readln(y);
if op = '+'
then
hasil := x+y
else
if op = '-'
then//by BayuWPP
hasil := x-y
else
if op = 'x'
then
hasil := x*y
else
hasil := x/y;
{endif}
{endif}
{endif}
writeln;
//menampilkan penginputan oleh user
writeln(x,' ',op,' ',y);
//menampilkan hasil penghitungan
write('hasil = ',hasil:0:2);
readln;
//by BayuWPP
end.
Sekian pembahasan mengenai penyelesaian persoalan dan membuat Program Kalkulator Sederhana Pengitungan dengan 4 oerator (+,-,x,/) diantara 2 Angka yang Saya buat. Semoga bermanfaat bagi kita semua.
Wassalammualaikum Warahmatullahi Wabarakatuh !
[PENGUMUMAN]
Kami membutuhkan bantuan anda untuk mengisi survei singkat ini.Tolong bantu ya untuk mengisi, gampang ko hanya mengisi nama, email sama 5 pertanyaan saja kawan. Bantu isi ya surveinya disini !!!.
Terimakasih. Semoga bantuan temen temen mendapat balasan yang berlipat ganda dari Allah SWT, Amin
