Программирование на языках высокого уровня

Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

Ивангородский гуманитарно-технический институт (филиал)

Федерального государственного автономного образовательного учреждения высшего профессионального образования

«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

АЭРОКОСМИЧЕСКОГО ПРИБОРОСТРОЕНИЯ»

КУРСОВАЯ РАБОТА

«Программирование на языках высокого уровня»

РАБОТУ ВЫПОЛНИЛ

В.А. Васильев

г.Ивангород 2015



Содержание

Введение

1. Спецификация

2. Текст программы

2.1 Текст программы на Pascal

2.2 Экранные копии контрольных примеров программ

2.2.1 Экранная копия главного меню

2.2.2 Экранная копия добавления информации в БД

2.2.3 Экранная копия удаления записи

2.2.4 Экранная копия сортировки по алфавиту

2.2.5 Экранная копия сортировки по грузоподъемности

2.2.6 Экранная копия поиска по названию

2.2.7 Экранная копия создания БД

2.2.8 Экранная копия вывода данных БД

3. Описание программы

3.1 Постановка задачи программы

3.1.1 Словесное описание задачи программы

3.1.2 Входные данные программы

3.2 Функциональное назначение программы

3.3 Спецификация и структура программы

3.3.1 Структурная диаграмма программы

3.3.2 Спецификация подпрограмм

3.4 Основной алгоритм

3.5 Используемые технические средства

3.6 Вызов и загрузка

4. Описание применения

4.1 Назначение программы

4.2 Условия применения

4.3 Описание задачи

4.4 Основные характеристики занимаемой памяти

Заключение

Литература



Введение

Язык программирования ПАСКАЛЬ (Разса1) назван в честь великого французского математика и физика Блеза Паскаля, который в 1642 году изобрел счетную машину для арифметических операций - «Паскалево колесо», как назвали ее современники.

История создания языка начинается с 1965 года, когда Международная федерация по обработке информации (1Р1Р) предложила нескольким специалистам в области информатики принять участие в разработке нового языка программирования - преемникаАЛГОЛА-60. Среди них был швейцарский ученый, работавший в то время доцентом на факультете информатики Стенфордского университета, Никалаус Вирт, который принял участие в разработке проекта языка под названием АЛГОЛА. И хотя 1НР отклонила этот проект (был принят АЛГОЛ-68 - автор Аад ван Вейнгартнер), Н.Вирт по возвращении в Швейцарию в 1967г. не прекратил работу по созданию нового языка. В результате этой работы в конце 1968г. профессор Вирт и его сотрудники из Швейцарского федерального института технологии (ЕТХ) в Цюрихе разработали первую версию Паскаля, а спустя два года первый вариант компилятора. Н.Вирт выпустил описание своего языка. В связи с появившимся интересом у широкого круга пользователей, а также с учетом первых оценок и апробаций в 1974 году разработана новая версия языка Паскаль. В следующем году опубликовано руководство для пользователей Паскаля, которое, по словам Н.Вирта, вполне можно рассматривать как стандартное определение языка.

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

Другие достоинства языкабыли предопределены двумя основополагающими статьями профессора Ч.Хоара, опубликованными на рубеже 60-70 годов:"О структурной организации данных" и "Аксиоматическая основа программирования для вычислительных машин".

Суть первой состоит в том, что "данные, прежде всего, представляют собой абстракции реальных объектов и их предпочтительно рассматривать как некоторые абстрактные образования со структурами, не обязательно предусмотренными в общераспространенных языках программирования". Язык Паскаль, воплотивший концепции данной статьи, содержит богатый набор различных типов данных и является первым языком имеющим в этом наборе нечисловой тип данных - перечисляемый тип.

Во второй статье показано, что "программы поддаются точному» анализу, основанному на строгих математических рассуждениях". В 1973 году Хоар и Вирт создали аксиоматическое описание для большей части семантики языка Паскаль. Следуя аксиоматической системе Хоара. язык Паскаль, очевидно, явился первым языком, для которого имеются программные средства, позволяющие доказывать правильность написанных программ.

Паскаль стал прародителем более поздних языков программирования и мощных систем программирования, таких как система Delphi.

Краткость языка (некоторые называют его “Спартанским” языком программирования), легкость программирования на нем, мобильность написанных программ, возможность эффективной реализации и пригодность с точки зрения формальных методов отладки программ обеспечили Паскалю успех. Вывод о популярности Паскаль:

- язык очень прост (описание языка 30 страниц текста)

- удобен для начального обучения

