PERINTAH WITH..DO DALAM PASCAL

With..Do adalah perintah untuk memasukkan sekelompok data kedalam sebuah variable. Pada umumnya perintah ini digunakan untuk memasukkan data – data kedalam sebuah file bertipe (type file).
Contoh program:

Uses wincrt;
Type
  Saya = record
  Nama : string [15];
  Umur : byte;
  Alamat : string [20];
End;
 
Var  DataSaya : saya;
Begin
  Clrscr ;
  With DataSaya do
  Begin
    Write ('ketik nama:');readln ( nama );
    Write ('ketik umur:');readln (umur );
    Write ('ketik alamat:');readln (alamat );
    Clrscr;
    Writeln ('selanjutnya data yang sudah dapat');
    Writeln ('disimpan kedalam sebuah record ');
    Writeln;
    Writeln ('nama :',nama);
    Writeln ('umur :',umur);
    Writeln ('alamat :',alamat);
    Readln;
    End;
End.

CARA JAILBREAK iPhone 3G

Jailbreak iPhone 3G sangat beresiko karena bila terjadi kegagalan mungkin saja iPhone anda jadi matot, selengkapnya keterangan tentang Jailbreak iPhone bisa dibaca disini. Tutorial singkat Cara Jailbreak iPhone berikut ini hanya sebagai pengenalan saja, langkah-langkah cara jailbreak atau Unlock iPhone disini hanya untuk sumber pengetahuan.

Catatan: Anda TIDAK perlu men-Jailbreak iPhone untuk bisa menambah dan menginstal Aplikasi atau berbagai program menarik lainnya untuk iPhone. Anda bisa Menginstal Program atau Aplikasi Lewat Apps Store, yang anda perlukan hanya sebuah Account iTunes untuk bisa memulai men-Download dan Menginstal Aplikasi dari Apps Store.

Cara Jailbreak iPhone dibawah ini hanya untuk iPhone 2.x.x 3G dan Baseband Version iPhone anda adalah 02.28 atau yang lebih rendah (Cara mengetahui Versi Baseband iPhone : pada [Home Screen] klik [Setting] – [General] – [About] – dan lihat [Modem Firmware]). Langkah Jailbreak berikut ini juga menggunakan software QuickPwn.

Sebelum melakukan Jailbreak iPhone, download file-file yang diperlukan untuk proses Jailbreak ini.

• QuickPwn-225-2.zip (16 MB)
• iPhone1,2_2.2_5G77_Restore.ipsw atau iPhone1,2_2.2.1_5H11_Restore.ipsw (non Unlock) (246 MB)

Ekstrak dan simpan semua file di folder Pwnage
Hubungkan iPhone ke komputer dan jalankan iTunes. Pastikan iPhone anda telah terdeteksi oleh iTunes. lalu lakukan proses restore. Tekan tombol Shift dan Klik Restore.

Arahkan ke folder Pwnage seperti yang telah dibuat tadi dan buka file iPhone1,2_2.2_5G77_Restore.ipsw.

Tunggu sampai proses restore selesai. Setelah proses update firmware beres. Dalam kondisi iPhone masih terhubung ke komputer jalankan program QuickPwn.exe untuk memulai proses Jailbreak iPhone anda.

Setelah iPhone anda terdeteksi oleh QuickPwn klik tombol biru.
Browse atau cari file firmware yang tadi anda gunakan pada proses restore (iPhone1,2_2.2_5G77_Restore.ipsw) yang terdapat pada folder Pwnage Begitu QuickPwn Selesai mengecek valid tidaknya file firmware klik tombol biru.

Ada beberapa pilihan yang muncul untuk diinstal ke iPhone anda, agar iPhone anda lebih powerfull ada baiknya anda pilih Cydia, Add Installer dan Replace Boot Logos. Klik tombol biru sekali lagi.

Pastikan iPhone anda telah terhubung ke komputer, sebelum memulai proses Jailbreak. Kalau telah yakin klik tombol biru.

