6.Требования к оформлению пояснительной записки

Работа по своему объему должна составлять 25-30 страниц (без прило­жений).

Пояснительная записка к курсовой работе оформляется в текстовом ре­дакторе Microsoft Word, в соответствии со следующими требованиями:

Бумага формата - А4 (297x210 мм);

Поля: верхнее, нижнее - 2,0 см, левое - 3,0 см, правое 1,5 см;

Переплет - 0 см;

Колонтитулы: верхний и нижний 1,3 см от края страницы;

Ориентация: книжная;

Шрифт- Times New Roman;

Размер шрифта - 14;

Выравнивание - по ширине;

Межстрочный интервал - одинарный;

Первая строка - отступ 1 см.

Курсовая работа представляется в распечатанном виде вместе с дискетой.

7.Задание на курсовую работу

Написать программу на языке Turbo Pascal, позволяющую:

1. Организовать в текстовом режиме интерфейс со сменяющимися экранными формами с использованием возможностей модуля Crt, содержащий:

   • на первом экране – общую информацию о курсовой работе

   • на втором экране – пункты меню, реализующие при их вызове следующие задачи:

1. Решение системы линейных уравнений методом Гаусса (по вариантам);

2. Вычисление определенного интеграла (по вариантам);

3.Решение задачи сортировки массива (по вариантам);

4. Выход из программы.

Примерный вид экранных форм пользовательского интерфейса программы (первого и второго экранов) приведен в Приложении 3. Задания с вариантами систем линейных уравнений, интегралы и тексты задачи сортировки приведены в Приложении 4 (варианты заданий).

Номер варианта каждой из задач для каждого студента определяется по номеру в журнале.

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

2) Каждый из пунктов меню должен обеспечивать возможность ввода исходных данных, необходимых для решения каждой конкретной задачи.

3) Программа в целом должна работать в текстовом режиме.

4) По каждому пункту меню должен быть организован в текстовом ре­жиме вывод полученных результатов.

8.Краткая теория Организация интерфейса программы. Использование модуля crt для организации интерфейса

Turbo Pascal 7.0 предоставляет множество функций и процедур различного назначения, объединенных в группы - библиотеки. Каждая библиотека состоит из функций и процедур, предназначенных для решения определенного типа задач. Например, есть библиотека математических функций, библиотека управления экраном, библиотека функции и процедур ввода с клавиатуры.

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

Чтобы использовать библиотечную процедуру, необходимо «подключить» нужную библиотеку к программе. Это делается при помощи инструкции Uses, которая помещается в начало текста программы.

Инструкция подключения библиотек имеет вид:

Uses Библиотека1, Библиотека 2,... Библиотека К

где Uses - слово языка программирования, обозначающее, что далее следуют имена подключаемых к программе библиотек;

Библиотека1, Библиотека 2,... Библиотека К; - имена подключаемых

библиотек.

Библиотека Crt

Библиотека CRT содержит функции и процедуры, используемые для организации вывода на экран информации в текстовом режиме. При помощи процедур библиотеки Crt можно задать очистку экрана, установить цвет выводимых символов и цвет фона, на котором они будут выводиться, вывести текст в нужной точке экрана.

Управление курсором

В стандартном режиме СО80, установленном по умолчанию для цветных мониторов, на экране могут быть отображены до 25 строк текста длиной до 80 символов. Инструкции Write и Writeln выводят информацию, начиная с той точки экрана, где находится курсор в момент вывода.

Положение курсора на экране определяется номером позиции в строке и номером строки, которые можно рассматривать как координаты курсора.

Горизонтальная координата, определяющая номер позиции в строке, может меняться от 1 до 80 и обозначается X. Вертикальная координата, определяющая номер строки, может меняться от 1 до 25 и обозначается Y.

За начало координат принимают левый верхний угол экрана, имеющий координаты (1,1), правый нижний угол экрана имеет координаты (80,25).

Если нужно вывести текст, начиная с определенной позиции экрана, то перед выполнением инструкции вывода, надо установить курсор в нужную позицию. Это можно сделать вызовом процедуры GoToXY, описание которой выглядит так:

GoToXY (координата X, координата Y);

где координата X, координата Y – выражение целого типа, значения которых задают новое положение курсора.

Например, инструкции

СоТоХУ(14,13);

Write('Turbo Pascal');

выводят сообщение "Turbo Pascal" примерно в середине экрана. Ниже приведена программа, использующая стандартную процедуру GoToXY модуля Crt для вывода сообщений в различные точки экрана.

Program form_l;

uses Crt;

var x, у: integer,

begin

ClrScr;

GotoXY(l, 1);

Write('это первая строка экрана');

GotoXY(l,2);

