파스칼-단위

파스칼 프로그램은 단위라는 모듈로 구성 될 수 있습니다. 단위는 변수와 유형 선언, 명령문, 프로 시저 등으로 구성되는 일부 코드 블록으로 구성 될 수 있습니다. Pascal에는 많은 내장 단위가 있으며 Pascal은 프로그래머가 사용할 고유 단위를 정의하고 작성할 수 있도록합니다. 나중에 다양한 프로그램에서.

내장 장치 사용

내장 단위와 사용자 정의 단위는 모두 uses 절에 의해 프로그램에 포함됩니다. 우리는 이미 Pascal-Variants 튜토리얼 에서 변형 유닛을 사용했습니다 . 이 자습서에서는 사용자 정의 단위 생성 및 포함에 대해 설명합니다. 그러나 먼저 내장 유닛을 포함하는 방법을 살펴 보겠습니다.crt 당신의 프로그램에서-

program myprog;
uses crt;

다음 예는 crt 단위 −

Program Calculate_Area (input, output);
uses crt;
var 
   a, b, c, s, area: real;

begin
   textbackground(white); (* gives a white background *)
   clrscr; (*clears the screen *)
   
   textcolor(green); (* text color is green *)
   gotoxy(30, 4); (* takes the pointer to the 4th line and 30th column) 
   
   writeln('This program calculates area of a triangle:');
   writeln('Area = area = sqrt(s(s-a)(s-b)(s-c))');
   writeln('S stands for semi-perimeter');
   writeln('a, b, c are sides of the triangle');
   writeln('Press any key when you are ready');
   
   readkey;
   clrscr;
   gotoxy(20,3);
   
   write('Enter a: ');
   readln(a);
   gotoxy(20,5);
   
   write('Enter b:');
   readln(b);
   gotoxy(20, 7);
   
   write('Enter c: ');
   readln(c);

   s := (a + b + c)/2.0;
   area := sqrt(s * (s - a)*(s-b)*(s-c));
   gotoxy(20, 9);
   
   writeln('Area: ',area:10:3);
   readkey;
end.

파스칼 튜토리얼의 시작 부분에서 사용했던 것과 동일한 프로그램으로, 변경의 효과를 찾기 위해 컴파일하고 실행합니다.

파스칼 단위 생성 및 사용

유닛을 생성하려면 저장하려는 모듈 또는 서브 프로그램을 작성하고 다음을 사용하여 파일에 저장해야합니다. .pas신장. 이 파일의 첫 번째 줄은 unit 키워드로 시작하고 그 뒤에 단위 이름이 와야합니다. 예를 들면-

unit calculateArea;

다음은 파스칼 단위를 만드는 세 가지 중요한 단계입니다.

  • 파일 이름과 장치 이름은 정확히 동일해야합니다. 따라서 우리의 단위 calculateAreacalculateArea.pas 라는 파일에 저장 됩니다.

  • 다음 줄은 단일 키워드로 구성되어야합니다. interface. 이 줄 뒤에는이 단원에 포함될 모든 함수와 프로 시저에 대한 선언을 작성합니다.

  • 함수 선언 바로 뒤에 단어를 작성하십시오. implementation, 다시 키워드입니다. 키워드 구현을 포함하는 줄 뒤에 모든 하위 프로그램의 정의를 제공합니다.

다음 프로그램은 calculateArea라는 단위를 생성합니다.

unit CalculateArea;
interface

function RectangleArea( length, width: real): real;
function CircleArea(radius: real) : real;
function TriangleArea( side1, side2, side3: real): real;

implementation

function RectangleArea( length, width: real): real;
begin
   RectangleArea := length * width;
end;

function CircleArea(radius: real) : real;
const
   PI = 3.14159;
begin
   CircleArea := PI * radius * radius;
end;

function TriangleArea( side1, side2, side3: real): real;
var
   s, area: real;

begin
   s := (side1 + side2 + side3)/2.0;
   area := sqrt(s * (s - side1)*(s-side2)*(s-side3));
   TriangleArea := area;
end;

end.

다음으로 위에서 정의한 단위를 사용하는 간단한 프로그램을 작성해 보겠습니다.

program AreaCalculation;
uses CalculateArea,crt;

var
   l, w, r, a, b, c, area: real;

begin
   clrscr;
   l := 5.4;
   w := 4.7;
   area := RectangleArea(l, w);
   writeln('Area of Rectangle 5.4 x 4.7 is: ', area:7:3);

   r:= 7.0;
   area:= CircleArea(r);
   writeln('Area of Circle with radius 7.0 is: ', area:7:3);

   a := 3.0;
   b:= 4.0;
   c:= 5.0;
  
   area:= TriangleArea(a, b, c);
   writeln('Area of Triangle 3.0 by 4.0 by 5.0 is: ', area:7:3);
end.

위의 코드가 컴파일되고 실행되면 다음과 같은 결과가 생성됩니다.

Area of Rectangle 5.4 x 4.7 is: 25.380
Area of Circle with radius 7.0 is: 153.938
Area of Triangle 3.0 by 4.0 by 5.0 is: 6.000