Pascal چیست؟ آموزش کامل و جامع Pascal

program HelloWorld;
begin
  writeln('Hello, World!');
end.

program ProgramName;
uses
  Unit1, Unit2;  { واحدهای مورد استفاده }

const
  PI = 3.14159;  { تعریف ثابت‌ها }

var
  x, y: Integer; { تعریف متغیرها }

begin
  { بدنه اصلی برنامه }
  writeln('برنامه اصلی');
end.

var
  age: Integer;     { عدد صحیح }
  price: Real;      { عدد اعشاری }
  letter: Char;     { کاراکتر }
  name: String;     { رشته }
  isValid: Boolean; { منطقی }

if age >= 18 then
  writeln('شما به سن قانونی رسیده‌اید')
else
  writeln('شما به سن قانونی نرسیده‌اید');

case grade of
  'A': writeln('عالی');
  'B': writeln('خوب');
  'C': writeln('متوسط');
else
  writeln('نامشخص');
end;

{ حلقه for }
for i := 1 to 10 do
  writeln(i);

{ حلقه while }
while count > 0 do
begin
  ProcessItem(count);
  dec(count);
end;

{ حلقه repeat }
repeat
  GetInput(value);
until value = 0;

{ تعریف یک رویه }
procedure PrintGreeting(name: string);
begin
  writeln('سلام ', name);
end;

{ تعریف یک تابع }
function CalculateArea(radius: real): real;
const
  PI = 3.14159;
begin
  CalculateArea := PI * radius * radius;
end;

{ استفاده از تابع و رویه }
var
  area: real;
begin
  PrintGreeting('علی');
  area := CalculateArea(5.0);
  writeln('مساحت دایره: ', area:0:2);
end;

{ تعریف و استفاده از آرایه }
var
  numbers: array[1..5] of Integer;
  i: Integer;
begin
  for i := 1 to 5 do
    numbers[i] := i * 2;
end;

{ تعریف و استفاده از رکورد }
type
  Student = record
    name: string[50];
    age: Integer;
    grade: real;
  end;

var
  student1: Student;
begin
  student1.name := 'علی احمدی';
  student1.age := 20;
  student1.grade := 18.5;
end;

type
  TShape = class
    private
      FColor: string;
    public
      procedure SetColor(color: string);
      function GetArea: real; virtual;
  end;

  TCircle = class(TShape)
    private
      FRadius: real;
    public
      constructor Create(radius: real);
      function GetArea: real; override;
  end;

var
  textFile: TextFile;
  line: string;
begin
  AssignFile(textFile, 'data.txt');
  try
    Reset(textFile);
    while not EOF(textFile) do
    begin
      ReadLn(textFile, line);
      WriteLn('خواندن خط: ', line);
    end;
  finally
    CloseFile(textFile);
  end;
end;