Site Maps Autodidak Blog

Oleh -

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

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
Baca selengkapnya