Regular Falsi pada Turbo Pascal..

 Pada postingan kalii ini saya akan menjelaskan cara membuat Regular falsi pada Turbo pascal..

• Koodingannya berikut..

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)= x3 x^3 + x^2 - 3x - 3 - 0 dengan metode regula falsi ') ;
write ( ' masukan nilai x1 = ' ) ; readln (x1);
y1 := x1 * x1 * x1 + x1 * x1 - 3 * x1 - 3 ;
writeln ( ' nilai f(x) = ', 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 then
writeln ( ' syarat nilai OK ' )
else
writeln ( ' nilai x2 tidak sesuai ' );
until ( y1 * y2 ) < 0 ;
writeln ;
writeln ( ' penyelesaian karakteristik dengan metode regulafalsi : ' ) ;
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 then
writeln ('',i,'',x3,':',y3,':',abs (y3),':');
if y1 * y3 < 0 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 mengulanginya (y/t)' ) ;
readln (ab) ;
if ( ab = 'y' ) or ( ab = 'Y' ) then
begin
goto ulang
end ;
end. 

• Setelah koodingan telah siap: 
• Tulis koodingan tersebut di Turbo Pascal... Seperti berikut..

• Lalu Compile ada 2 cara meng-compilenya..

1. Klik COMPILE lalu Pilih COMPILE dan,
2. atau bisa dengan ALT + F9, Seperti ini tampilannya..

• Setelah Di Compile maka akan terlihat program kita apakah sudah benar atau belum jika sudah benar maka akan tampilannya seperti ini,, bahwa programnya siap untuk di RUNNING..

Logika:

• Menampilkan Hasil

Untuk menampilkan hasil dengan bahasa Pascal digunakan prosedur standar Write dan Writeln. Perbedaannya adalah, prosedur Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedangkan proseur standar Writeln digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya.

·         Pastikan pada komputer kita sudah memiliki aplikasi Turbo Pascal untuk memudahkan kita membuat suatu program dalam Turbo Pascal.

·         Langkah yang pertama yaitu :

·         Klik atau pilih aplikasi Turbo Pascal

·         Kemudian nanti akan muncul tampilan pada jendela Turbo Pascal, lalu tekan F10 untuk masuk dalam main menu Turbo Pascal, lalu pilih file – new.

·         Untuk membuat suatu program Case, programnya adalah :

Struktur  utama pada Turbo Pascal adalah sebagai berikut.

program ...                  ;   {deklarasi nama program}

uses ...                         ;   {deklarasi penggunaan unit}

label ...                                    ;   {deklarasi label}

const ...                        ;    {deklarasi konstant}

type ...                         ;    {deklarasi tipe data}

var ...                           ;    {deklarasi variabel}

procedure ...               ;   {deklarasi procedure}

function ...                   ;   {deklarasi function}

begin

statement                    ;    {program ditulis di sini}

...

end.

·         Setelah menuliskannya Koodingan Inputnya untuk menjalankannya dapat menekan tombol Ctrl + F9/ RUN pada Toolbar Seperti Dibawah Ini.

·         Setelah menekan tombol Ctrl + F9, maka pada / Run pada Tool bar Program Pascal akan muncul  tampilan dan perintah untuk menginput atau diminta untuk memilih satu pilihan dari beberapa pilihan yang ada dan jika memilih pilihan no.1 seperti pada gambar dibawah ini :

OUTPUTNYA

Maka akan muncul output seperti dibawah ini:

 

Ini adalah hasilnya jika nilai X1 dan x2 Sesuai maka akan ada pernyataan Nilai OK maka aka terlihat karakteristik dengan metode RegulaFalsinya..

Sekian postingan saya,, tunggu postingan saya berikutnya.. \^^/

.^^    _nDaH_ChiMoeT_     ^^,

Mengubah Tampilan Facebook menjadi tampilan Mirip Pinterest

Bagaimana mengubah tampilan facebook yang biasa menjadi tampilan mirip pinterest??..


Hmm tapi sebelum saya kasiih tau,, kalian harus tau Pinterest itu..

Pinterest adalah situs social networking yang sedang naik daun di Amerika,, Situs Pinterest ini cukup independent dikalangan social networking di Amerika...


Penasaran bukan bagaimana tampilan Pinterest bisa membooming disana ??..

Dan bagaimana facebook bisa diubah mirip Pinterest??..

kalii ini saya akan mencoba menjelaskan cara mengubah tampilan facebook mirip Pinterest....

1. Login facebook biasa anda yang seperti ini:

2. Kunjungi halaman di https://apps.facebook.com/pinviewer/ setelah login di Facebook.
3. Klik tombol berwarna hijau bertuliskan : click to get started
4. Klik tombol biru bertuliskan : go to app
5. Klik lagi tombol biru bertuliskan : allow. Tampilan aplikasi itu akan seperti gambar berikut :

Nah Sudah beda khan tampilan facebook anda... Tampilan facebook anda akan berubah seperti tampilan diatas...

Sekian Tulisan saya kalii ini,, tunggu tulisan-tulisan saya berikutnya.. \^^/

.^^    _nDaH_ChiMoeT_     ^^,