Coding conventions

Правила оформления исходного кода на языке Pascal

1. Зарезервированные слова языка Pascal (PROGRAM, BEGIN, END, VAR, CHAR и т.д.) пишутся в верхнем регистре.

2. Идентификаторы пишутся буквами в нижнем регистре, но каждое слово в иеднтификаторе начинается с большой буквы. (PROGRAM Hello World или Ch: CHAR).

3. После разделителей (запятая, точка с запятой, двоеточие) ставится пробел, перед разделителем пробел не ставится.

4. Скобки пробелами не выделяются.

5. Оператор присваивания, а также математические и логические операторы выделяются с двух сторон пробелами.

6. Внутри операторов BEGIN вложенные операторы пишутся каждый на новой строке, отступ слева – 2 пробела. 

7. В операторе IF THEN и ELSE пишутся на новой строке на том же уровне что и IF. Операторы внутри THEN, ELSE пишутся на новой строке с отступом 2 пробела .

8. В операторе WHILE DO пишется на новой строке, на том же уровне что и WHILE. Оператор внутри DO пишется на новой строке с отступом 2 пробела.

Оформление текстов программ на языке Pascal следует выполнять в соответствии  с образцами кода представленными ниже.

Пример программы наPascal

PROGRAM SamplePascalCode(INPUT, OUTPUT);

 {This is a sample program to demonstrate Pascal coding conventions}

VAR

Ch: CHAR;

BEGIN {SamplePascalCode}

WRITELN('Hello World')

END. {SamplePascalCode}

Условный оператор

PROGRAM SamplePascalCode(INPUT, OUTPUT);

{This is a sample program to demonstrate Pascal coding conventions}

VAR

Ch: CHAR;

BEGIN {SamplePascalCode}

IF EOLN

THEN

WRITE('Thin')

ELSE

WRITE('Fat');

WRITELN

END. {SamplePascalCode}

Оператор цикла

PROGRAM SamplePascalCode(INPUT, OUTPUT);

{This is a sample program to demonstrate Pascal coding conventions}

VAR

Ch: CHAR;

BEGIN {SamplePascalCode}

WHILE NOT EOLN

DO

BEGIN

READ(Ch);

WRITE(Ch)

END;

WRITELN

END. {SamplePascalCode}

Процедура

PROGRAM SamplePascalCode(INPUT, OUTPUT);

{This is a sample program to demonstrate Pascal coding conventions}

VAR

Ch: CHAR;

PROCEDURE SayHello;

BEGIN {SayHello}

WRITELN('Hello')

END; {SayHello}

BEGIN {SamplePascalCode}

SayHello

END. {SamplePascalCode}