LIBRARY PROGRAM USING PASCAL

Hello my friends.. and hello IT knowledge lovers.. You now on my blog at “We Are Knowledge”.. In this blog to be found many IT knowledge and general knowledge… Yo will getting many IT knowledge in here.. like as : cobol, C ++, visual basic 6, HTML and other program language. Likely the example program language it, so I was provided web programming and dekstop programming for you…

Like this article I want giving you tutorial about program language “Pascal” and discuss of “Sample Program Library using PASCAL”.. You will know and take it from here… let’s do read my article… have fun reader for reading my article.

Ok direct to sample program… I want making libraty program. Previously you making the program, you must having the software likely “Turbo Pascal”..

You can copy this program to your software or copy in your notepad

Example 1 :

uses crt;

var

a, x : integer;

b, c : string;

begin

clrscr;

writeln ('Welcome User To My Program');

writeln (' Lets Do Try This Program');

writeln ('     LIBRARY PROGRAM');

writeln;

writeln;

a := 500;

write ('Name                 : ');

readln (b);

write ('Titles               : ');

readln (c);

write ('Old Lending          : ');

readln (x);

clrscr;

writeln ('Welcome User To My Program');

writeln (' Lets Do Try This Program');

writeln ('     LIBRARY PROGRAM');

writeln;

writeln;

writeln ('Your Name Is       : ', b);

writeln ('Titles Of Book     : ', c);

writeln ('Longer You Borrow  : ', x);

writeln;

writeln ('================================');

writeln;

writeln ('You Have To Pay    : Rp. ', x * a);

readln;

end.

Note ::

If you using copy paste, please change all quotes (‘ ‘) or (“ “).

If you copy in your notepad, please change save as become “.pas”.

For compile the program >> alt + F9

For running the program >> ctrl + F9

Logic ::

Uses crt

>> Using this syntax in order to canusing syntax “clrscr”

Var

>> Where the declaration of variables that will be used

Begin

>> Beginning of the making of the program in pascal

Clrscr

>> For cleaning the output window

Writeln

>> For printing to output window

Readln

>> for inputing value at output window

End

>> this syntax using for finishing the program pascal.

Ok.. just it..

See you later Friends..