Rabu, 25 Maret 2015
Rabu, 12 Juni 2013
mencari rata-rata dengan program pascal
Buat yang baru
belajar pascal,ini nih ada program simpel buat nyari rata-rata. Semangat
belajar program pascal. Alah bisa karena biasa, pantang menyerah yaa :)
uses crt;
var i,n:integer;
sum,r:real;
x:array[1..100] of
integer;
begin
write('jumlah n: ');
readln (n);
sum:= 0;
writeln('masukkan
angka: ');
for i := 1 to n do
begin
readln(x[i]);
sum:=sum+(x[i]);
end;
r:=sum/n;
write('rata-ratanya
adalah: ',r:3:3);
readln;
end.
Nah, gini
penjelasannya, kalo kita pengen nyari nilai rata-rata sebanyak 5 bilangan(misal),
saat di run masukkan angka5. Kemudian masukkan angka yang akan kita hitung
rata-ratanya. Misal 7,6,3,9, dan 23. Setelah itu tekan enter ..
Walaaa, hasil dari
rata-rata ke 5 bilangan tersebut adalah 9,6. Benar kan?
Selamat mencoba :)
integral metode simpson dengan program pascal
Hai rek,
hehe,kemaren ada tugas kampus matkul program komputer, jadi tak share aja deh
cara buat nyari integral dengan metode simpson, gimana yah caranya?check this
out :)
uses crt;
var
a,b,h,t,s,xi,p :
real;
i,n:integer;
function f(x:real):real;
begin
f:=1/sqrt(2*3.14)*exp(-0.5*x*x);
end;
begin
write('batas atas:
');
readln(a);
write('batas bawah:
');
readln(b);
write('jumlah
iterasi: ');
readln(n);
if n mod 2 = 1 then
halt;
h:= (b-a)/(n);
t:=0;
s:=0;
for i:= 1 to n-1 do
begin
xi:=a+i*h;
if i mod 2 = 0 then
t:= t+f(xi)
end;
for i:= 1 to n do
begin
xi:=a+i*h;
if i mod 2 = 1 then
s:= s+f(xi)
end;
p:=(h/3)*(f(a)+f(b)+2*t+4*s);
writeln('Nilai
integral adalah : ',p:1:3);
readln;
end.
Gitu sintagnya.
Sintag diatas digunakan untuk menyelesaikan soal dalam mencari integral dari
Hasilnya
adalah 0,475 kan?
Untuk
soal lainnya tinggal mengganti fungsi pada sintag diatas.
Selamat mencoba,
semoga sukses :)
eliminasi gauss dengan program pascal
Pengen ngeshare
nih gimana sih caranya buat program eliminasi gauss dengan program pascal.
Semoga dapat membantu :)
uses crt;Const
Max = 25;
Type
Matrik = record
Row, col : byte;
Element : array
[1..max, 1..max] of real;
End;
Vektor = record
Row : byte;
Element : array
[1..max] of real;
End;
Var
x, b : vektor;
A : matrik;
n : integer;
c : real;
Error : boolean;
Procedure
masukkandata;
Var i,j : byte;
Begin
Write ('Jumlah
persamaan :');
Readln (n);
A.row := n;
A.col := n ;
b.row := n;
for i := 1 to n
do
begin
writeln
('Persamaan ke ',i );
for j := 1 to n
do
begin
write
('X[',i,',',j,'] = ');
readln
(A.element[i,j]);
end;
write('Y[',i,'] = '); readln(A.element[i,n+1]);
writeln;
end;
end;
procedure
eliminasigauss;
var I,j,k :
integer;
temp, S : real;
Begin
Error := false;
For i := 1 to n
do
Begin
If
(A.element[i,i] = 0 ) then
Begin
write(A.element[i,i])
;
Error := true;
Exit;
End;
temp :=
A.element[i,i];
for k := 1 to n+1
do
begin
A.element[i,k] :=
A.element[i,k] / temp;
end;
For j := 1 to n do
begin
if(j<>i)
then
begin
c :=
A.element[j,i];
for k := 1 to n+1
do
begin
A.element[j,k] :=
A.element [j,k] - (c * A.element[i,k]);
end;
end;
end;
end;
x.row := n;
for i := n downto
1 do
begin
if (A.element
[i,i] = 0.0 ) then
Begin
Error := true;
Exit;
End;
x.element[i] :=
A.element[i,n+1];
end;
end;
Procedure
tulishasil;
Var i : byte;
Begin
If (error) then
Begin
Writeln ('tidak
memenuhi');
End
Else
Begin
Writeln;
Writeln
('Penyelesaian : ');
For i := 1 to
x.row do
Writeln('X',i,' =
',x.element[i]:6:2);
End;
End;
Begin
Masukkandata;
Eliminasigauss;
Tulishasil;
readln;
End.
Itu tuh
sintagnya, sintag ini dapat digunakan untuk mencari akar-akar persamaan dari
beberapa persamaan,tergantung nilai n yang kita masukkan.
Berikut adalah
contoh hasil program dari soal:
2x1 +
3 x2 + 6 x3 = 5
7x1 +
5 x2 +6 x3 = 2
4x1 +
3x2 + 6x3 = 7
Dan jawabannya
adalah
x1 = 1
x2
= -4
selamat mencoba
kawan-kawan :)
program bintang naik dengan pascal
Gimana sih caranya
buat bintang naik dengan program pascal? Simpel kok ternyata, just check this :)
uses crt;
var n,i,j:integer;
begin
write('banyak
bintang: ');
readln(n);
for i:= 1 to n do
begin
for j:=1 to i do
write('*');
readln;
end;
end.
Gitu sintagnya,
setelah dirun ini nih hasilnya ...
Practice this yaaa :) sukses hanya ada pada orang yang senantiasa mencoba, good luck :)
Senin, 13 Mei 2013
lomba blog se jatim
Kamis, 25 April 2013
pascal bintang menurun
iseng-iseng buat pola bintang menurun dari program pascal. buat yang baru belajar pascal mungkin bisa dicoba-coba ..
uses crt;
var i,n,j :integer;
begin
write ('jumlah bintang =');
readln(n);
for i:= n downto 1 do
begin
for j:= 1 to i do
write('*');
readln;
end;
end.
setelah di run, ini nih hasilnya
uses crt;
var i,n,j :integer;
begin
write ('jumlah bintang =');
readln(n);
for i:= n downto 1 do
begin
for j:= 1 to i do
write('*');
readln;
end;
end.
setelah di run, ini nih hasilnya
semoga bermanfaat, selamat mencoba, semangat ^^
Langganan:
Postingan (Atom)