Program Ganjil Genap Pascal

Oleh -
Berikut Saya Posting Program Ganjil Genap pada bahasa pemrograman pascal
1:  Program ganjil_genap;  
2:  uses wincrt;  
3:  var  
4:  bil, i,g1,g2,j1,j2,n: integer;  
5:  rt1,rt2:real;  
6:  begin  
7:  write('Masukkan Banyaknya Data ' );readln(n);  
8:  for i := 1 to n do  
9:  begin  
10:  write('Bilangan ke:',i ,' ');readln(bil);  
11:  if bil mod 2 = 0 then  
12:  j1:=j1 +1;  
13:  g1:=g1+bil;  
14:  if bil mod 2 =1 then  
15:  j2:=j2+1;  
16:  g2:=g2+bil;  
17:  end;  
18:  rt1:=g1/j1;  
19:  rt2:=g2/j2;  
20:  writeln('Jumlah bil. Ganjil=' ,j2);  
21:  writeln('Jumlah bil. Genap=' ,j1);  
22:  writeln('Rerata Ganjil=' ,rt2:4:2);  
23:  writeln('Rerata Genap=' ,rt1:4:2);  
24:  end.



Terima Kasih , Atas Kunjungannya

A/n. Irwin Andriyanto

Komentar

Posting Komentar

Mohon Kritik dan Sarannya !!!

Postingan populer dari blog ini

7 Larangan Untuk Istri

Oleh -
Gambar
Siapa yang ingin benar benar menjadi istri Shalihah perhiasan terbaik dunia. Maka jangan lakukan 7 hal di bawah ini: yang sering terjadi ialah istri menolak hubungan, berdandan hanya saat kondangan. Simak daftar berikut : Istri Menolak perintah (yang baik dan benar) suami Istri Menolak ajakan tidur Istri berdandan untuk orang lain tetapi tidak untuk suami Istri Memasang wajah cemberut Istri memaki-maki atau menghina suami Istri keluar rumah tanpa izin suami Istri menerima tamu tanpa izin suami Rujukan ilmiah Larangan Menolak perintah suami : “Siapa saja yang tidak berbakti kepada suaminya maka ia mendapat laknat Allah dan malaikat serta semua manusia.”  Larangan melawan suami. “Isteri yang durhaka hukumnya berdosa dan dapat gugur nafkahnya ketika itu. Jika ia tidak segera bertaubat dan meminta ampun dari suaminya, Nerakalah tempatnya di Akhirat kelak. Apa yang isteri buat untuk suami adalah semata-mata untuk mendapatkan keridhoan Allah SWT” Larangan Menolak hub
Baca selengkapnya

Keutamaan Mengucapkan Salam

Oleh -
Gambar
Allah Ta’ala berfirman: “Wahai orang-orang yang beriman, janganlah kalian memasuki rumah-rumah yang bukan rumah kalian sebelum kalian meminta izin dan memberi salam kepada penghuninya.” (QS. An-Nur: 27) Allah Ta’ala berfirman: “Salam yang ditetapkan dari sisi Allah yang berberkah.” (QS. An-Nur: 61) Dari Abdullah bin Amr -radhiallahu anhu- dia berkata: Ada seseorang yang bertanya kepada Nabi shallallahu ‘alaihi wasallam, “Islam apakah yang paling baik?” Nabi shallallahu ‘alaihi wasallam menjawab: “Kamu memberi makan, mengucapkan salam kepada orang yang kamu kenal dan yang tidak kamu kenal”. (HR. Al-Bukhari no. 11, 27 dan Muslim no. 39) Dari Al-Barra` bin Azib -radhiallahu ‘anhu- dia berkata: “Nabi shallallahu ‘alaihi wasallam memerintahkan kami dengan tujuh perkara dan melarang kami dari tujuh perkara: (1)Beliau memerintahkan untuk menjenguk orang sakit, (2)mengiringi jenazah, (3)mendoakan orang yang bersin, (4)memenuhi undangan, (5) menyebarkan salam,
Baca selengkapnya

Inilah 6 alasan Mengapa Kalian Wajib Mempunyai Sertifikasi CCNA

Oleh -
Semacam kita tahu, akta merupakan satu perihal yang jelas khasiatnya dalam membuat pekerjaan. Tidak tahu itu jadi pegawai, konsultan, wiraswasta, apapun. Sebab dengan akta berarti kita telah mempunyai pengakuan tercatat dari pencetak akta. kalau kita telah profesional di aspek itu, dalam perihal ini akta CCNA. Mengapa wajib CCNA Sertifikasi? 1. Routing serta Switching bagaikan Core Jaringan Komputer Routing serta switching merupakan tulang punggung sesuatu jaringan pc. Kala berdialog prasarana jaringan pc, 2 perihal yang tidak sempat dibiarkan merupakan: routing, serta switching. Sederhananya, routing merupakan cara penentuan arah kemudian rute dampingi jaringan pc. Sebaliknya switching merupakan kegiatan pendapatan informasi, mengerjakan serta memforwardnya ke dalam jaringan. 2 fitur itu kita tahu bagaikan router serta switch. Hingga telah sebaiknya bagaikan IT Jaringan Engineer kita harus mengerti hal teknologi routing switching. 2. CCNA Certified– Maksudnya Suda
Baca selengkapnya