Teman-teman yang lagi belajar program Turbo Pascal for Windows (TPW), ini ada koding-koding yang berkaitan dengan matematika. SEMOGA BERMANFAAT :)
1. Kode Pascal untuk program TUKAR DATA
program tukar_data;
uses wincrt;
var
x0,x1,x2: integer;
begin
writeln('Program
Tukar Data');
writeln(' ');
writeln('Data yang
akan ditukar');
writeln(' ');
write(' x1: '); readln (x1);
write(' x2: '); readln (x2);
writeln('data sebelum
ditukar');
writeln(' ');
writeln(' x1=',x1);
writeln(' x2=',x2);
writeln(' ');
writeln('data sesudah
ditukar');
x0:=x1;
x1:=x2;
x2:=x1;
writeln(' ');
writeln(' x1= ', x1);
writeln(' x2= ', x0);
end.
2. Kode pascal untuk program URUT DATA
program urut_data;
uses wincrt;
var
x: array [0..100] of integer;
i,n,j: integer;
procedure data_awal;
begin
write('masukkan
banyak data:'); readln (n);
for i:=1 to n do
begin
write('input data
ke-',i,':');readln (x[i]);
end;
end;
procedure rumus;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if x[j]>x[j+1]
then
begin
x[0]:= x[j];
x[j]:= x[j+1];
x[j+1]:=x[0];
end
end;
end;
procedure akhir;
begin
writeln('maka data
setelah ditukar adalah');
for i:=1 to n do
begin
writeln('data
ke-',i,':',x[i]);
end;
end;
begin
data_awal;
rumus;
akhir;
end.
3. Kode Pascal untuk mencari median (NILAI TENGAH)
program Nilai_tengah;
uses wincrt;
procedure median;
var
x:array [0..100] of integer;
n,i,j:integer;
mdn:real;
begin
writeln(' program mencari
median');
write('masukkan
banyak data:'); readln (n);
for i:=1 to n do
begin
write('input data
ke-',i,':');readln (x[i]);
end;
for i:=1 to n-1 do
for j:=1 to n-i do
if x[j]>x[j+1]
then
begin
x[0]:= x[j];
x[j]:= x[j+1];
x[j+1]:=x[0];
end;
writeln(' ');
writeln('maka data
setelah ditukar adalah');
for i:=1 to n do
begin
writeln('data
ke-',i,':',x[i]);
end;
if n mod 2=1 then
begin
mdn:=x[(n+1) div 2];
end
else
begin
mdn:=(x[(n div
2)]+x[((n div 2)+1)])/2;
end;
writeln(' ');
writeln('maka dari data diatas mediannya adalah:',mdn:0:2);
end;
begin
median;
end.
0 komentar:
Posting Komentar