Selanjutnya tinggal anda ikuti langkah-langkah yang diperintahkan oleh QuickPwn dengan seksama, dan tentunya tanpa kesalahan bila anda tidak ingin mengalami kegagalan dalam proses Jailbreak.

Sekali lagi ini cuma sekedar untuk pengetahuan cara Jailbreak iPhone atau Unlock iPhone, kalau anda berniat untuk men-Jailbreak iPhone milik anda, tentu dengan resiko dan tanggungjawab anda sendiri.
Daftar Firmware untuk Proses Jailbreak iPhone 3G sesuai Baseband Versionnya:

• 2.2 3G: iPhone1,2_2.2_5G77_Restore.ipsw (02.28.00)
• 2.1 3G: iPhone1,2_2.1_5F136_Restore.ipsw (02.11.07)
• 2.0.2 3G: iPhone1,2_2.0.2_5C1_Restore.ipsw (02.08.01)
• 2.0.1 3G: iPhone1,2_2.0.1_5B108_Restore.ipsw (01.48.02)
• 2.0.0 3G: iPhone1,2_2.0_5A347_Restore.ipsw (01.45.00)

Untuk selalu Uptodate dengan info-info seputar iPhone, tips iPhone, Download Aplikasi iPhone, Hack iPhone sampai kepada Download Theme iPhone, Cara Mengganti Theme iPhone, Apa itu Cydia dan info-info menarik dan penting lainnya, silakan masukkan email anda di bawah ini dan klik Subscribe. Setelah itu cek email email untuk proses konfirmasi. Terima kasih. Salam Sukses Selalu!

SET TIME

Untuk mengubah jam DOS. Jika jam DOS anda salah, ubahlah dengan contoh program di bawah ini:

{Nama Program: SetTime.PAS }

Uses Crt, DOS;

Var Jam, Mnt, Dtk, Sec: word;
BEGIN
 (* ************* MENGUBAH JAM DOS ************* *)
Write('masukkan jam baru');
Readln(jam);
write('mauskkan menit baru');
Readln(Mnt);
Write('Masukkan detik baru');
Readln(Dtk);
Sec:=0;
SetTime(Jam,Mnt,Dtk,Sec);
Write('Jam DOS sudah diubah');
Readln;
END.

ARRAY / LARIK

Array (larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen yang
mempuyai tipe sama.
B.U :
Array [ 1 . . 20 ] of tipe_data ; (Dimensi 1)
B.U :
Array [1 . . 3 , 1 . . 2] of tipe_data; (Dimensi 2)
Contoh
Program Array :
Uses crt ;
Var
Nama : array [1..30 ] of string ;
Tugas, uts, uas, absen : array [1..30] of integer ;
Rata : array [1..30] of real ;
x , jd : byte;
BEGIN
CLRSCR ;
Write (
‘
Masukan Jumlah data :
‘
) ; readln ( jd ) ;
For x : = 1 to jd do
begin
Writeln (
‘
*****************************
‘
) ;
Writeln (
‘
PENILAIAN UJIAN MAHASISWA BSI
‘
) ;
Writeln (
‘
*****************************
‘
) ;
Write (
‘
Input Nama :
‘
) ; readln (nama[x] ) ;
Write (
‘
Input Nilai Tugas :
‘
) ; readln (tugas[x] ) ;
Write (
‘
Input Nilai Absen :
‘
) ; readln (absen[x] ) ;
Write (
‘
Input Nilai UTS :
‘
) ; readln (uts[x] ) ;
Write (
‘
Input Nilai UAS :
‘
) ; readln (uas[x]) ;
Rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);
End ;
CLRSCR ;
For i : = 1 to j do
Begin
Writeln (
‘
*****************************
‘
) ;
Writeln (
‘
PENILAIAN UJIAN MAHASISWA BSI
‘
) ;
Writeln (
‘
*****************************
‘
) ;
Writeln (
‘
Nama :
‘
, nama[i] ) ;
Writeln (
‘
Nilai Tugas :
‘
, tugas[i] ) ;
Writeln (
‘
Nilai Absen :
‘
, absen[i] ) ;
Writeln (
‘
Nilai UTS :
‘
, uts[i] ) ;
Writeln (
‘
Nilai UAS :
‘
, uas[i]) ;
Writeln (
‘
****************************
‘
) ;
Writeln (
‘
Rata-rata :
‘
, rata : 1: 0 ) ;
Readln ;
End;
END.

