Program repeat dengan PASCAL



Setelah kemarin posting tentang bilangan positif dan negatif. Kembali ingin saya membantu sobat jika menemukan soal ataupun tugas yang berhubungan dengan pascal. Pernahkah mendengar kata repeat ? Ya, sebuah kata yang memberikan arti perulangan. Sebuah kegiatan yang diulang-ulang. Dalam pascal terdapat banyak perulangan dan repeat adalah salah satu perulangan yang memiliki peran penting dalam pembuatan program dengan pascal. Perlukah kita kenalan dengan repeat ? jelas, untuk bisa menggunakan repeat kita harus mengetahui syarat untuk terjadinya repeat. Repeat adalah perulangan yang terjadi dengan syarat selama kondisi belum terpenuhi. Jika dalam kehidupan kita ambil kasus minum obat ketika kita sakit. Kog bisa ? Sudah dijelaskan Repeat adalah perulangan yang terjadi dengan syarat selama kondisi belum terpenuhi. Kita akan minum obat selama kita belum sembuh. Kita akan berhenti minum obat setelah kita sehat. Kiranya dengan penalaran untk mengenal repeat. Untuk lebih jelasnya silahkan compile sintaks dibawah ini. Silahkan tinggalkan komentar jika ada hal perlu kita diskusikan. Semoga membantui, Jangan lupa untuk copy klik view plain ya ...

Uses wincrt;

Var kondisi, jumlah_positif, jumlah_negatif, bil_positif,bil_negatif,bil, all,n_all,
jenis_positif, jenis_negatif: integer;
rata2_positif,rata2_negatif,rata2_all : real;

begin
writeln ('=----------------------------------------------------------------=');
writeln ('= PROGRAM REPEAT - UNTIL =');
writeln ('= JUMLAH DAN RATA-RATA BILANGAN POSTIF & NEGATIF DARI N KONDISI =');
writeln ('=----------------------------------------------------------------=');
writeln ('=----------------------------------------------------------------=');
writeln ('= Toto Raharjo 3105111326 TI E =');
writeln ('=----------------------------------------------------------------=');
writeln (' ');

write('Berapa bilangan yang akan menjadi kondisi ? ==> ');
readln(kondisi);

writeln('========================================================================');
writeln('= ! BILANGAN >=0 ADALAH POSITIF SELAIN ITU NEGATIF ! =');
writeln('========================================================================');
writeln (' ');

{KONDISI AWAL}
all:=0;
n_all:=0;
bil_positif:=0;
bil_negatif:=0;
jumlah_positif:=0;
jumlah_negatif:=0;

repeat
begin
write (' ');
write ('------------------------------- ');
write ('#==> ');
readln (bil);

{LANGKAH 1 MENENTUKAN JENIS BILANGAN POSITIF ATAU NEGATIF}
if bil >=0 then writeln (bil, ' adalah bilangan POSITIF') else writeln (bil, ' adalah bilangan NEGATIF');

all:= all+bil ;
n_all:=n_all+1;
rata2_all:=all/n_all;

if bil >=0 then

{LANGKAH 2 MENENTUKAN JUMLAH, N, RATA-RATA DARI BILANGAN POSITIF}
begin
jumlah_positif:=jumlah_positif+bil;
bil_positif:=bil_positif + 1;
rata2_positif:=jumlah_positif/bil_positif;
end

else
{LANGKAH 3 MENENTUKAN JUMLAH, N, RATA-RATA DARI BILANGAN NEGATIF}
begin
jumlah_negatif:=jumlah_negatif+bil;
bil_negatif:=bil_negatif + 1;
rata2_negatif:=jumlah_negatif/bil_negatif;
end

end;
until all>=kondisi; {KONDISI YANG MENJADI PENENTU PROGRAM AKAN BERHENTI}

{MENAMPILKAN DARI PERHITUNGAN LANGKAH 2 DAN 3}
writeln;
writeln('bilangan positif yang diinputkan adalah ',bil_positif);
writeln('Jumlah bilangan positif yang diinputkan = ',jumlah_positif);
writeln('Rata-rata bilangan positif yang diinputkan = ',rata2_positif:0:2);

writeln;
writeln('bilangan negatif yang diinputkan adalah ',bil_negatif);
writeln('Jumlah bilangan negatif yang diinputkan = ',jumlah_negatif);
writeln('Rata-rata bilangan negatif yang diinputkan = ',rata2_negatif:0:2);

