Алгоритмический язык Pascal

 

Общая структура программы

 

Структура программы на языке Delphi Pascal имеет вид:

 
Program NAME;                { Заголовок программы - необязательная конструкция }
                                                         { NAME - имя программы }
  { Раздел описаний }
Uses
  SysUtils, Windows;                          { Подключение модулей (библиотек) }
 
Label                                                          { Описание меток }
  1, l12, Stop;
 
Const                     { Задание значений констант, используемых в программе }
  C=10; B=0.15;                       { С - целое число, В - вещественное число }
  Y=True; F='Фамилия';                    { Y- логическая константа, F - строка }
  MaxN: Word = 100;                     { Типизированная константа – переменная }
       
Type                                   {Описание типов, введенных программистом }
  M = array[1..100] of integer;                     { массив из 100 целых чисел }
 
Var                                                       { Описание переменных }
  m1, m2 : M;                           { m1, m2 - массивы целых чисел (типа М) }
  a1 : array[1..100 ] of real;                 { а1 - массив вещественных чисел }
  ch : array[1..200 ] of char;                           { ch - массив символов }
  ch1, ch2 : char;                           { ch1, ch2 - символьные переменные }
  s : string[79];                                   { s - строка до 79 символов }
  x : real = 1.25;          { x – вещественная переменная с начальным значением }
  yes,  no : boolean;                   { yes, no - переменные логического типа }
  f1, f2 : TextFile;                 { переменные для описания текстовых файлов }
 
Procedure NAME_1(Parm1 : Real; Var Parm2 : Real);         { Заголовок процедуры }
                             { NAME_1 - имя процедуры, Parm1, Parm2 - параметры }
    { Раздел описаний процедуры NAME_1 }
  begin
    { Раздел операторов (тело) процедуры NAME_1 }
  end;
 
Function FUN_1(Parm3, Parm4 : Real) : Real;                 { Заголовок функции }
                                { FUN_1 - имя функции, Parm3, Parm4 - параметры }
    { Раздел описаний функции FUN_1 }
  begin
    { Раздел операторов (тело) функции FUN_1 }
  end;
 
BEGIN                                             { Начало выполнения программы }
  SetConsoleCP(1251);                  { Процедуры изменения кодовой страницы в }
  SetConsoleOutputCP(1251);                                   { консольном окне }
  { Раздел операторов (тело) программы }
END.                                               { Конец выполнения программы }
Содержание