Program Pascal Dengan Output Software T.P.W

• Program Mean (Rata-Rata)

program rata_rata;
uses wincrt;
var i,n:integer;
    x,sum,mean:real;
begin
     writeln('banyaknya data=');
     readln(n);sum:=0;
     for i:=1 to n do
     begin
          writeln('data ke',i,'=');
          readln(x);
          sum:=sum+x;
          end;
          mean:=sum/n;
          writeln('rata_rata=',mean);
          end.

• Program Perpangkatan

program perpangkatan;
uses wincrt;
var i,o,n:longint;
hasil:real;
begin writeln('a pangkat b');
write ('masukkan a= ');readln(o);
write ('masukkan b= ');readln(n);
hasil:=1;
for i:=1 to abs(n) do
hasil:=o*hasil;
if (n<0) then
begin
write('hasil= ');write(1/hasil);
end
else
begin
write('hasil= ');
write(hasil);
end;
end. 

• Program Faktorial

program faktorial;
uses wincrt;
var i,n,jumlah:integer;
begin
jumlah:=1;
write('inputkan suatu nilai = ');readln(n);
write('faktorial dari ',n,' adalah = ');
for i:=n downto 2 do
begin
write(i,'x');
jumlah:=i*jumlah;
end;
begin
if n<0 then write('tidak terdefinisi')
else write(1,'=',jumlah);
end;
end.

• Program Determinan Matriks

program determinan;
uses wincrt;
var A : array[1..2,1..2] of integer;
j,k,D : integer;
begin
For j:=1 to 2 do
begin
writeln('Entrikan baris ',j,' matriks A : ');
readln(A[j,1] , A[j,2]);
end;
writeln ('matriknya:');
For j:=1 to 2 do
begin
For k:=1 to 2 do write(A[j,k] : 5);
writeln;
end;
writeln;writeln;writeln;
D := A[1,1]*A[2,2] - A[1,2]*A[2,1];
writeln('Det(A) = ',D);
end.

• Program Invers Matriks

program matriks_invers;
uses wincrt;
var n,i,j,x,y,k,l,m: integer;
a:array[1..20,1..20] of real;
begin
{gotoxy (10,1);}
writeln ('Pencarian Invers Matriks'); 
writeln;
writeln ('ordo matrik (n x n),');
write ('n : ');
readln (n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('A(',i,',',j,') : ');
readln (a[i,j]);
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (' ',a[i,j]:0:0);
writeln;
end;


for j:=n+1 to n+n do
begin
i:=j-n;
a[i,j]:=1;
end;
for j:=n+1 to n+n do
begin
for i:=1 to n do
if i<>j-n then a[i,j]:=0;
end;


for i:=1 to n do
begin
for j:=1 to n+n do
begin
if i<>j then a[i,j]:=a[i,j]/a[i,i];
end;
for j:=1 to n+n do
begin
if i=j then a[i,j]:=1;
end;


for l:=1 to n do
begin
if i<>l then
begin
for j:=i+1 to n+n do
begin
a[l,j]:=a[l,j]-(a[i,j]*a[l,i]);
end;
end;
end;
for k:=1 to n do
begin
if i<>k then
begin
a[k,i]:=0;
end;
end;
end;
readln;
writeln('invers dari matrik:');
for i:=1 to n do
begin
for j:=n+1 to n+n do
write (' ',a[i,j]:0:2);
writeln;
end;
readln;
end.

• Program Modus

program modus;
uses wincrt;
var i,n,j,modus:integer;
A,frek:array[1..100] of integer;
begin
write('masukkan jumlah data = ');readln(n);
for i:=1 to n do
readln(A[i]);
writeln;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if A[i]=A[j] then
frek[i]:=frek[i]+1;
end;
modus:=1;
for i:=1 to n do
begin
if frek[modus]<frek[i] then
modus:=i;
end;
write('modus: ',A[modus],' sebanyak ',frek[modus]+1);
end.