PASCAL RECORD

Contoh program di bawah ini adalah program pengurutan nilai dari yang terbesar sampai yang terkecil dengan menggunakan RECORD;
Di bawah ini adalah jawaban dari soal UTS di Kampus tercinta POLITEKNIK NEGERI BALI.

uses crt;
Type
data = Record
No : integer;
Nama : string;
nilai : integer;
end;
procedure pindah(var a,b:integer);
var m:integer;
begin
m:=a;
a:=b;
b:=m;
end;
procedure pindah2(var x,y:string);
var n:string;
begin
n:=x;
x:=y;
y:=n;
end;

procedure pindah3(var c,d:integer);
var w:integer;
begin
w:=c;
c:=d;
d:=w;
end;
var
dt:array[1..10] of data;
tnil:real;
n,i,j:integer;
rnil:real;
begin
clrscr;
tnil:=0;
write('Masukan Jumlah Siswa :'); read(n);
for i:=1 to n do
begin
write('No:'); readln(dt[i].No);
write('Nama:'); readln(dt[i].Nama);
write('nilai:'); readln(dt[i].nilai);
tnil:=(tnil+dt[i].nilai);
end;
rnil:=tnil/n;
for i:=1 to n do
begin
if dt[i].nilaidt[j].nilai then
begin
pindah(dt[i].no,dt[j].no);
pindah2(dt[i].nama,dt[j].nama);
pindah3(dt[i].nilai,dt[j].nilai);
end;
end;
end;
for i:=1 to n do
begin
writeln('No :',dt[i].no);
writeln('Nama :',dt[i].nama);
writeln('Nilai :',dt[i].nilai);
writeln;
end;
readln;
end.

Read more »

KODE RAHASIA HANDPHONE

