Программа на языке ПАСКАЛЬ состоит из заголовка, разделов описаний и раздела операторов.

Заголовок программы содержит имя программы, например:

Program PRIM;

Описания могут включать в себя раздел подключаемых библиотек (модулей), раздел описания меток, раздел описания констант, раздел описания типов, раздел описания переменных, раздел описания процедур и функций.

Раздел описания модулей определяется служебным словом USES и содержит имена подключаемых модулей (библиотек) как входящих в состав системы TURBO PASCAL, так и написанных пользователем. Раздел описания модулей должен быть первым среди разделов описаний.

Имена модулей отделяются друг от друга запятыми:

uses CRT, Graph;

Любой оператор в программе может быть помечен меткой. В качестве метки используются произвольные целые без знака, содержащие не более четырех цифр, либо имена. Метка ставится перед оператором и отделяется от него двоеточием. Все метки, используемые в программе, должны быть перечислены в разделе описания меток, например:

label 3, 471, 29, Quit;

Описание констант позволяет использовать имена как синонимы констант, их необходимо определить в разделе описаний констант:

const K= 1024; MAX= 16384;

В разделе описания переменных необходимо определить тип всех переменных, используемых в программе:

var P,Q,R: Integer;

A,B: Char;

F1,F2: Boolean;

Описание типов, процедур и функций будет рассмотрено ниже. Отдельные разделы описаний могут отсутствовать, но следует помнить, что в ПАСКАЛЬ - программе должны быть обязательно описаны все компоненты программы.

Раздел операторов представляет собой составной оператор, который содержит между служебными словами

begin.......end

последовательность операторов. Операторы отделяются друг от друга символом ; .

Текст программы заканчивается символом точка.

Кроме описаний и операторов ПАСКАЛЬ - программа может содержать комментарии, которые представляют собой произвольную последовательность символов, расположенную между открывающей скобкой комментариев { и закрывающей скобкой комментариев }.

Текст ПАСКАЛЬ - программы может содержать ключи компиляции, которые позволяют управлять режимом компиляции.

Синтаксически ключи компиляции записываются как комментарии. Ключ компиляции содержит символ $ и букву-ключ с последующим знаком + (включить

режим) или - (выключить режим). Например:

{$E+} - эмулировать математический сопроцессор;

{$F+} - формировать дальний тип вызова процедур и функций;

{$N+} - использовать математический сопроцессор;

{$R+} - проверять выход за границы диапазонов. 

Некоторые ключи компиляции могут содержать параметр, например: 

{$I имя файла} - включить в текст компилируемой программы названный файл.

Пример записи простой программы: 

Program TRIANG;

var A, B, C, S, P: Real;

begin

Read(A,B,C);

WriteLn(A,B,C);

P:=(A+B+C)/2;

S:=Sqrt(P*(P-A)*(P-B)*(P-C));

WriteLn('S=',S:8:3)

end.

2 Экспериментальная часть

2.1 ПОСТАНОВКА ЗАДАЧИ

В результате выполнения программа определяет корректность введенной даты и вычисляет количество дней, прошедших с начала года и количество дней до конца года и выводит информацию на экран.

Заключение

В результате выполнения курсовой работы была написана программа предназначенная для осуществления определенных действий введенной датой.

Программа работает в режиме текстового диалога с пользователем. Наличие такого удобного пользовательского интерфейса позволяет работать с созданной программой практически любому пользователю, имеющему начальные знания и навыки работы на компьютере.

Список литературы

1. Методические указания по выполнению курсовых работ по дисциплине “Алгоритмические языки и программирование” для студентов специальности 23.03 всех форм обучения./Воронеж. Политехн. ин-т; Сост. В.М. Шишкин, Н.Э. Самойленко. Воронеж. 1990.- 34 с.

2. ГОСТ 19.003-80. Единая система программной документации. Схемы алгоритмов и программ. Обозначения условные и графические. -М.: Государственный комитет СССР по стандартам. 1988, -144 с.

3. Методические указания к лабораторным работам № 5-8 по курсу “Алгоритмические языки и программирование” для студентов специальности 23.03 “Конструирование и технология радиоэлектронных средств” дневной и заочной форм обучения./Воронеж. Политехн. ин-т; Сост.: В.М. Шишкин, Н.Э. Самойленко. Воронеж. 1991.- 44 с.

4. Фаронов В.В. Турбо Паскаль 7.0 М.: Нолидж,2002

5. Епанешников А.М., Епанешников В.А. Программирование в среде Turbo Pascal 7.0. -М.: Диалог-МИФИ, 1995, -288 с.

Приложение 1

Листинг программы.

program v748;

uses Graph,Crt;

var graphdriver,graphmode,a,b,c:integer;

z,m:real;

zs,ms:string;

ch:char;

n:boolean;r:char;

label strt;

begin

graphdriver:=detect;

initgraph(a,b,'egavga.bgi');

strt:setfillstyle(1,4);

setcolor(15);

settextstyle(2,0,6);

bar(150,100,490,300);

outtextxy(160,110,'Vvedite den`: ');

gotoxy(52,8);

readln(a);

outtextxy(160,126,'Vvedite mesyac: ');

gotoxy(52,9);

readln(b);

outtextxy(160,142,'Vvedite god: ');

gotoxy(52,10);

readln(c);

outtextxy(160,162,'Press Enter...');

readln;

n:=true;

if c<0 then n:=false;

if (b<=0) or (b>12) then n:=false;

if (b=1) or (b=3) or (b=5) or (b=7) or (b=8) or (b=10) or (b=12) then

if (a<=0) or (a>31) then n:=false;

if (b=4) or (b=6) or (b=9) or (b=11) then

if (a<=0) or (a>30) then n:=false;

if (b=2) and (c mod 4=0) then if (a<=0) or (a>29) then n:=false;

if (b=2) and (c mod 4<>0) then if (a<=0) or (a>28) then n:=false;

setfillstyle(1,1);

setcolor(10);

bar(150,100,490,300);

settextstyle(3,0,2);

if n then outtextxy(160,110,'Data verna') else outtextxy(160,110,'Data neverna');

z:=0;

if (b=1) then z:=a;

if (b=2) then z:=31+a;

if (b=3) then z:=59+a;

if (b=4) then z:=90+a;

if (b=5) then z:=120+a;

if (b=6) then z:=151+a;

if (b=7) then z:=181+a;

if (b=8) then z:=212+a;

if (b=9) then z:=243+a;

if (b=10) then z:=273+a;

if (b=11) then z:=304+a;

if (b=12) then z:=334+a;

m:=0;

m:=365-z-1;

str(z:3:0,zs);

str(m:3:0,ms);

outtextxy(160,126,'Proshlo dney: ');

outtextxy(160,134,zs);

outtextxy(160,142,'Ostalos` dney: ');

outtextxy(160,151,ms);

outtextxy(160,162,'Press Enter...');

readln;

setfillstyle(1,14);

setcolor(8);

bar(150,100,490,300);

outtextxy(240,190,'Povtorit` (y/n)');

repeat r:=readkey;

until (r='y') or (r='n');

if r='y' then goto strt;

closegraph;

end.

Приложение 2

Блок-схема программы.

продолжение приложения 2

n:=false; n:=true;

Приложение 3

Скриншоты программы в TP 7.0