Program Konfersi Bilangan




Program konfersi bilangan;
Uses wincrt;
var
des,desi : integer;
bin,temp :string;

begin
write('masukan suatu bilangan desimal : ');readln(des);
desi:=des;
bin:='';

repeat
str(des mod 2, temp);
bin:=temp+bin;
des:=des div 2;
writeln(des:4,bin:20);
until des=0;
writeln('(',desi,') desimal =',bin,' (biner)');
end.

Program Ganjil Genap

Uses wincrt;
var
bil,i,g1,g2,j1,j2,n:integer;
rt1,rt2:real;
begin

write(' Masukan banyak data');readln(n);
for i:=1 to n do
begin
write('bilangan ke:'i' ');readln(bil);

if bil mod 2=0 then
j1:=j1+1;
g1:=g1+bil;

if bil mod2=1 then
j2:=j2+1
g2:=g2+bil;

end;
rt1:=g1/j1;
rt2:=g2/j2;
writeln('jumlah bil. ganjil='j2);
writeln('jumlah bil. genap='j1);

writeln('rerata ganjil=',rt2:4:2);
writeln('rerata genap=',rt1:4:2);

end.

Assalamu'alaikum Wr.ta'ala.Wb.Wamaghfirotuh



Sebelumnya saya minta maaf.., karna baru aktif lagi meng upload materi..
di karenakan ada problem yang belum terselesaikan...., ge pusing juga... :-)
nyari kerja ora olih2.. :-)

salam ssejahtera selalu saya ucapkan kepada orang yang setia mengunjungi blog saya... :-)
TERIMA KASIH...

bagi sahabat yang belum mendapatkan materi ....,
kalian bisa download langsung di sini...
update 06 januari 2010

untuk download klik

MATERI AMIKOM TI 08 SorE



1. Jarkom di sini

2. Hardware software di sini

3. Tuto.phothoshop. doc di sini

4. Bahasa Inggris di sini

5. PBD di sini

6. Pemrograman di sini

7. Micro Prosesor di sini

8. Matematika Diskreet di sini

jangan lupa comentarnya.........
dan yang pasti dukungannya.....

TERIMA KASIH ATAS KUNKUNGANNYA...

dalam waktu dekat Insya Allah saya akan meng upload TUTORIAL PoTho Shop yang versi Vidio
doakan saja