பாசுக்கல் (நிரலாக்க மொழி)
நிரலாக்க கருத்தோட்டம்: | imperative programming |
---|---|
தோன்றிய ஆண்டு: | 1970, 1992 இல் இறுதி மீளாய்வு. |
உருவாக்குநர்: | நிக்கலஸ் வேர்த் |
இயல்பு முறை: | static, strong, safe |
முதன்மைப் பயனாக்கங்கள்: | {{{நடைமுறைப்படுத்துவோர்கள்}}} |
மொழி வழக்குகள்: | UCSD, போர்லாண்ட், டேர்போ பஸ்கால் |
பிறமொழித்தாக்கங்கள்: | அல்கோல் |
இம்மொழியினால் ஏற்பட்ட தாக்கங்கள்: | மொடியூலா-2, அடாAda, டெல்பை, ஆக்ஸிஜீன். |
மொழி அமைப்பு
உலகே வணக்கம்
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.
This article is issued from
Wikipedia.
The text is licensed under Creative
Commons - Attribution - Sharealike.
Additional terms may apply for the media files.