Minggu, 16 Desember 2012

MATRIKS :




program latihan_matriks;
uses wincrt;

var
mat:array [1..3,1..2] of integer;
b,k:integer;

begin
writeln('latihan matriks 3x2 cuyyyyyyyy');
writeln('===============================');

mat[1,1]:=1;
mat[1,2]:=2;
mat[2,1]:=3;
mat[2,2]:=4;
mat[3,1]:=5;
mat[3,2]:=6;

            for b:= 1 to 3 do begin
            for k:= 1 to 2 do begin
            writeln ('NILAI BARIS',b,',KOLOM,',k,',=',mat[b,k]);
            end;
            end;
end.









program latihan_input_matriks_3x2;

uses wincrt;
var
mat :array [1..3,1..2] of integer;
b,k:integer;

begin
{matriks input 1}
     for b:=1 to 3 do begin
     for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln ('matriks 1 :');

{bentuk matriks 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin

write (mat[b,k]:4)
end;
writeln;
end;


{matriks input 2 :}
for b:=1 to 3 do begin
     for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;

writeln('mtriks 2');
{bentuk matriks 2}
for b:=1 to 3 do begin
for k:=1 to 2 do begin

write (mat[b,k]:4)
end;
writeln;
end;

end.




PENJUMLAHAN :


program latihan_input_matriks_3x2;

uses wincrt;
var
mat,hasil :array [1..3,1..2] of integer;
b,k:integer;

begin
{matriks input 1}
     for b:=1 to 3 do begin
     for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;
writeln ('matriks 1 :');

{bentuk matriks 1}
for b:=1 to 3 do begin
for k:=1 to 2 do begin

write (mat[b,k]:4)
end;
writeln;
end;


{matriks input 2 :}
for b:=1 to 3 do begin
     for k:=1 to 2 do begin
write ('Nilai Baris',b,',kolom,',k,',=');readln (mat[b,k]);
end;
end;

writeln('mtriks 2');
{bentuk matriks 2}
for b:=1 to 3 do begin
for k:=1 to 2 do begin

write (mat[b,k]:4)
end;
writeln;
end;





{matriks Penjumlahan}
for b:=1 to 3 do begin
for k:=1 to 2 do begin
hasil[b,k]:=mat[b,k]+mat[b,k];
end;
writeln;
end;

{proses menampilkan hasil penjumlahan}
writeln ('hasil penjumlahan');
for b:= 1 to 3 do begin
for k:= 1 to 2 do begin
write(hasil[b,k]:4);
end;
writeln;
end; 

END.






Minggu, 09 Desember 2012

contoh program larik


nama:array[1..10]of string;
i:integer;
begin
writeln('Nama Mahasiswa yang hadir di ruang M-115');
writeln('===========================================');
nama[1]:='wasinton';
nama[2]:='dame';
nama[3]:='bolon';
nama[4]:='pardamean';
nama[5]:='nafit';
nama[6]:='timoty';
nama[7]:='ramos';
nama[8]:='rudolf';
nama[9]:='budi';
nama[10]:='mitra';

for i:=1 to 10 do

writeln('Nama ke - ',i,',:',nama[i]);
end.




program contoh_bentukkan;
uses wincrt;
type
lps= record
     p,l,luas:integer;

end;

var
lpp:lps;

begin
write('panjang:'); readln (lpp.p);

write('lebar:');readln (lpp.l);

lpp.luas:=lpp.p*lpp.l;
writeln('luas:',lpp.luas);
end.




program latihan1;
uses wincrt;
type
lps= record
     n,a,tl:string;
     tlg,npm:integer;

end;

var
idp:lps;

begin
write('Nama:');readln(idp.n);
write('Npm:');readln(idp.npm);
write('Alamat:');readln(idp.a);
write('Temapat Lahir:');readln(idp.tl);
write('Tanggal lahir:');readln(idp.tlg);
end.




program contoh_constan;

uses wincrt;
const
a=5;

nama: array [1..a] of string = ('somplak','soak','sengklek','stres','sutres');

var
i: integer;


begin
writeln ('Mahasiswa Teladan');
writeln('==================');

for i:= 1 to a do
writeln ('',i,' :',nama[i]);
end.