Sabtu, 09 Maret 2013

Program menghitung IP mahasiswa


Uses crt;
type larik = array[1..8] of integer;
type larek = array[1..8] of string;

var x,y,p : larik;
z,m : larek;
i, n : integer;
a,b,c,e : real;

begin
clrscr;
writeln ('============================================');
writeln ('= Nama        : Ni Putu Dana Prityaningsih =');
writeln ('= Jurusan     : Ilmu Komputer              =');
writeln ('= NIM         : 1206085002                 =');
writeln ('= Kelas       : B                          =');
writeln ('============================================');

write ('masukkan jumlah matkul  : '); readln (n);
writeln;
i := 0;
for i := 1 to n do

Jumat, 08 Maret 2013

Program mengubah matriks standar menjadi matriks identitas


uses crt;
var baris, kolom, i, j, c : integer;
x : array[1..100,1..100] of integer;
begin
clrscr;
write ('masukkan baris matriks : '); readln (baris);
write ('masukkan kolom matriks : '); readln (kolom);
writeln ('matriks anda berordo ',baris,' X ',kolom);
for i := 1 to baris do
for j := 1 to kolom do
begin
write ('nilai [',i,',',j,'] : '); readln (x[i,j]);
end;
writeln;