writeln;
writeln('Jumlah inputan keseluruhan adalah ',n_all);
writeln('Jumlah Keseluruhan adalah ',all);
writeln('rata-rata keseluruhan adalah = ',rata2_all:0:2);
writeln('');


{PEMBUKTIAN PROGRAM AKAN BERHENTI SELAMA MEMEMUHI KONDISI}
writeln('PERULANGAN DIKERJAKAN SAMPAI KONDISI TERPENUHI : >= ',kondisi );
if all=kondisi then writeln( all,' ==> SUDAH MEMENUHI KONDISI YAITU = ',kondisi)
else writeln( all,' ==> SUDAH MEMENUHI KONDISI YAITU > ',kondisi);

readln;
end.


Menentukan bilangan positif dan negatif dengan PASCAL





Teringat dulu ketika mendapat tugas pemrograman. Pak dosen memberikan tugas yang cukup asing bagi saya. Menentukan sebuah bilangan termasuk bilangan positif atau negatif dengan bahasa pemrograman pascal. Sungguh bingung dan tak ada gambaran apapun untuk mengerjakan. Hingga akhirnya google jadi pelampiasan kejengkelanku dengan pak Dosen, hehe. 30 menit berlalu belum aku dapatkan refrensi yang aku cari. Google yang tidak menemukan atau aku yang tidak mengetahui apa yang aku cari, Sempat putus asa untuk mengerjakan. Namun teman membawa sebuah buku dengan tulisan Abdul Kodir. Dari buku itulah akhirnya aku menemukan jawaban. Untuk sobat yang lagi belajar PASCAL buku karangan Abdul Kodir aku sarankan untuk dipelajari. Berikut adalah souce code untuk sintaks menentukan bilangan positif atau negatif. Untuk copy sintaks klik view plain ya sobat. Semoga membantu ...
uses wincrt;

var jumlah_input, urutan_ke, bilangan_inputan, jumlah_inputan, n_positif, n_negatif : integer;

rata2 : real;
jumlah_positif, jumlah_negatif: integer;
rata2_positif, rata2_negatif: real;



begin
writeln ('=-----------------------------------------------------------------==');
writeln ('= PROGRAM UNTUK MENGHITUNG =');
writeln ('= JUMLAH DAN RATA-RATA BILANGAN POSTIF & NEGATIF DARI N INPUTAN =');
writeln ('=------------------------------------------------------------------=');
writeln ('=------------------------------------------------------------------=');
writeln ('= Toto Raharjo 3105111326 TI E =');
writeln ('=------------------------------------------------------------------=');
writeln ('');

writeln ('N LEBIH BESAR ATAU SAMA DENGAN NOL ADALAH POSITIF SELAIN ITU NEGATIF');

writeln ('');
write ('Berapakah bilangan yang akan anda inputkan ? ==>: ');
readln (jumlah_input);

{ LANGKAH 1 }
for urutan_ke:= 1 to jumlah_input do {Perintah perulangan sampai jumlah bilangan yang diinputkan}


begin

{ LANGKAH 2 }
writeln ('');
writeln ('====================================================');
write ('bilangan ke ', urutan_ke, ': '); {Menentukan urutan bilangan yang diinputkan}
readln (bilangan_inputan); {Membaca bilangan yang diinputkan }


{ LANGKAH 3 }
{Menentukan bilangan yang diinputkan adalah POSITIF atau NEGATIF}
if bilangan_inputan >=0 then writeln (bilangan_inputan, ' adalah bilangan POSITIF')
else writeln (bilangan_inputan, ' adalah bilangan NEGATIF');


{ LANGKAH 4 }
{Menentukan banyaknya bilangan POSITIF dan NEGATIF dari bilangan yang dinputkan}
if bilangan_inputan >=0 then n_positif:=n_positif+1
else n_negatif:=n_negatif+1;


{ LANGKAH 5 }
{Rumus untuk menghitung jumlah dan rata-rata bilangan secara keseluruhan}
jumlah_inputan:=jumlah_inputan+bilangan_inputan;
rata2:=jumlah_inputan/jumlah_input;


