Showing Tag: "looping" (Show all posts)

Perkalian Matrix

Posted by Ketut Joko on Wednesday, March 23, 2011, In : array 
Berikut merupakan kode perkalian 2 matrix :

uses crt;
var
a,f,k:array[1..100,1..100] of integer;
b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya kolom matriks pertama: '); readln(c);writeln;
for d:= 1 to b do
begin
for e:= 1 to c do
begin
write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
end;
end...
Continue reading ...
 

Tabel Suhu

Posted by Ketut Joko on Thursday, September 16, 2010, In : suhu 
berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.



program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i...
Continue reading ...
 
 
Jumlah Pengunjung
hit counter
html hit counter