Referat.me

Название: Створення програми "Залізничний вузол"

Вид работы: курсовая работа

Рубрика: Информатика и программирование

Размер файла: 206.08 Kb

Скачать файл: referat.me-140096.docx

Краткое описание работы: Використання мови програмування Turbo Pascal, алгоритмів та графічних примітивів модуля Graph. Розробка та реалізація програми для сортування вагонів з довільного порядку в порядок через один. Присвоєння початкових значень та сортувальний алгоритм.

Створення програми "Залізничний вузол"

Міністерство освіти і науки України

Полтавський національний технічний університет

імені Юрія Кондратюка

Факультет інформаційних та телекомунікаційних технологій і систем

Кафедра комп’ютерних та інформаційних технологій і систем

Курсова робота

з дисципліни "Основи програмування та алгоритмічні мови"

Розробив cтудент

групи 101-ТН

Керівник роботи

Полтава 2010

Зміст

Вступ

Постановка задачі

Розв’язання задачі

Алгоритм задачі

Реалізація програми

Демонстрація роботи програми

Висновок

Використана література

Вступ

Щоб написати цю програму потрібні знання мови програмування TurboPascal, а точніше знання алгоритмів та вміння використовувати графічні примітиви модуля Graph.

TurboPascal- мова програмування навчального призначення. Належить до Алгол-подібних мов. Має жорстку типізацію, тобто ціле значення можна присвоїти лише цілій змінній.

Цю мову створено 1970 року Ніклаусом Віртом, як алгоритмічна мова. Існує безліч різних версій з підтримкою об'єктно-орієнтованого програмування. Також є функції для відладки програми (нагляд, покрокове виконання та інші).

У моїй програмі потрібно посортувати вагони з довільного порядку в порядок через один. Для цього у нас є набір вагонів, що знаходиться зправа, стек - для проміжних вагонів, та ліва сторона для результату. Для виконання ми можемо користуватися трьома оперіціями: МИМО, В, ІЗ. За один крок можна переміщати лише один вагон.

Постановка задачі

"Залізничний вузол"

Залізнодорожний сортувальний вузол зроблений так, як показано на малюнку. На правій стороні зібрано у випадковому порядку декілька вагонів двох типів по N штук. Тупік може вміщати всі вагони. Користуючись трьома сортувальними оперціями В, ІЗ, МИМО, зібрати вагони на лівій стороні так, щоб вони чергувалися. Для вирішення задачі достатньо 3N-1 операцій. По запиту користувача программа повинна продемонструвати правильне сортування вагонів.

Розв’язання задачі

У задачі є три положення вагонів:

На початку

В стеку

В кінці

Мій алгоритм спочатку виконує операцію МИМО, так як не вказано який вагон повинен бути першим. Потім слідує головна чатина алгоритму поки стек та початок не спорожніють.

Головний алгоритм перевіряє сочатку стек на присутність вогону другого типу. Якщо перший вагон не такий як останній, то виконати операцію "ІЗ". У випадку коли не підходить, виконати пошук у початку. Якщо перший вагон "не такий" то виконати операцію "В" та продовжити пошук доки не знайдеться другий тип та виконати "МИМО".

У програмі замість того, щоб здвигати при добавленні-вилученні вагона всі елементи реалізовано змінні, які вказують на останній елемент, тобто розмірність масиву.

Всі три положення у вигляді масиву змінних цілого типу. Можуть приймати значення 0-пусто, 1-перший тип, 2-другий тип.

Для графічного зображення процесу сортування використано модуль Graph. tpu. Спочатку зображуються чотири лінії: дві горизонтальні, які утворюють ліву та праву частини, та дві вертикальні - стек.

При зображенні вагонів використано цикл із зміщенням. Вагои зображуюються червоним та зеленим кольорами.

У програмі присутній почаковий набір даних, але є можливість вводу з текстового файлу "rail. dat". Цей режим присутній у вигляді неактивного тексту.

При виконанні операцій сортування вимальовуються підказки у вигляді стрілок та напису виконаної операції.

У кінці роботи програма виводить кількість виконаних операцій та число 3N-1 яке є максильмальною кількістю операцій.

Алгоритм задачі

Присвоєння початкових значень та сортувальний алгоритм


Алгоритм графіки


Алгоритм функцій "В", "ІЗ", "МИМО"

Реалізація програми

program railway;

uses graph,crt;

var

left: array [1. .1000] of integer;

right: array [1. .1000] of integer;

stok: array [1. .1000] of integer;

f1: text;

l,r,s: integer;

n,op: integer;

d,m,z: integer;

procedure anim (i: integer);

var j: integer;

begin

clearviewport;

SetLineStyle (DottedLn, 0, NormWidth);

line (10,50,630,50);

line (10,80,630,80);

line (295,50,295,470);

line (325,50,325,470);

SetLineStyle (SolidLn, 0, NormWidth);

setcolor (green);

for j: =r downto 1 do

begin

if right [j] <>0 then

begin

if right [j] =2 then setcolor (red);

rectangle (335+r*35-j*35,50,365+r*35-j*35,80);

if right [j] =2 then setcolor (green);

end;

end;

for j: =1 to l do

begin

if left [j] =2 then setcolor (red);

rectangle (10+j*35,50,40+j*35,80);

if left [j] =2 then setcolor (green);

end;

for j: =1 to s do

begin

