Regula Falsi pada pascal

Regula Falsi

program regula_falsi;

uses crt;

label ulang;

var

x1,x2,x3,y1,y2,y3 : real;

i : integer;

Ab :char;

data1 : real;

begin

ulang:

clrscr;

writeln(‘Tentukan nilai akar dari persamaan f

(x)=x^3+x^2-3x-3=0 dengan Regula Falsi’);

write(‘Masukan nilai x1 = ‘);readln(x1);

y1 := x1 * x1 * x1 + x1 * x1 – 3 * x1 – 3;

writeln(‘ Nilai f(x1)= ‘,y1:0:4);

repeat

begin

write( ‘Masukan nilai x2 = ‘ ); readln(x2);

y2 := x2 * x2 * x2 + x2 * x2 – 3 * x2 – 3;

write(‘ Nilai f(x2)= ‘,y2:0:4);

end;

if (y1*y2)<0 span="" then="">

Writeln(‘ Syarat Nilai Ok’)

else

Writeln(‘ Nilai X2 Belum Sesuai’);

until ( y1 * y2 ) <0 span="">

writeln;

writeln(‘Penyelesaian persamaan karekteristik

dengan metoda regula falsi’);

writeln

(‘———————————————————————-’);

writeln(‘ n x f(x) error ‘);

writeln

(‘———————————————————————-’);

repeat

begin

i:= i + 1; x3 := ( x2-( y2 / ( y2 – y1))*(x2-

x1));

y3 := x3 * x3 * x3 + x3 * x3 – 3 * x3 – 3;

if i<10 span="" then="">

writeln(‘ ‘,i,’ : ‘,x3,’ : ‘,y3,’ : ‘,abs(y3),’ : ‘)

else

writeln(i,’ : ‘,x3,’ : ‘,y3,’ : ‘,abs(y3),’ : ‘);

if ( y1 * y3 ) <0 span="" then="">

begin

x2 := x3 ; y2 := y3 ;

end

else

begin

x1 := x3 ; y1 := y3;

end;

end;

until abs( y3 ) < 1E-08;

writeln

(‘———————————————————————-’);

writeln(‘Akar persamaannya= ‘,x3);

writeln(‘Errornya=’ ,abs( y3 ));

writeln

(‘———————————————————————-’);

writeln(‘Apakah anda ingin mengulangi (y/t):

‘);

readln(ab);

if (ab=’y') or (ab=’Y') then

goto ulang;

end.

Menghitung nilai Sin dengan sudut radian

program sin(x);

uses crt;

const pi = 3.14;

var

x,rad,p1,tot : real;

n,i,faktor,p2,j : integer;

tanda : byte;

begin

clrscr;

writeln(‘ Menentukan nilai sin(x)’);

write(‘Nilai x = ‘); readln(x);

write(‘Masukkan pangkat = ‘); readln(n);

rad := pi*x/180;

i := 1;

tanda := 1;

while i <= n do

begin

p1 := exp(i*ln(rad));

faktor := 1;

for j := 1 to i do

faktor := faktor *j;

p2 := faktor;

tot := tot + (tanda*p1/p2);

tanda := (-1)*tanda;

i := i+2;

end;

writeln(‘Sin(‘,x:5:2,’) = ‘,tot:5:2);

readln;

end.

Menghitung Luas dan keliling lingkaran

Program Luas_dan_Keliling_Lingkaran;

uses crt;

const pi = 3.14;

var

r,K,L : real;

begin

clrscr;

writeln(‘=============================’);

writeln(‘Menghitung Luas dan Keliling’);

writeln(‘—————————-’);

write(‘Jari – jari = ‘); readln(r);

K := pi*2*r;

L := pi*r*r;

writeln(‘Keliling Lingkaran = ‘,K:5:2);

writeln(‘Luas Lingkaran = ‘,L:5:2);

writeln(‘=============================’);

readln;

end.