-язык проектировался с учетом просто ты и написания транслятора

-использование языка для системного программирования

-использования языка для доказательства правильности функционирования программ



1. Спецификация

Таблица 1

Обозначение	Наименование	Примечание
44.4042.11-01	Документация Программа База данных Спасательных средств Спецификация
44.4042.11-01	Документация Программа База данных Спасательных средств Текст программы
44.4042.11-01	Документация Программа База данных Спасательных средств Описание программы
44.4042.11-01	Документация Программа База данных Спасательных средств Описание применения

Анотация

В документе приводится текст программы “База данных спасательных средств” на Pascal экранные копии контрольных примеров выполнения программы



2. Текст программы

2.1 Текст программы на PASCAL

Program sudna;

uses

crt;

type

geo=record

name:string[80];

amount:integer;

capacity:integer;

man:integer;

ship:string[64];

end;

var

geo_bd: file of geo;

my_geo: geo;

choice: integer;

procedure output_rec;

begin

clrscr;

writeln('Судовые спасательные средства:');

writeln('Наименование Количество Грузоподъемность кг. Человек Судно');

reset(geo_bd);

while not eof(geo_bd) do

begin

read(geo_bd,my_geo);

with my_geo do

begin

write(name:5,' ');

write(amount:15,' ');

write(capacity:10,' ');

write(man:18,' ');

write(ship:10,' ');

end;

writeln;

end;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

close(geo_bd);

end;

procedure append_rec;

begin

clrscr;

writeln('Добавление записи в базу данных "Спасательные средства":');

reset(geo_bd);

with my_geo do

begin

write('Название судна:'); readln(name);

write('Количество:'); readln(amount);

write('Грузоподъемность,кг:'); readln(capacity);

write('Человек:'); readln(man);

write('Судно:'); readln(ship);

end;

seek(geo_bd,filesize(geo_bd));

write(geo_bd,my_geo);

writeln;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

close(geo_bd);

end;

procedure delete_rec;

var

n,i: integer;

s: String;

t: geo;

begin

clrscr;

writeln('Удаление записи из базы данных "Спасательные средства":');

write('Введите название Судна: '); readln(s);

i:=0;

n:=-maxint;

Reset(geo_bd);

while not eof (geo_bd) do

begin

read(geo_bd,t);

inc(i);

if t.name=s then

begin

n:=i;

break;

end;

end;

if (filesize(geo_bd)<n) or (n<0) then

begin

writeln('В файле нет такой записи');

close(geo_bd);

writeln;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

exit;

end;

seek(geo_bd,n-1);

for i:=n-1 to filesize(geo_bd)-2 do

begin

seek(geo_bd,i+1);

read(geo_bd,t);

seek(geo_bd,i);

write(geo_bd,t);

end;

seek(geo_bd,filesize(geo_bd)-1);

truncate(geo_bd);

close(geo_bd);

writeln;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

end;

procedure sort_rec;

const

n=100;

var

geo_arr: array [1..n] of geo;

num,j,i: integer;

t: geo;

begin

clrscr;

writeln('Спасательные средства, отсортированные по названию судов:');

writeln('Наименование Количество Грузоподъемность кг. Человек Судно');

i:=0;

reset(geo_bd);

while not eof(geo_bd) do

begin

read(geo_bd,geo_arr[i+1]);

inc(i);

end;

num:=i;

for i:=1 to num do

for j:=i+1 to num do

if geo_arr[i].ship>geo_arr[j].ship then

begin

t:= geo_arr[i];

geo_arr[i]:=geo_arr[j];

geo_arr[j]:=t;

end;

for i:=1 to num do

begin

with geo_arr[i] do

begin

write(name:5,' ');

write(amount:15,' ');

write(capacity:10,' ');

write(man:18,' ');

write(ship:10,' ');

end;

writeln;

end;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

close(geo_bd);

end;

procedure list_rec;

const

n=100;

var

geo_arr: array [1..n] of geo;

num,j,i: integer;

t: geo;

begin

clrscr;

writeln('Спасательные средства, грузоподъемность:');

writeln('Грузоподъемность кг. Судно');

reset(geo_bd);

i:=0;

reset(geo_bd);

while not eof(geo_bd) do

begin

read(geo_bd,geo_arr[i+1]);

inc(i);

end;

num:=i;

for i:=1 to num do

for j:=i+1 to num do

if geo_arr[i].capacity>geo_arr[j].capacity then

begin

t:= geo_arr[i];

geo_arr[i]:=geo_arr[j];

