HP anda ASLI apa Palsu??..

Kita pasti sudah sering mendengar istilah blackmarket,,, blackmarket adalah pasar gelap..

Hmm tapii kalau mauu tau bagaimana cara melihat ASLI atau PALSU bagaimana??..

Berikut ini saya akan menjelaskan cara mengetahui apakah HP yang kita punya ASLI atau PALSU!!!..

Eitttsss Ini hanya Untuk ALL GSM, bukan Untuk CDMA.. :D

• Silakan ketik *#06# pada Handphone Anda.
• Maka akan terlihat code berupa angka/nomor sebanyak 15 Digits.
• Misal: 356247088131970
• Perhatikan angka yang berwarna biru pada urutan ke 7 dan urutan ke 8 yaitu: 08

Penjelasannya sebagai berikut, jika angka urutan ke 7 dan ke 8 menampilkan angka:

• 00 Hp buatan Perancis Kualitas Sangat Baik
• 01/10 Hp buatan Finlandia Kualitas Baik.
• 02/20 Hp buatan Asia Kualitas Kurang Baik.
• 08/80 Hp buatan Jerman Kualitas Lumayan.
• TIDK ADA NOMORNYAHp buatan ??? (TANDA TANYA) (HPnya PALSU/ Buatan Tangan)

Tidak menutup kemungkinan HP yang anda punya PALSU dimanapun anda membeli Hp sebaiknya berhati-hatii..

Sekian Postingan saya.. \^^/

.^^    _nDaH_ChiMoeT_     ^^,

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_     ^^,