Hello semua... :), this i will tell you how to open text files.. enjoy this code...

var
   f: Text;
   s: String;
 
begin
   Assign(f,'c:\windows.txt');
   Reset(f);
   while not eof(f) do
   begin
      Readln(f,s);
      writeln(s);
      end;
   readln;
end.

Continue reading ...

Berikut merupakan kode perkalian 2 matrix :

uses crt;
var
a,f,k:array[1..100,1..100] of integer;
b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya kolom matriks pertama: '); readln(c);writeln;
for d:= 1 to b do
begin
for e:= 1 to c do
begin
write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
end;
end...
Continue reading ...

berikut adalah listing program yang dapat mengkonversi dari celcius ke fahrenheit dan ke reaumur.

program suhu;
uses crt;
var celcius : integer;
    reamur,fahrenhait : real;
begin
     clrscr;
     writeln('Program konversi suhu');
     writeln('---------------------');
     write('Suhu dalam celcius : ');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     writeln('Suhu dalam reamur=',reamur:5:2);
     writeln('Suhu dalam fahrenhait= ',fahrenhait:5:2);
     readln;
end.

...
Continue reading ...

berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.


program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i...
Continue reading ...

Kali ini saya akan memaparkan bagaimana membuat space(tempat) untuk spasi. ini biasanya digunakan untuk pembuatan tabel, ini hanya diperlukan untuk kerapian. kususnya peng arsipan.


program spasi;
uses crt;
type data=record
     nama,nim:string;
     end;

var i,text:integer;
dt : array[1..2] of data;
function spasi(teks:string):string;
var teks1:string;
j:integer;
begin
teks1:=teks;
for j := 1 to (20-length(teks1)) do
teks1 := teks1 + ' ';
spasi := teks1;

end;

begin
for i := 1 to 2 do
begin
write('masukkan nama :...
Continue reading ...

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 ...

Berikut ini adalah sebuah contoh kode pada pascal yang dapat menampilakan kode asscii dari 1 sampai 225 sejumlah tipe data string.

program assciiViewer;
USES CRT;
var i,n:integer;
begin
CLRSCR;
for i := 1 to 255 do
begin
IF  I < 255 THEN
write(i,' : ',char(i), ', ')
ELSE
write(i,' : ',char(i));
READKEY;
end;
end.

setelah itu anda harus menekan enter untuk kode selanjunya. Dengan Output sebagai berikut:


Continue reading ...

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...