{ LANGKAH 6 }
{Rumus untuk menghitung jumlah bilangan positif saja dan negatif saja}
if bilangan_inputan >=0 then jumlah_positif:=jumlah_positif+bilangan_inputan;
if bilangan_inputan <0 then jumlah_negatif:=jumlah_negatif+bilangan_inputan; end; { LANGKAH 7 } begin {Rumus untuk menghitung rata-rata bilangan positif saja dan negatif saja} rata2_positif:=jumlah_positif/n_positif; rata2_negatif:=jumlah_negatif/n_negatif; end; {Menampilkan hasil perhitungan dari rumus} writeln (''); writeln ('====================================================='); writeln (''); writeln ('*****************************************************'); writeln (''); writeln ('Jumlah keseluruhan bilangan adalah ======> ', jumlah_inputan);
writeln ('Rata-rata keseluruhan bilangan adalah = ', rata2:0:2);
writeln ('');
writeln ('Bilangan POSITIF yang diinputkan adalah ==> ', n_positif);
writeln ('Jumlah dari bilangan POSITIF saja adalah = ', jumlah_positif);
writeln ('Rata-rata dari bilangan POSITIF saja adalah = ', rata2_positif:0:2);
writeln ('');
writeln ('Bilangan NEGATIF yang diinputkan adalah ==> ', n_negatif);
writeln ('Jumlah dari bilangan NEGATIF saja adalah = ', jumlah_negatif);
writeln ('Rata-rata dari bilangan NEGATIF saja adalah = ',rata2_negatif:0:2);
writeln ('');
writeln (' TERIMA KASIH ;-) ');
writeln ('*****************************************************');
end.


Waspada jebakan Smartfren



Sekitar jam 15.27 WIB dengan santai aku tancapkan modem Smartfren dengan harapan memperoleh informasi recehan $. Dengan nyaman aku jelajahi web dari hasil pencarian Google. Berbekal paket 1.000 untuk 20 MB selama 24 jam aku berselancar sekitar 15 menit. Wah sangat merasa puas dengan 1.000 bagaikan menggunakan AHA. Pada menit 14 aku merasa aneh dengan loading. Seperti terasa berat namun tidak berlangsung lama. Setelah kembali normal tak ada rasa curiga apapun dengan sisa quota 20 MB. Masih saja aku lanjutkan dengan menarikan jariku untuk mengetik kata kunci pada Google. Hingga akhirnya tak terasa modem seperti lost device. Semua halaman yang aku buka muncul tulisan Not Responding. Sungguh pemandangan yang luar biasa. Tak pikir panjang aku cek pulsa dan wuah Rp 0. Ngakak guling guling aku melihat tulisan itu sambil berkata dalam bathin aku tertipu dengan tarif murah. Untuk sobat yang mempunyai jam terbang tinggi di dumai sangat tidak sarankan menggunakan layanan Volume Based. Smartfren tidak memberikan notifikasi untuk sisa quota paket kita. Meskipun kita melakukan pengecekan quota kita tidak bisa memprediksi sampai kapan quota ini akan bertahan. Lebih baik kita menggunakan paket unlimited saja, mahal didepan tapi dipikir lebih murah dari pada murah didepan tapi gila dibelakang. Jatah untuk perut akhirnya dialihkan ke abang konter. Sungguh malang ya nasib :-(, Semoga membantu ....

Cek sisa quota Smartfren



Smartfren adalah satu satunya provider yang memberikan paket terjangkau menurut saya. Akses internet sekarang bagaikan sarapan pagi yang harus dinikmati, penyedia layanan internetpun juga berlomba menunjukan produknya. AHA dengan slogan tanpa buffering memberikan akses layanan internet super cepat untuk akses video. Kemudian Telkomflash pada GSM dengan slogan layanan akses tercepat. Baru baru ini muncul Smartfren, sebuah produk dari bundling smart dan fren. Untuk sobat yang menggunakan internet tidak untuk mendowlad film saya rekomendasikan untuk menggunakan Smartfren saja. Kenapa ? Smartfren adalah provider yang mengerti akan efisiensi menurut saya. Karena smartfren menyediakan berbagai macam paket yang bisa kita pilih sesuai kebutuhan. Tarifnya juga bersahabat mulai dari 1.000 sampai ratusan ribu. Kebutuhan kita setiap hari menggunakan internet berbeda. Untuk itu penggunaan paketpun bisa disesuaikan. Namun bagaimana jika kita berlangganan paket quota, bagaimana bisa mengetahui sisa quota kita. Smartfren adalah provider yang mengerti berbeda dengan provider lain yang mengaku unlimited tapi ternyata tipuan iklan saja. Bagi sobat pengguna produk smart dan berlangganan paket quota jika ingin mengetahui sisa quota silahkan hubungi *995 atau sms dengan format CEK kirim ke 955. Untuk info lainya kunjungi http://www.smartfren.com/faq.html. Semoga bermanfaat ...

 
Design by WordPress Themes | Best Web Hosting