Modus
program data_sering_muncul;
uses wincrt;
var i,n,j,modus:integer;
a,frek:array[1..100] of integer;
begin
write ('banyaknya 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.
Hasil :
Rata-rata,Varian, Standar Deviasi, Nilai max min dan Range
Program :
program plus2;
uses wincrt;
var i,n:integer;
rata,vars,jml,jml1, sd, max, min, range:real;
x:array [1..100] of real;
begin
readln (n);
if n<0 then write ('tidak terdefinisi') else if n>0 then
begin
for i:=1 to n do
readln (x[i]);
begin
jml:=0;
for i:=1 to n do
jml:=jml+(x[i]);
rata:=jml/n;
writeln ('rata-rata= ',rata);
end;
begin
jml1:=0;
for i:=1 to n do
jml1:=jml1+((x[i]-rata)*(x[i]-rata));
vars:=jml1/(n-1);
writeln ('varian= ',vars);
end;
begin
sd:= sqrt (vars);
writeln ('standar deviasi= ',sd);
end;
begin
max:= (x[i]);
min:=(x[i]);
for i:=1 to n do
if (x[i]) > max then max:=(x[i])
else if (x[i]) < min then min :=(x[i]);
writeln ('nilai minimum= ',min);
writeln ('nilai maksimum= ',max);
range:= max-min;
writeln ('range= ',range);
end;
end;
end.
Hasil :
Kombinasi dan Permutasi
Ini adalah gambar inputan dan hasil dari turbo pascal
Matrik
Untuk membuat suatu matrik pada program pascal dapat menggunakan program dibawah ini
program matrik;
uses wincrt;
var
x:array [1..10,1..10] of integer;
i,j: integer;
begin
for i:=1 to 2 do
for j:=1 to 2 do
readln(x[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (x[i,j]:2,' ');
writeln;
end;
end.
Dalam pengembangan soal mengenai matrik yang sering ditanyakan adalah determinan dan invers dari suatu matrik. Untuk itu saya telah menyediakan programnya untuk anda. Silakan dicoba
program matrik;
uses wincrt;
var
x:array [1..10,1..10] of integer;
adj:array [1..10,1..10] of integer;
i,j,det: integer;
invers: real;
begin
for i:=1 to 2 do
for j:=1 to 2 do
readln(x[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (x[i,j]:2,' ');
writeln;
end;
det:=x[1,1]*x[2,2]-x[1,2]*x[2,1];
writeln('determinan =',det);
adj[1,1]:=x[2,2];
adj[1,2]:=-x[1,2];
adj[2,1]:=-x[2,1];
adj[2,2]:=x[1,1];
end;
begin
write ('invers');
writeln;
end;
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(adj[i,j]/det:4:2,' ');
writeln;
end;
end.
0 komentar:
Posting Komentar