PASCAL

Record adalah sebuah sebuah bentuk yang dapat menampung variabel yang berbeda. sedangkan array adalah berfungsi untuk menampung data dengan index yang ada, sehingga cukup 1 variabel yang digunakan.
record dan array dapat digabungkan sebagai berikut

program record&array;
uses crt;
type
    Thiphop = record
            nama : string[20];
            alamat : string[30];
            Nick   : string[10];
            end;
var i:byte;
hiphoper :array[1..6] of Thiphop;
begin
writeln('inputkan kosong / enter unt...
Continue reading...

berikut listingnya:



program polindrom;
uses crt;
var kata,huruf,huruf1:string;
    i,j:integer;
begin
    write('Masukkan kata : ');readln(kata);
    j:=length(kata);
    writeln;
    huruf:='';
    for i:=1 to j do
    huruf:=huruf+kata[i...
Continue reading...

Om Swastiastu,
Ok, Rekan-rekan sekalian kali ini saya akan menampilkan trick menjebol bios dengan Turbo Pascal. Terkadang bios di isikan password agar tidak sembarang orang bisa menyetingnya. Umum orang-orang yang cukup kehabisan akal akan mencabut baterai pada cpu, namun kali ini hanya dengan pascal anda  bisa. Ingat ini hanya untuk pembelajaran! bukan murni untuk Hacking

Berikut Sour...

Continue reading...

OM SWASTIASTU, Punapi gatra? he...
baik rekan-rekan sekalian kali ini saya akan memberikan source code pascal yang dapat mendeteksi berapa jumlah huruf hidup, hurup mati serta angka, namun tanpa membaca spasi yang ada. dengan output sebagai berikut:




ini source codenya :


program carihurufhidupmatidanangka;
uses crt;
var b,k,i,j, angka:integer;
n:char;
begin
CLRSCR;
writeln('ANGKA, HURUF MATI DAN HURUF HIDUP DETECTOR');
WRITE('MASUKKAN KATA ATAU KALIMAT YANG DI AKHIRI TITIK(.) : ');
b:=0;
k:=0;
repeat
read(n...
Continue reading...

Mungkin sebelumnya saya memosting Asscii viewer yang berguna untuk menampilkan hasil dari kode asscii ke charakter, nah rekan-rekan dapat mengonvert dari asscii ke charakter atau sebaliknnya. berikut source kode pada pascal:


PROGRAM ASSCIICHAR;
USES crt;
var i,j: char;
k : integer;
label akhir;
begin
clrscr;
repeat;
writeln;
writeln;
writeln;
writeln('1. ascii to char');
writeln('2. char to ascii');
write('input pilihan, ' + chr(39) + 'Q' + chr(39) +' untuk keluar : ');
j := readkey ;
j := upcase(j);
if j = '...
Continue reading...