Assalamu'alaikum wr.ta'ala.wb.wamaghfirotuh

Salam sejah tera selalu para sahabatku..
Langsung saja bagi kawan2 yang belum Update materi khususnya TI 08 sorE..
kalian bisa download di sini
dengan cuma2..(free) disini saya meng upload materi yang baru yaitu dari tanggal 07-11 januari

bagi yang belum punya meteri sama sekali..
kalian bisa download Update yang sebelum ini dan yang pasti yang ini juga....

jangan lupa komentarnya... :-)
TERIMA KASIH



Untuk download materi Update 07 -11 januari
klik
Disini

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.