Write('это вторая строка экрана');

GotoXY(l,25);

write('это последняя строка экрана. Нажмите <Enter>');

readln;

end.

Рассмотрим пример программы, использующей процедуру, рисующую

на экране рамку.

Program Form;

Uses Crt;

Var xl,x2,yl,y2: integer;

Procedure Frame (xl,x2,yl,y2: integer);

var x, y: integer,

cl,c2,c3,c4,c5,c6: char, (символьные переменные из которых рисуется рамка}

begin

cl :=chr(218); {символ верхнего левого угла}

(функция chr возвращает символ, номер которого указан при вызове функции)

c2:=chr(196); (символ горизонтальной черты}

c3:=chr(191); (символ правого верхнего угла}

с4 :=chr( 179); (символ вертикальной черты}

c5:=chr(192); (символ левого нижнего угла}

c6:=chr(217); (символ правого нижнего угла}

GoToXY(Xl,Yl);

Write(cl);

for X:=X1+1 to X2-1 do Write(c2); (символы верхней границы рамки}

Write(c3);

for Y:=Y1+1 to Y2-1 do {символы левой и правой границ}

begin

GoToXY(Xl.Y);

Write (c4);

GoToXY(X2,Y);

Write(c4);

end;

GoToXY(Xl,Y2);

Write(cS);

for X:=X1+1 to X2-1 do Write(c2); {символы нижней границы}

Write(c6);

end;

begin { основная программа }

Clrscr;

xl:=4; x2:=76; { координаты углов рамки }

yl:=4; y2:=21;

frame (xl,x2,yl,y2); {вызов процедуры рисования рамки}

readln;

end.

Управление цветом

Для управления цветом используются процедуры TextColor и TextBackGround библиотеки Crt. С их помощью можно задать цвет символов и цвет фона для текста, выводимого инструкциями Write и Writeln.

Процедура TextColor (ЦветСимволов) используется для задания цвета символов. ЦветСимволов - выражение целого типа, обозначающее устанавливаемый цвет для вывода символов.

Процедура TextBackGround (ЦветФона) используется для задания цвета фона. ЦветФона - выражение целого типа, обозначающее устанавливаемый цвет фона, на котором выводятся символы.

Очистка экрана

Процедура ClrScr удаляет все символы с экрана (очищает экран), при этом экран закрашивается текущим цветом фона, заданным процедурой TextBackGround (если цвет фона в программе не задавался, то экран закрашивается черным цветом). Кроме того, курсор устанавливается в точку экрана с координатами (1,1), т е. в начало первой строки.

Например, в результате выполнения инструкций TextBackGround(Blue);

ClrScr;

экран очищается и закрашивается синим цветом.

Использование процедур TextColor и TextBackGround

При вызовах процедур TextColor и TextBackGround можно использовать как обозначение цвета, так и его английское название (английские названия цветов определены как константы в библиотеке Crt).

После выполнения инструкций:

TextColor(LightGray);

TextBackGround(Blue);

инструкции Write и Writeln будут выводить текст светло-серым цветом на синем фоне.

Установленные цвета символов и фона называются текущими для символов и фона. Инструкции вывода используют текущие значения цветов до тех пор, пока они не будут изменены.

Пример. Приведенный ниже фрагмент программы выводят на экран меню, состоящее из двух пунктов:

1. Вывод на экран.

2. Вывод на принтер.

Номера пунктов меню выводятся - ярко-белым цветом на синем фоне, а содержание пунктов - светло-серым цветом.

TextBackGround(l);

TextColor(15);

Clrscr; '

write('l.');

TextColor(7);

Writeln(' Вывод на экран.');

TextColor(15);

write('2.');

TextColor(7);

Writeln (' Вывод на принтер.');

Информация о текущем цвете символов и фона хранится в глобальной переменной TextAttr (атрибуты текста) типа byte. Если процедура восстанавливает свои цвета для вывода на экран, то значение переменной можно использовать для того, чтобы восстановить цвета перед завершением работы процедуры. Например, следующая программа в начале работы сохраняет текущие цвета, а в конце восстанавливает старые значения.

Program ypsst_mon;

Uses Crt;

var OldTextAttr: byte;

begin

OldTextAttr:= TextAttr; {сохраним цвет символов и фона}

TextBackGround(Red); {установка своих цветов}

TextColor( White);

TextAttr:=oldTextArtr; {восстановим цвет символов и фона}

end.

Помимо использования процедур TextColor и TextBackGround для ус­тановки цвета символов и цвета фона, установить атрибуты текста можно непосредственным присвоением значения переменной TextAttr, определяемого по формуле:

TextAttr :=НомерЦветаФона х 16 + НомерЦветаСимволов.