Menganalisa Source Code Contoh Program dengan Array pada Pascal (3 - Final)

Keyword :
Pascal,
Source Code,
Array,
Struktur Data,
Algoritma,
Bagian : 3 dari 3 (Final)

uses crt;
const awal=1;
akhir=5;
var nama: array[awal..akhir] of string;
nim: array[awal..akhir] of string;
n: integer;
begin
clrscr;
writeln (’Isi NIM dan Nama dengan Array’);
For n:=1 to 5 do
begin
write (’NIM -’,n,’:'); readln(nim[n]);
write (’Nama -’,n,’:'); readln(nama[n]);
writeln;
end;
writeln;
writeln (’Hasil dari inputan adalah:’);
for n:=1 to 5 do
begin
writeln (’NIM -’,n,’:',nim[n]);
writeln (’Nama -’,n,’:',nama[n]);
writeln;
end;
readln;
end.

ARRAY PASCAL

Array
Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen type, larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript. Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

MEMBUAT COMPILER SEDERHANA DENGAN VB

Hallo...ketemu lagi dengan aa hadra...
Kali ini bakalan membahas soal compiler....emmm....tapi sederhana aja sih....soalnya kita

juga buildernya pakek visual basic....so...kayaknya gak kayak visual c++ yang emang bisa

jadi compiler karena OOP-nya ituh....gitu deh...tapi senoga bisa berguna buat pengetahuan

membuat virus dan program buat kalian....okeh....just check it out!!!!!!

Tentang Jailbreak iPhone atau Unlock iPhone?

Apa Arti Jailbreak iPhone?
Jailbreak secara umum berarti membuat iPhone untuk bebas di modifikasi, dan menghilangkan berbagai macam keterbatasan-keterbatasan yang ada pada iPhone.

Kenapa harus di Jailbreak?

Cara mudah belajar algoritma pemograman dengan C++

Cara Mudah Belajar Algoritma Pemograman dengan C++

Tujuan nya adalah untuk memudahkan pembuatan program baik yang sederhana maupun yang kompleks.

Yang dimaksud dengan program adalah kumpulan intruksi yang digunakan untuk mengatur computer agar melakukan suatu tindakan tertentu.

Suatu program ditulis mengikuti kaidah bahasa pemograman tertentu. Bahasa pemograman dapat di analogikan dengan bahasa yang digunakan  manusia (bahasa manusia). Kumpulan intruksi dalam bahasa manusia yang berupa sejumlah kalimat dapat anda analogikan dengan suatu program.

Dalam konteks pemograman, terdapat sejumlah bahasa pemograman, seperti : Pascal, C, C++, dan Basic.

pengaruh handphone terhadap kesehatan

Assalamu alaikum wr.wb. salam-salam dulu Ok! Alhamdulillah tentang postingan ini saya akan menjelaskan dan membagi pengetahuan saya, Tentang pengaruh HP (handphone) atau ponsel terhadap kesehatan, sebenarnya handphone/ponsel itu memiliki dampak negatif atau efek samping kita tidak tau. Bukan saja makanan dan minuman itu memiliki Efek samping bahkan alat-alat elektonik yang canggih dan modern memiliki efek samping yaitu RADIASI HANDPHONE Memang handphone radiasinya kecil tapi sangat berbahaya bagi kesehatan kita dari hal kecil bisa menjadi besar. dampak- dampak yang di timbulkan handphone atau ponsel antara lain:

• Dapak membuat otak jadi lelet