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:

2x₁ + 3 x₂ + 6 x₃ = 5

7x₁ + 5 x₂ +6 x₃ = 2

4x₁ + 3x₂ + 6x₃ = 7

Dan jawabannya adalah

x₁ = 1

x₂ = -4                          

x₃ = 2,5

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 :)