program matiks;
uses wincrt;
type
arin=array [1..100] of integer;
function min(b:arin;m,n:integer):integer;
var
i,j,domp:integer;
begin
domp:=b[1];
for i:=1 to m do
begin
for j:= 1 to n do
begin
if domp>=b[j] then
domp:=b[j];
end;
end;
min:=domp;
end;
var
a:arin;
i,j,m,n,x,domp:integer;
begin
write('masukan...
Wednesday, May 11, 2011
mencAri bilangan x dalam array 2 dimensi
program matiks;
uses wincrt;
type
arin=array [1..100] of integer;
function cari(b:arin;m,n,x:integer):integer;
var
i,j,domp:integer;
begin
domp:=0;
for i:=1 to m do
begin
for j:= 1 to n do
begin
if b[j]=x then
domp:=domp+1;
end;
end;
cari:=domp;
end;
var
a:arin;
i,j,m,n,x,domp:integer;
begin
write('masukan...
mencari rata-rata array 2 dimensi
program matiks;
uses wincrt;
type
arin=array [1..100] of integer;
function rata(b:arin;m,n:integer):real;
var
i,j,domp:integer;
begin
domp:=0;
for i:=1 to m do
begin
for j:= 1 to n do
begin
domp:=domp+b[j];
end;
end;
rata:=domp/(m*n);
end;
var
a:arin;
i,j,m,n:integer;
domp:real;
begin
write('masukan...
mencari nilai terkecil array 2 dimensi
program matiks;
uses wincrt;
type
tab=record
kolom:integer;
baris:integer;
bil:integer;
end;
type
arin=array [1..100] of integer;
procedure min(b:arin;m,n:integer;var c:tab);
var
i,j,domp,temp:integer;
begin
domp:=b[1];
c.baris:=1;
c.kolom:=1;
for i:=1 to m do
begin
for...
Monday, May 2, 2011
mencari nilai maksimal dari 4 buah nilai
program min_4bil;
uses wincrt;
function min2(a,b:integer):integer;
var
x : integer;
begin
if a > b then
x:=a
else
x:=b;
min2:=x;
end;
var
a,b,c,d,x,y,z:integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
x:=min2(a,b);
y:=min2(c,d);
z:=min2(x,y);
writeln('nilai...
nilai maksimal dalam pascal
program maximal;
uses wincrt;
type
tabint =array[1..100] of integer;
var
M: array[1..100]of integer;
nilai: tabint;
n,i:integer;
max,temp:integer;
function maxtab(n:integer):integer;
begin
...
program utuh dalam pascal
uses wincrt;
var jum1,jum2,i,j : integer;
pilihan : char;
label akhir;
procedure inputjum;
begin
write('masukkan jumlah tabel1 : ');readln(jum1);
write('masukkan jumlah tabel2 : ');readln(jum2);
end;
procedure simetris;
...
Sunday, May 1, 2011
pytagoras dalam pascal
Program cobaaj;
uses wincrt;
function phytagoras(a,b,c:integer):boolean;
begin
if c=sqrt(sqr(a)+sqr(b)) then phytagoras:=true
else phytagoras:=false;
end;
var a,b,c:integer;
hasil:boolean;
begin
write('Masukan A = ');readln(a);
write('Masukan B = ');readln(b);
write('Masukan...
mencari keliling lingkaran dalam pascal
program keliling;
uses wincrt;
type tab=record
p:real;
t:real;
end;
function sm(a:tab):real;
begin
sm:=(sqrt(sqr(a.p)+sqr(a.t)));
end;
function kll(a:tab):real;
begin
kll:=(a.p+a.t+sm(a));
end;
...
bilangan prima dalam pascal
Program Bil_prim2;
uses wincrt;
var prima:array[1..500] of boolean;
batasan,batas,I,J:integer;
begin
Writeln('batas maksimal sampai dengan angka 500 ');
Write('masukkan batasan bilangan prima = ');
Readln(batasan);
for I:=1...
fungsi ascending
program ascending;
uses wincrt;
type
T = array[1..100] of integer;
procedure ascend (a : T; var temp : integer );
var
i,n,j,min : integer;
begin
for i:=1 to (n-1) do
begin
...
mengecek apakah tabel terurut (soal uts)
Program no4;
uses wincrt;
type tabint = array[1..100]of integer;
function cek_depan_kecil(a:tabint; n:integer):boolean;
var i:integer;
x:boolean;
begin
i:=1;
x:=true;
while x and (i<n) do
begin
...
mencari letak posisi nilai terkecil (soal uts)
Program min_akhir;
uses wincrt;
type tabint = array[1..100]of integer;
function posisi_min_akhir(a:tabint; n:integer):integer;
var i,j,k:integer;
begin
k:=1;
j:=a[1];
for i:=2 to n do
begin
if a[i]<=j then
...
menukar isi array dalam pascal (soal uts)
Program no1;
uses wincrt;
type tabint = array[1..100]of integer;
procedure balik_elemen(var a:tabint; n:integer);
var i,tmp,j:integer;
begin
j:=n;
for i:=1 to (n div 2) do
begin
tmp:=a[i];
a[i]:=a[j];
...
fungsi kuadrat dalam pascal
program kuadrat;
uses wincrt;
function dua(a:integer):integer;
var
x : integer;
begin
x:= (a*a);
dua:= x;
end;
var
a,x : integer;
begin
write ('masukan bilangan = ');
readln (a);
x:=dua(a);
writeln('jadi hasil bilangan setelah dikuadratkan adalah',x);
e...
mengubah tabel menjadi zig zag dalam pascal
program sigsag;
uses wincrt;
type
T=array [1..100] of integer;
procedure zigzag(a,b:T;n,m,p:integer; var c:T);
var
q,i,x:integer;
begin
p:=n+m;
x:=0;
if n<m then
begin
for i:= 1 to (n+n) do
begin
if i mod 2 <>...
mencari posisi terakhir dalam pascal
program memanggil_fungsi;
uses wincrt;
type
tabint=array [1..100] of integer;
function searching (A:tabint; n,x:integer):boolean;
var
i:integer;
found,hasil: boolean;
begin
i:=1;
...
Subscribe to:
Posts (Atom)