geo_arr[j]:=t;

end;

for i:=1 to num do

begin

with geo_arr[i] do

begin

write(capacity:10,' ');

write(ship:17,' ');

end;

writeln;

end;

writeln('Нажмите Enter для перехода в главное меню.');

readln;

close(geo_bd);

end;

procedure create_bd;

begin

clrscr;

writeln('Создание новой базы данных:');

rewrite(geo_bd);

with my_geo do

begin

write('Название судна:'); readln(name);

write('Количество:'); readln(amount);

write('Грузоподъемность,кг:'); readln(capacity);

write('Человек:'); readln(man);

write('Судно:'); readln(ship);

end;

write(geo_bd,my_geo);

close(geo_bd);

writeln('Нажмите Enter для перехода в главное меню.');

readln;

end;

Procedure poisk_rec;

var name:string;

var

s:geo;

k:integer;

begin

clrscr;

Assign(geo_bd,'geo.dat');

reset(geo_bd);

writeln('Bведите название нужного судна');

Readln(name);

clrscr;

writeln( 'Название судна / Количество / Грузоподъемность / Человек / Судно.');

while not eof(geo_bd) do

begin

Read(geo_bd,s);

if s.name=name then

begin

Writeln(s.name:5,s.amount: 15,s.capacity: 18,s.man: 15,s.ship:10);

k:=k+1; end;

end;

if k=0 then

writeln('Taких нет');

k:=0;

reset(geo_bd);

writeln('Haжмите enter для продолжения работы');

readln;

end;

begin

clrscr;

assign(geo_bd,'geo.dat');

{ main loop }

while true do

begin

clrscr;

writeln('Выберите соответствующий пункт меню:');

writeln('1. Вывод данных.');

writeln('2. Добавление записи.');

writeln('3. Удаление записи.');

writeln('4. Сортировка названия Судов по алфавиту.');

writeln('5. Спасательные средства, грузоподъемность');

writeln('6. Поиск по базе данных.');

writeln('7. Создание новой базы данных.');

writeln('0. Выход.');

readln(choice);

case choice of

1: output_rec;

2: append_rec;

3: delete_rec;

4: sort_rec;

5: list_rec;

6: poisk_rec;

7: create_bd;

0: exit;

end; { of case }

end;

end.

2.2 Экранные копии контрольных примеров программы

2.2.1 Главное меню программы



2.2.2 Добавление информации в БД

2.2.3 Удаление записи о Спасательных средствах



2.2.4 Сортировка по названию судов

2.2.5 Сортировка грузоподъемности



2.2.6 Поиск судна по его названию

2.2.7 Создание новой базы данных



3. Описание программы

3.1 Постановка задачи программы

3.1.1 Словесное описание задачи программы

Программа представляет собой базу данных

ИНФОРМАЦИЯ О ЗАДАЧЕ: Управление базой данных спасательных средств. База данных содержит информацию о спасательных судовых средствах: Название, Количество, Грузоподъемность кг, Человек, В программе присутствует ЭКРАННАЯ ЗАСТАВКА- представление кратких данных о работе

Для программы разработан ИНТЕРФЕЙС в виде ОКОН ВВОДА и ВЫВОДА.

3.1.2 Входные данные

Входными данными для программы являются.

• Наименование

• Количество

• Грузоподъемность кг

• Человек

• Судно

3.2 Функциональное назначение программы