* # 30 # Menampilkan 'private number' yang memanggil Anda
* # 73 # Reset phone timers and game scores * # 73 # Reset timer ponsel dan skor game
* # 7780 # Restore to factory settings * # 7780 # Mengembalikan ke pengaturan pabrik
* # 2820 # Bluetooth device IP address (only for having that feature Bluetooth) * # 2820 # alamat IP perangkat Bluetooth (hanya untuk yang memiliki fitur Bluetooth)
xx # Quick access to the names / phone numbers in the phonebook eg 20 # xx # Akses cepat ke nama / nomor telepon dalam buku telepon misalnya 20 #
* 3370 # Activate Enhanced Full Rate Codec (EFR). * 3370 # Mengaktifkan Enhanced Full Rate Codec (EFR). Your Nokia phone will use the best sound quality, but this feature requires more energy allows for a little drain battery power. Ponsel Nokia Anda akan menggunakan kualitas suara terbaik, namun fitur ini memerlukan energi lebih memungkinkan untuk sedikit menguras daya baterai.
# 3370 # Disables Enhanced Full Rate Codec (EFR) # 3370 # Menonaktifkan Enhanced Full Rate Codec (EFR)
*# 4720 # Activate Hall Rate Codec. * # 4720 # Mengaktifkan Hall Rate Codec. Your Nokia phone will use a lower quality sound can save energy battery allows for approximately 30% Ponsel Nokia Anda akan menggunakan kualitas suara lebih rendah dapat menghemat energi baterai memungkinkan untuk sekitar 30%
# 4720 # Disable Half Rate Codec # 4720 # Half Rate Codec Nonaktifkan
*# 0000 # Displays phone software version. * # 0000 # Menampilkan versi software ponsel. The first line shows the software version, the second line shows the date of manufacture of software, The third row shows the compression type in use. Baris pertama menunjukkan versi software, baris kedua menunjukkan tanggal pembuatan software, Baris ketiga menunjukkan tipe kompresi yang digunakan.
* # 9999 # Code alternative if * # 0000 # does not work * # 9999 # Kode alternatif jika * # 0000 # tidak bekerja
* # 06 # Looking at the number of international Mobile Equipment Identity (IMEI number) * # 06 # Melihat jumlah internasional (nomor IMEI) Mobile Equipment Identity
* # 21 # to check the number a call “All Calls” in use * # 21 # untuk memeriksa nomor panggilan "All Calls" yang digunakan
* # 2640 # Displays phone security code in use (if still using the standard codes will not be visible) * # 2640 # Menampilkan kode keamanan ponsel yang digunakan (jika masih menggunakan standar kode tidak akan terlihat)
* # 43 # Check the status of “Call Waiting” * # 43 # Mengecek status "Call Waiting"
* # 61 # To check the caller's number who diverted when you do not answer (If you activate the Call divert / transfer calls) * # 61 # Untuk mengecek nomor pemanggil yang dialihkan ketika Anda tidak menjawab (Jika anda mengaktifkan pengalihan panggilan / pengalihan panggilan)
* # 62 # Checking the caller number who diverted when your phone out of range (if you activate the Call divert / transfer calls) * # 62 # Mengecek nomor pemanggil yang dialihkan ketika ponsel Anda di luar jangkauan (jika Anda mengaktifkan Call pengalihan / transfer panggilan)
* # 67 # to check the caller's number who diverted when your phone is busy (If you activate the call divert / transfer calls) * # 67 # untuk memeriksa nomor pemanggil yang dialihkan ketika ponsel Anda sedang sibuk (Jika Anda mengaktifkan panggilan pengalihan / transfer panggilan)
** 21 * number # Turn on the transfer of “All Calls” in the number loaded ** 21 * number # Menghidupkan pengalihan "All Calls" pada nomor yang diisi
** 61 * number # Turn on the transfer of “No Reply” at the number loaded ** 61 * number # Menghidupkan pengalihan "No Reply" pada nomor yang dimuat
** 67 * number # Turn on the transfer of “On Busy” in the number loaded ** 67 * number # Menghidupkan pengalihan "On Busy" pada nomor yang diisi
* # 67705646 # Changing Logo Operator Logo on Nokia 3310 and 3330 * # 67705646 # Mengganti dengan Operator dengan Nokia 3310 dan 3330
* # 746025625 # Displays the SIM Clock status. * # 746025625 # Menampilkan status SIM Clock. If your phone supports energy-saving features will come out the words “Sim Clock Stop Allowed”, means you will get a longer standby time reply. Jika telepon Anda mendukung fitur-fitur hemat energi akan keluar tulisan "Sim Clock Stop Allowed", berarti Anda akan mendapatkan balasan waktu yang lebih lama siaga.
* # 7760 # Displays the code of the manufacturer (for most of the old type phone) * # 7760 # Menampilkan kode pabrikan (untuk sebagian besar ponsel tipe lama)
* # 92702689 # Raising: * # 92702689 # Raising:
1.Serial Number (serial number), 1.Serial Number (nomor serial),
2.Date Made (manufacture date), 2.Date Made (tanggal pembuatan),
3.Purchase Date (date of purchase), 3.Purchase Date (tanggal pembelian),
4.Date of last repair (date of last repair / 0000 for which no repairs). 4.Date perbaikan terakhir (tanggal terakhir perbaikan / 0000 yang tidak ada perbaikan).
5. 5. Transfer User Data. Transfer User Data. Many mobile phone, to exit this mode you must restart the phone. Banyak ponsel, untuk keluar dari mode ini Anda harus merestart ponsel.

Read more »

KODE RAHASIA HANDPHONE CHINA

Service codes "Chinese" models:
* default user code: 1122, 3344, 1234, 5678
* Engineer mode: *#110*01#
* Factory mode: *#987#
* Enable test mode COM port: *#110*01# -> Device -> Set UART -> PS Config -> UART1/115200
* Restore factory settings: *#987*99#
* LCD contrast: *#369#
* software version: *#800#

* software version: *#900#
*#66*# Set Factory Mode CONFIRMED
*#8375# Show Software Version CONFIRMED
*#1234# A2DP ACP Mode CONFIRMED
*#1234# A2DP INT Mode CONFIRMED
*#0000# + Send : Set Default Language CONFIRMED
*#0007# + Send : Set Language to Russian CONFIRMED
*#0033# + Send : Set Language to French CONFIRMED
*#0034# + Send : Set Language to Spanish CONFIRMED
*#0039# + Send : Set Language to Italian CONFIRMED
*#0044# + Send : Set Language to English CONFIRMED
*#0049# + Send : Set Language to German CONFIRMED
*#0066# + Send : Set Language to Thai CONFIRMED
*#0084# + Send : Set Language to Vietnamese CONFIRMED
*#0966# + Send : Set Language to Arabic CONFIRMED

More some codes for reset mobile china
*#77218114#
*#881188#
*#94267357#
*#9426*357#
*#19912006#
*#118811#
*#3646633#

CHINESE MODELS:

default user code: 1122, 3344, 1234, 5678

Engineer mode: *#110*01#

Factory mode: *#987#

Enable COM port: *#110*01# -> Device -> Set UART -> PS Config -> UART1/115200

