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

Inilah Bukti Kasih Sayang Seorang Ibu Sepanjang Masa

Oleh -
Gambar
Hai sobat , Ibu adalah orang yang sangat berjasa sekali kepada kita , ibu yang telah mengandung , melahirkan dan membersarkan kita dari bayi hingga sebesar ini , itulah ibu . jadi buat teman teman sayangilah ibu cintai sepenuh hati ibu . Untuk lebih membuka memori saya akan memposting  Foto Kasih Sayang Seorang Ibu Kepada Anaknya  , agar teman teman lebih terbuka lagi , bagaiman sayangnya ibu pada kalian : Itulah bebrapa  Foto Kasih Sayang Seorang Ibu Kepada Anaknya  , jadi apa yang harus kamu balas ?. sayangilah ibmu sepenuh hatimu , karena surga di telapak kaki ibu . Terima Kasih , Atas Kunjungannya A/n. Irwin Andriyanto
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

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