Download Pascal Tutorial

Pascal is a structured imperative computer programming language, developed in 1970 by Niklaus Wirth as a language particularly suitable for structured programming. A derivative known as Object Pascal was designed for object oriented programming.

Pascal is based on the ALGOL programming language and named in honor of mathematician and philosopher Blaise Pascal. Wirth subsequently developed Modula-2 and Oberon, languages similar to Pascal.

Initially, Pascal was a language intended to teach students structured programming, and generations of students have 'cut their teeth' on Pascal as an introductory language in undergraduate courses. Variants of Pascal are still widely used today, for example Free Pascal can be used in both 32 and 64 bit formats, and all types of Pascal programs can be used for both education and software development.

Pascal, in its original form, is a purely procedural language and includes the traditional array of Algol-like control structures with reserved words such as if, then, else, while, for, and so on. However, pascal also has many data structuring facilities and other abstractions which were not included in the original Algol60, like type definitions, records, pointers, enumerations, and sets. Such constructs were in part inherited or inspired from Simula67, Algol68, and Niklaus Wirth's own AlgolW.

I have written pascal tutorial (how to program the computer with pascal) but unfortunately in Indonesian. You may download these tutorials without any permissions from the author.

Chapter I. Pascal - The Beginning [download]

Chapter II. Compiler [download]

Chapter III. Pascal Structure [download]

Chapter IV. Identifier [download]

Chapter V. Constant [download]

Chapter VI. Variable and Data Type [download]

Chapter VII. Assignment and Operation [download]

Chapter VIII. Math Standard Functions [download]

Chapter IX. Input and Output [download]

Chapter X. Boolean Expressions [download]

Chapter XI. Conditional Statement - IF THEN [download]

Chapter XII. Conditional Statement - Case of [download]

Chapter XIII. Loop - FOR [download]

Chapter XIV. Loop - While [download]

Chapter XV. Loop - Repeat [download]

Chapter XVI. File Operation [download]

Chapter XVII. String [download]

Chapter XVIII. Array [download]

Chapter XIX. Type [download]

sumber : http://dzulcyber.blogspot.com

Reset password BIOS with pascal

One of the uses of Turbo Pascal, among others, is to remove the BIOS password, the script is following its program ..

program Hilangkan_Password_BIOS;
uses Crt;
{Modifikasi by andrew , 6 july 2004 }
procedure Inisial;
begin
writeln;
textcolor(9);
gotoxy(24,5);Writeln('Menghilangkan Password Mainboard');
writeln;
gotoxy(26,7);Writeln(' reset BIOS ke nilai Default ');
gotoxy(24,9);Writeln('--------------------------------');
Writeln;
textcolor(blink +red);
gotoxy(29,15);write('Andrew Fiade ');
textcolor(blink + white);
write('Programmers');
writeln;
textcolor(white);
gotoxy(24,17);writeln('--------------------------------');
Writeln;
gotoxy(59,50);writeln('+++');
end;
function Konfirmasi: Boolean;
var
Jawab: Char;
begin
repeat
textcolor(yellow);
gotoxy(24,20);Write('Serius ... BIOS-nya mau di-Reset (y/t) ? ');
Readln(Jawab);
until (Upcase(Jawab) = ('Y')) or (Upcase(Jawab) = ('T'));
Konfirmasi:= Upcase(Jawab) = 'Y'
end;
procedure ResetBios;
var
Loop: Byte;
begin
{ gunakan instruksi PORT[$70] dan PORT[$71] untuk 'kontak' dgn BIOS. PORT[$71] adalah isi BIOS sedangkan PORT[$70] adalah indeksnya yang diberi nilai 0-225. Untuk membuat isi BIOS menjadi kosong, Masukan nilai 0 ke PORT[$70] untuk setiap indeksnya. }
Loop:= 0;

repeat
Port[$71]:= 0;
Inc(Loop);
until Loop = 255 end;
begin
ClrScr;
Inisial;
if Konfirmasi then
begin
ResetBios;
Writeln;
Writeln;
textcolor(3);
gotoxy(24,22);
Writeln('Your Password Has Been Remove');
gotoxy(24,24);Writeln('Please Reset Again Your Bios.');
readln ;
exit;
end else
textcolor(3);
gotoxy(24,23);
Writeln('Dont Worry , thats nothing all in your Bios !') ;
readln;
end.