Restore factory settings: *#987*99#

LCD contrast: *#369#

software version: *#800#

software version: *#900#

set default language: *#0000# Send

set English language: *#0044# Send

set English language (new firmware): *#001# Send

also
==========
Service codes BenQ:
software version: *#300#
test mode: *#302*20040615#

Service codes Pantech:
software version: *01763*79837#
service menu: *01763*476#
reset defaults (phone/user code reset to default): *01763*737381#

Service codes 3xx, 5xx:
software version: *#79#
software version: *#837#
Service codes VK200, VK2000, VK2010, VK2020, VK4000:
software version: *#79#
service menu: *#9998*8336# (hold #)
reset defaults (phone/user code reset to default): *#9998*7328# (hold #)

Service codes LG:
software version: 2945#*#

Service codes Sony-Ericsson:
J100 software version: #82#

Service codes Fly:
2040(i) reset defaults: *#987*99# Send
MX200 reset defaults: *#987*99# Send
MX200 software version: *#900# Send
SL300m reset defaults: *#987*99# Send
SL300m software version: *#900# Send
SL500m reset defaults: *#987*99# Send
SL500m software version: *#900# Send
MP500 reset defaults: *#987*99# Send
MP500 software version: *#900# Send
Set language to English: *#0044#
Set language to Russian: *#0007#

Service codes Konka:
C926 software version: *320# Send
C926 set default language: *#0000# Send
C926 set English language: *#0044# Send

Service codes GStar:
GM208 (Chinese Nokea 6230+) engineering menu: *#66*#
Set language to English: *#0044#
Set language to Russian: *#0007#

ZTE Mobile1- *938*737381#
2- PHONE WILL DIPLAYED DONE
3- POWER OFF YOUR PHONE AND POWER ON AGAIN
alcatelE205
unlocking phone code,only press***847# without simcard

E900 software version: *#5002*8376263#
E900 full reset: *2767*3855#
Service codes Spice:
S404 enable COM port: *#42253646633# -> Device -> Set UART -> PS -> UART1/115200
S410 engineer mode: *#3646633#
S900 software version: *#8375#
S900 serial no: *#33778#
Service codes Philips:
S200 enable COM port: *#3338913# -> Device -> Set UART -> PS -> UART1/115200

Service codes "Chinese" models:
default user code: 1122, 3344, 1234, 5678
Engineer mode: *#110*01#
Factory mode: *#987#
Enable COM port: *#110*01# -> Device -> Set UART -> PS Config -> UART1/115200
Restore factory settings: *#987*99#
LCD contrast: *#369#
software version: *#800#
software version: *#900#

Service codes BenQ:
software version: *#300#
test mode: *#302*20040615#

Service codes Pantech:
software version: *01763*79837#
service menu: *01763*476#
reset defaults (phone/user code reset to default): *01763*737381#
Service codes VK-Mobile 3xx, 5xx:
software version: *#79#
software version: *#837#
service menu: *#85*364# (hold #)
Service codes VK200, VK2000, VK2010, VK2020, VK4000:
software version: *#79#
service menu: *#9998*8336# (hold #)
reset defaults (phone/user code reset to default): *#9998*7328# (hold #)

Service codes LG:
software version: 2945#*#
KG300 NVRAM format: 2945#*# -> menu 15

Service codes Sony-Ericsson:
J100 software version: #82#

Service codes Fly:
M100 software version: ####0000#
2040(i) reset defaults: *#987*99# Send
MX200 reset defaults: *#987*99# Send
MX200 software version: *#900# Send
SL300m reset defaults: *#987*99# Send
SL300m software version: *#900# Send
SL500m reset defaults: *#987*99# Send
SL500m software version: *#900# Send
MP500 reset defaults: *#987*99# Send
MP500 software version: *#900# Send
Set language to English: *#0044#
Set language to Russian: *#0007#

Service codes Konka:
C926 software version: *320# Send
C926 set default language: *#0000# Send
C926 set English language: *#0044# Send

Service codes GStar:
GM208 (Chinese Nokea 6230+) engineering menu: *#66*#
Set language to English: *#0044#
Set language to Russian: *#0007#