if stok [j] =2 then setcolor (red);

rectangle (295,85+j*35,325,115+j*35);

if stok [j] =2 then setcolor (green);

end;

setcolor (white);

case i of

1: begin

line (200,40,440,40);

line (200,40,220,45);

line (200,40,220,35);

outtextxy (200,25,'MIMO');

end;

2: begin

line (335,100,335,250);

line (335,250,330,230);

line (335,250,340,230);

outtextxy (345,240,'B');

end;

3: begin

line (285,100,285,250);

line (285,100,290,120);

line (285,100,280,120);

outtextxy (265,100,'IZ');

end;

end;

delay (20000);

end;

procedure P_OP (i: integer);

begin

case i of

1:

begin

inc (l);

left [l]: =right [r] ;

right [r]: =0;

dec (r);

end;

2:

begin

inc (s);

stok [s]: =right [r] ;

right [r]: =0;

dec (r);

end;

3:

begin

inc (l);

left [l]: =stok [s] ;

stok [s]: =0;

dec (s);

end;

end;

inc (op);

anim (i);

end;

begin

right [1]: =2;

right [2]: =2;

right [3]: =1;

right [4]: =1;

right [5]: =1;

right [6]: =2;

n: =6;

{assign (f1,'rail. dat');

reset (f1);

while not eof (f1) do

begin

read (f1,right [n]);

inc (n);

end;

close (f1); }

d: =detect;

initgraph (d,m,'');

r: =n;

l: =0;

s: =0;

p_op (1);

while (r+s>0) do

begin

if s>0 then

if left [l] <>stok [s] then

p_op (3);

while left [l] =right [r] do

p_op (2);

if r>0 then p_op (1);

end;

anim (0);

readln;

closegraph;

clrscr;

writeln ('Operations: ',op,'<',3*n-1,' (3N-1) ');

readln;

end.

Демонстрація роботи програми

Операція "МИМО"

Операція "В"

Операція "ІЗ"

Висновок

Дана програма дозволяє сортувати вагони двох типів найкоротшим шляхом. Також, виконавши деякі зміни, можна збільшити кількість типів вагонів.

Написанням цієї программи я отримав гарні навики розробки графічних завдань в TurboPascal. Особливо цікаво було розробити процедуру для зображення процесу сортування.

Використана література

1. Ковалюк Т.В. Основи програмування - К., 2005

Похожие работы

  • Автоматизований аналіз злочинності

    Створення програми "Аналізатор злочинності в регіоні". Структура зберігаючих даних. Неформальна постановка задачі. Алгоритм основної програми. Введення і збереження інформації. Можливість перегляду всіх існуючих документів. Вихідний код програми.

  • Автоматизоване нарахування заробітної плати

    Методика та особливості створення програми "Автоматизоване нарахування платні" для збереження, перегляду та аналізу введеної інформації, її алгоритм та вихідний код. Аналіз факторів, які впливають на формування заробітної платні робітника підприємства.

  • Створення програми &quot;Шаховий кінь&quot;

    Створення програми "Шаховий кінь" в системі програмування Turbo Pascal. Генерування відповідно до заданих початкових кординат маршруту руху коня. Алгоритм задачі: початок, виведення зображення та пошук. Реалізація програми та демонтрація її роботи.

  • Проектування ітераційних алгоритмів

    Використання ітерацій для обчислення приблизних значень величин. Розробка ітераційних алгоритмів з перевіркою правильності введення даних. Побудова блок-схеми і програмування мовою Turbo Pascal обчислення значення функції, розкладеної в степеневий ряд.

  • Програма для сортування даних методом піраміди

    Задача сортування даних в програмуванні. Алгоритм сортування обміном за критерієм або вибором, деревом, пірамідальне, швидке, сортування Хоара та метод цифрового сортування. Системні вимоги та інструкція для користувача. Алгоритм та лістинг програми.

  • Графічна бібліотека OpenGl

    Програма створення графіки OpenGl. Алгоритми зафарбовування від внутрішньої точки до границь довільного контуру. Алгоритм обчислення координати точки кривої Без'є за заданними параметрами. Створення програм OpenGL мовою С, C++ у середовищі Windows.

  • Створення програми гри &quot;Шибениця&quot;

    Алгоритмічна мова програмування універсального призначення Turbo Pascal. Розробка і створення програми для гри "Шибениця". Алгоритм функціонування программи, блок-схема алгоритму. Використання додаткових модулів Graph та Crt у процессі створення програми.

  • Довідкова система по кримінальному праву

    Створення довідкової системи по зменшенню витрат часу на здобуття інформації по кримінальному праву. Розробка алгоритму основної програми на мові програмування Turbo Pascal з підключенням модуля СRT, якій відповідає за графіку і DOS та працює з файлами.

  • База даних по приватним підприємствам регіону

    Програма "Приватка" для збереження та перегляду всієї інформації, що стосується пошуку підприємства. Розробка алгоритму та програмування на мові Turbo Pascal. Формальна та неформальна постановка задачі. Структура зберігаючих даних. Вихідний код програми.

  • Реалізація функцій ABS(X), [X], {x}

    Використання математичного сопроцесора або його емулятора при програмуванні на мові асемблера з використанням дробових чисел. Створення програми на мові ASM-86, яка реалізує функції [x], {x}, |X|. Алгоритм перетворення цілого числа в дійсне та навпаки.