பாசுக்கல் (நிரலாக்க மொழி)

மொழி அமைப்பு 
 உலகே வணக்கம் 
program HelloWorld;
uses crt;

begin
     writeln('Hello World');
     readln;
end.
Hello World

 கட்டுப்பாடு 
program TestControl;
uses crt;

var x:integer;

begin
    writeln('enter a number');
    readln(x);

    if x mod 2=0 then
        begin
             writeln('it is an even number');
        end
    else
        begin
             writeln('it is an odd number');
        end;
    readln;
end.
enter a number
4
it is an even number

 சுற்று 
 For சுற்று 
program TestLoop;
uses crt;

var x:integer;

begin
    for x:=1 to 10 do
    begin
         writeln('Repeat ', x);
    end;
    readln;
end.
Repeat 1
Repeat 2
Repeat 3
Repeat 4
Repeat 5
Repeat 6
Repeat 7
Repeat 8
Repeat 9
Repeat 10

 செயலி 
program SumOfTwoNumbers;
uses crt;

function sum(x,y:integer):integer;
         begin
              sum := x + y;
         end;

var
x,y,z:integer;

begin
     writeln('Enter a number');
     readln(x);

     writeln('Enter another number');
     readln(y);

     z:=sum(x,y);

     writeln(z);

     readln;
end.
Enter a number
40
Enter another number
-30
10

 உள்ளீடு/வெளியீடு 
 கோப்பை கையாளுத்தல் 
program TestFileHandling;
uses crt;

var
x:string;
f:text;

begin
     assign(f,'Example.txt');
     reset(f);

     while not EOF(f) do
     begin
          readln(f,x);
          writeln(x);
     end;

     close(f);
     readln;
end.
This is a test file.  
This will be read by the program.

பகுப்பு:நிரல் மொழிகள்

மேற்கோள்கள்