Service codes Motofone-F3:
Motofone F3 software version: **9999* Send
***300* Set SIM Pin
***310* / ***311* SIM Pin ON | OFF
***000* Reset Factory settings
***644* Set Voicemail number
***260* / ***261* Auto keypad lock ON | OFF
***510* / ***511* Voice Prompts ON | OFF
***160* / ***161* Restricted Calling (Phonebook only) ON | OFF
***200608* Send: software version
***200606* Send: software version
***200806* Send: flex version
***250* / ***251* Keypad tones ON | OFF
***470* Select time format
***500* /***501* Prepaid Balance Display ON | OFF
***520* Change language

Service codes Motorola:
C113, C114, C115, C115i, C116, C117, C118 software version: #02#*
C138, C139, C140 software version: #02#*
C155, C156, C157 software version: #02#*
C257, C261 software version: #02#*
V171, V172, V173 software version: #02#*
V175, V176, V176 software version: #02#*
C168, W220 software version: *#**837#
W208, W375 software version: #02#*
and "yes"''

-mobile Inno30, 55, 89, 90, 99, 100, A10, A20, P10, Vk200
- Set full factory *741*737381#
- Set full factory *741*7373868#
- Set full factory *741*2878#
- Set Engineer Mode *888*888#
- Check software version *888*837#
I-mobile 100 ,200 , 313
- Check software version #*888#
I-mobile 309, 310
- Check software version *0*4636#
- Test Mode *0*6268#
I-mobile 311
- Check software version #*878#
I-mobile 511
- Check software version *1222*1#
I-mobile 301, 302,308, 508, 601, 602, 603, 604, 606, 611, 901, 902
- Check software version *#159#
- Set Factory Mode *#32787#
- Set Engineer Mode *#3646633#

I-mobile 503, 506, 605, 600, 607, 608
- Set Engineer Mode ***503#
- Set Factory Mode ***504#
- Set Auto Test ***505#
I-mobile 509, 612
- Set Factory Mode *#66*#
I-mobile 504, 505, 803
- Check software version *68*48#
- Set full factory *789#
- Test Mode *#789#
I-mobile 305, 306, 315, 510, 609, 609i,516
- Check software version *#8375#
- Set Factory Mode 878
I-mobile 610
- Check software version *#22#
I-mobile J101, J102
- Test Mode *23638777*783781#
I-mobile 502, 502i, 505, k9, 802
- Check software version *201206*4636#

Read more »

CARA MEMASANG KALENDER DI BLOGSPOT

Mungkin sebagian dari para blogger ada yang memasang kalender pada blognya, selain agar mereka mengetahui tanggal pada hari tersebut, biasanya kalender ini digunakan untuk menambah hiasan di blognya masing-masing.

Kemudian bagaimana cara memasang kalender di blog..?
Caranya sangat mudah, mari kita baca di bawah ini :

Untuk memasang sebuah kalender kita bisa memanfaatkan berbagai situs penyedia kalender gratisan. Situs seperti ini sangatlah banyak, dengan menampilkan kalender-kalender yang menarik untuk di lihat.

Sebagai contoh :

http://www.free-blog-content.com.

Di dalam situs ini kalender yang di sediakan sangat beragam. hanya dengan mengklik kategori yang ada untuk memilih bentuk kalender yang anda inginkan untuk dipasang di blog anda, kemudian copy kode yang di berikan di bawah gambar kalender lalu paste pada blog anda dengan cara sebagai berikut :

1. Sign in blog anda di blogger.com


2. Klik menu Tata Letak
   


3. Klik menu Elemen Halaman


4. Klik tulisan Tambah Gadget
   


5. pilih tulisan HTML/JavaScript


6. Copy kode kalender tersebut kemudian paste pada kolom yang di sediakan


7. Klik tombol SIMPAN
   


8. Selesai. kemudian lihat perubahan blog.
   

Jika sudah berhasil, salah satu contoh gambar kalender yang di sediakan akan tampak seperti contoh dibawah ini :




Free Blog Content

Adapun bagi anda yang ingin memasang widget kalender Hijriah, salah satu situs yang menyediakan widget tersebut adalah http://hijriah.jentayu.com. Bentuk kalendernya seperti dibawah ini :

Free @ Hijriah

Jika anda ingin memasang widget kalender hijriah seperti diatas ada tinggal mengunjungi situs penyedia tersebut. atau jika anda ingin lebih cepat, copy kode dibawah ini :







Ganti tulisan 7 dengan warna yang anda inginkan dibawah ini :

1 akan menjadi warna cokelat
2 akan menjadi warna kuning
3 akan menjadi warna ungu
4 akan menjadi warna biru
5 akan menjadi warna hijau
6 akan menjadi warna abu-abu
7 akan menjadi warna merah

Read more »