Pascal:Mencari Mean, Median dan Modus - Revision history

Kangtain at 18:24, 14 October 2022

2022-10-14T18:24:20Z

← Older revision		Revision as of 01:24, 15 October 2022
Line 1:		Line 1:
	Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].		Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].<syntaxhighlight lang="pascal" line="1">
			uses wincrt;
	uses wincrt;		type
	type		larik=array [1..100] of integer;
	larik=array [1..100] of integer;		var
	var		a:larik;
	a:larik;		i,j,n:integer;
	i,j,n:integer;		Procedure input;
	Procedure input;		begin
			write('Berapa data : ');readln(n);
			for i:=1 to n do readln(a[i]);
			end;
			Function mean:real;
			var x:real;
			begin
			x:=0;
			for i:=1 to n do
	begin		begin
	~~write('Berapa data : ');readln(n);~~		x:=x+a[i];
	~~for i~~:=~~1 to n do readln(~~a[i]);
	end;		end;
	Function ~~mean~~:real;		mean:=x/n;
	var x:~~real~~;		end;
			Function median:real;
			var b:integer;
			begin
			for i:=1 to n-1 do
	begin		begin
	x:=0;		b:=0;
	for i:=~~1 to~~ n do		for j:=n downto i do
	begin		if a[j]<a[i] then
	x:=x+a[i];		begin
	~~end~~;		b:=a[i];
	~~mean~~:=~~x/n~~;		a[i]:=a[j];
			a[j]:=b;
	end;		end;
	Function ~~median~~:~~real~~;		end;
	var b:~~integer~~;
			if n mod 2 = 0 then
			median:=(a[n div 2]+a[(n div 2)+1])/2
			else
			median:=a[(n div 2)+1];
			end;
			Function modus:integer;
			type dus=array [1..100] of integer;

			var mo:dus;
			begin
			for i:=1 to n do
	begin		begin
	~~for~~ i~~:=1 to n-1 do~~		mo[i]:=0;
	~~begin~~		for j:=i+1 to n do
	b:=0;		begin
	for j:=n ~~downto i~~ do		if a[i]=a[j] then
	~~if a[j]<a[i] then~~		mo[i]:=mo[i]+1;
	begin		end;
	~~b:=~~a[i];
	~~a[i]:~~=a[j];
	a[j]:=b;
	~~end;~~
	~~end;~~

	~~if n mod 2 = 0 then~~
	~~median:=(a~~[~~n div 2~~]~~+a[(n div 2)~~+1~~])/2~~
	~~else~~
	~~median:=a[(n div 2)+1]~~;
	end;		end;
	~~Function modus~~:~~integer;~~
	~~type dus~~=~~array [~~1~~..100] of integer;~~		for i:=1 to n do

	~~var mo:dus;~~
	begin		begin
	~~for i:=1 to n do~~		if mo[i]>0 then
	~~begin~~		modus:=i;
	~~mo[i]:=0;~~
	~~for j:=i+1 to n do~~
	~~begin~~
	~~if a[i]=a[j] then~~
	~~mo[i]:=mo[i]+1;~~
	~~end;~~
	~~end;~~

	~~for i:=1 to n do~~
	~~begin~~
	if mo[i]>0 then
	modus:=i;
	~~end~~;
	end;		end;
	begin		end;
	input;		begin
	mean;		input;
	median;		mean;
	modus;		median;
	writeln('Mean : ',mean:3:2);		modus;
	writeln('Median : ',median:2:1);		writeln('Mean : ',mean:3:2);
	writeln('Modus : ',a[modus]);		writeln('Median : ',median:2:1);
	end.		writeln('Modus : ',a[modus]);
			end.
			</syntaxhighlight>

	==Terkait==		==Terkait==

Kangtain at 09:59, 25 November 2021

2021-11-25T09:59:30Z

← Older revision		Revision as of 16:59, 25 November 2021
Line 1:		Line 1:
	Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].		Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].

	~~{{Code\|Pascal}}~~
	uses wincrt;		uses wincrt;
	type		type

Kangtain at 02:43, 10 November 2021

2021-11-10T02:43:13Z

← Older revision		Revision as of 09:43, 10 November 2021
Line 1:		Line 1:
	Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].		Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].

			{{Code\|Pascal}}
	uses wincrt;		uses wincrt;
	type		type

Kangtain: Created page with "Berikut adalah contoh program untuk mencari mean,median dan modul pada Pascal. uses wincrt; type larik=array [1..100] of integer; var a:larik; i,j,n:integer; Pr..."

2021-10-30T22:52:10Z

Created page with "Berikut adalah contoh program untuk mencari mean,median dan modul pada Pascal. uses wincrt; type larik=array [1..100] of integer; var a:larik; i,j,n:integer; Pr..."

New page

Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].

uses wincrt;
type
larik=array [1..100] of integer;
var
a:larik;
i,j,n:integer;
Procedure input;
begin
write('Berapa data : ');readln(n);
for i:=1 to n do readln(a[i]);
end;
Function mean:real;
var x:real;
begin
x:=0;
for i:=1 to n do
begin
x:=x+a[i];
end;
mean:=x/n;
end;
Function median:real;
var b:integer;
begin
for i:=1 to n-1 do
begin
b:=0;
for j:=n downto i do
if a[j]<a[i] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
end;

if n mod 2 = 0 then
median:=(a[n div 2]+a[(n div 2)+1])/2
else
median:=a[(n div 2)+1];
end;
Function modus:integer;
type dus=array [1..100] of integer;

var mo:dus;
begin
for i:=1 to n do
begin
mo[i]:=0;
for j:=i+1 to n do
begin
if a[i]=a[j] then
mo[i]:=mo[i]+1;
end;
end;

for i:=1 to n do
begin
if mo[i]>0 then
modus:=i;
end;
end;
begin
input;
mean;
median;
modus;
writeln('Mean : ',mean:3:2);
writeln('Median : ',median:2:1);
writeln('Modus : ',a[modus]);
end.

==Terkait==
*[[Pascal]]
==Referensi==
*[https://bit.ly/3kKXNYR wordpressdotcom]

[[Category:Pascal]][[Category:Pemograman]]