Системное меню или основное меню должно обеспечивать удобное взаимодействие пользователя с программой. В меню должны войти пункты сохранения, просмотра, ввода новых данных и.т.д. Пользователю нужно всего лишь нажать кнопку `enter'. В меню данной программы присутствует семь пунктов:

1 -Вывод данных

2 -Добавления записи

3 -Удаление записи

4 -Сортировка по названию судов по алфавиту

5 -Спасательные средства, грузоподъемность

6 - Поиск по базе данных

7 -Создание новой базы данных

0 - Выход



3.3 Спецификация и структура программы

3.3.1 Структурная диаграмма программы

Основная



Вывода данных.



Добавление данных.



Удаление Записи из БД.



Сортировка судов по алфавиту.



Сортировка грузоподъемности.



Поиск по БД.



Создание новой БД



3.3.2 Спецификация подпрограмм

Подпрограмма create_bd

Назначение подпрограммы: Создание БД

Название подпрограммы: «create_bd»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. нет выходных данных.

Таблица 2. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure create_bd;

Подпрограмма output_rec

Назначение подпрограммы: Просмотр БД

Название подпрограммы: «output_rec»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. нет выходных данных.

Таблица 3. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure output_rec;

Подпрограмма poisk_rec

Назначение подпрограммы: Поиск в базе данных по названию

Название подпрограммы: «poisk_rec»

Входные данные подпрограммы: нет

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура 

Таблица 4. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения
Выход	nazvk	string	Параметр - переменная

Заголовок procedure poisk_rec;

Подпрограмма sort_rec

Назначение подпрограммы: Сортировка базы данных по алфавиту

Название подпрограммы: «sort_rec»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. выходных данных нет

Таблица 5. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure sort_rec;

Подпрограмма list_rec

Назначение подпрограммы: Сортировка базы данных по грузоподъемности

Название подпрограммы: «list_rec»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. выходных данных нет

Таблица 6. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure list_rec;

Подпрограмма append_rec

Назначение подпрограммы: Добавление записи в БД

Название подпрограммы: «append_rec»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. выходных данных нет

Таблица 7. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure append_rec;

Подпрограмма delete_rec

Назначение подпрограммы: Добавление записи в БД

Название подпрограммы: «delete_rec»

Входные данные подпрограммы: name

Выходные данные подпрограммы: нет

Вид подпрограммы: Процедура т.к. выходных данных нет

Таблица 8. Список формальных параметров подпрограммы

Статус параметра	Имя параметра	Тип параметра	Вид параметра
Вход	name	string	Параметр - значения

Заголовок procedure delete_rec;

3.4 Основной алгоритм программы

3.4.1 Тип основного алгоритма программы

1. По структуре - циклический,

2. По значимости и подчиненности - основной,

3. По характеру решения задачи - логический.

3.4.2 Схема основного алгоритма программы

3.5 Используемые технические средства

Для нормального функционирования программы необходимо наличии ПК, на котором установлен пакет Pascal ABC.

3.6 Вызов и загрузка

Вызов и загрузка программы осуществляется в следующей последовательности:

1. С использованием интегрированной среды Pascal ABC загрузить файл PROGRAM1.PAS;

2. Запустить программу на исполнение;

3. На экране монитора просмотреть заставку;

Начать работа с базой данных.

Аннотация

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



4. Описание применения

4.1 Назначение программы

Программа рассчитана для работы с базой данных Спасательных средств

4.2 Условия применения

Программа база данных написана на языке Разса1 АВС и реализована на ПК. Для функционирования программы необходимо:

1. Интегрированная среда Разса1 АВС;

2. ПК;

3. Цветной монитор.

Вызов и загрузка программы осуществляется согласно разделу 3 «Описания программы».

Для запуска программы необходимо наличие файлов PROGRAM1.PAS

4.3 Описание задачи

Программа представляет собой базу данных

ИНФОРМАЦИЯ О ЗАДАЧЕ: база данных спасательных средств»

В программе присутствует ЭКРАННАЯ ЗАСТАВКА.

Для программы разработан ИНТЕРФЕЙС в виде ОКОН ВВОДА и ВЫВОДА.

4.4 Основные характеристики занимаемой памяти

Текст разработанной программы база данных «Сотрудники предприятия» имеет следующую характеристику занимаемой памяти:

• Файл PROGRAM1.PAS-- 7 КБ



Заключение

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



Список использованной литературы

1. Абрамов С.А., Зима Е.В. Начала программирования на языке Паскаль. -М.: Наука, 1987.

2. Аладьев В.З., Тупало В.Г. Turbo-Pascal для всех. - Киев: Технiка, 1993.

3. Белецкий, Ян. Турбо Паскаль с графикой для персональных компьютеров. - М.: Машиностроение, 1991.

4. Джонс Ж., Харроу К. Решение задач с системой Турбо Паскаль. -М.: Финансы и статистика, 1991.

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

6. Климова Л.М. PASCAL 7.0 Практическое программирование. Решение типовых задач. - М.: КУДИЦ-ОБРАЗ, 2000.

7. Климов Ю.С. Программирование в среде Turbo-Pascal 6.0. - Мн.: выш. шк., 1992.

8. Сергиевский М.В. Язык, среда программирования. - М.: Машиностроение, 1994.

9. Турбо Паскаль 7.0. -Киев: торгово-издательское бюро BHV, 1995.

10. Фаронов В.В. Турбо Паскаль 7.0. начальный курс. - М.: "Нолидж", 1997.

11. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования. - М.: "Нолидж", 1997.

Размещено на Allbest.ru

...