program matrik;uses crt;type matrix = array [1..3, 1..2] of integer;var a,b,c : matrix; i,j : integer;begin clrscr; for i := 1 to 3 do begin for j := 1 to 2 do begin write(' nilai matrik1[',i,',',j,']]='); readln(a[i,j]); end; end; writeln; for i := 1 to 3 do begin for j := 1 to 2 do begin ...
Selasa, 22 Oktober 2013
Gabungan di Delphi
LISTBOX1=INPUT DATA A, LISTBOX2=AnB,
LISTBOX3=AUB, LISTBOX4=A+B, LISTBOX5=A-B
LISBOX6=INPUTB
procedure TForm1.Button8Click(Sender: TObject); //SELESAI
begin
close;
end;
procedure TForm1.Button7Click(Sender: TObject); //HAPUS
begin
edit1.Clear; edit2.Clear;
listbox1.Clear; listbox2.Clear; listbox3.Clear; listbox4.Clear;
listbox5.Clear; listbox6.Clear;
end;
procedure TForm1.Button1Click(Sender:...
Jumlah Deret Bil Genap Di FPC
program jumlahderet_ganjil;uses crt;var i, n, bil, jumlah,jumlahgenap : integer;begin clrscr; write('masukkan nilai N (banyak bilangn) : '); readln(n); jumlah := 0; iganjil := 0; ...
Konsep Bilangan Basis
Dalam dunia computer ada 4 basis bilangan yang kita kenal. Bilangan berbasis 2: disebut biner terdiri dari 1 dan 0 Bilangan berbasis 8: disebut octal terdiri dari 0,1,2,3,4,5,6, dan 7 Bilangan berbasis 10: disebut decimal terdiri dari 0,1,2,3,4,5,6,7,8, dan 9 Bilangan berbasis 16: disebut hexadecimal terdiri dari 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,FSetiap...
