program cari suku fibonacci;
uses wincrt;
var x:array[1..50] of integer;
i,n:integer;

begin
x[1]:=1;
x[2]:=1;
write('anda mencari suku ke : ');readln(n);
write(x[1],' ');
write(x[2].' ');

for i :-x[i-1]+x[i-2];
write(x[i],' ');
end;

writeln;
writeln('suku ke ',i,'=',x[i]);
end.

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.