Створення та обробка бази даних

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

Харківський патентно-комп'ютерний коледж

Курсовий проект з предмету

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

на тему

Створення та обробка бази даних

Розробив Гедульянов С.О.

Прийняв Головченко Г. Є.

2009



1. Засоби для виконання програми

1.1 Опис мови програмування

комп'ютерний програмування паскаль файл

Мова програмування Паскаль, названа на честь французького філософа і математика Блеза Паскаля (1623 - 1662), була вперше створена швейцарцем Ніклаусом Віртом, який працював на кафедрі інформатики Стенфорського університету. Широке ж поширення він одержав тільки через багато років після розробки діалекту Турбо Паскаль широко відомої і донині фірмою Borland International.

У першій версії були об'єднані швидкий компілятор і редактор тексту, а так само додане могутнє розширення. Кардинально новим з'явилася мова Turbo Pascal 6.0. У ній стало можливим практично застосовувати концепцію обєктно-орієнтованого програмування. Це дозволило створювати програми, що могли б вирішувати прикладні задачі користувача. Був уперше введений багатовіконний інтерфейс і підключене миша, що значно полегшує роботу користувача.

У 1992 році все та ж фірма Borland International випустила Turbo Pascal 7.0. Тут було застосовано виділення різними кольорами елементів структури програми, зовсім новий компілятор і новий інтерфейс. Базовими компонентами система програмування Турбо Паскаль є компілятор мови Паскаль, засіб створення і редагування вихідних текстів програм і засобу їхнього налагодження (пошуку помилок). Усі ці компоненти об'єднані в єдине інтегроване середовище розроблювача, з яким саме і працює програміст, створюючи свої програми.

Оператором називається пропозиція мови програмування, що задає повний опис деякої дії, який необхідно виконати. Основна частина програми мовою Турбо Паскаль являє собою послідовність операторів. Роздільником операторів служить крапка з комою. Оператори, не утримуючих інших операторів, називаються простими. До них відносяться оператори присвоювання, безумовного переходу, виклику процедури, порожній. Структурні оператори являють собою конструкції, побудовані з інших операторів по строго визначених правилах. Ці оператори можна розділити на три групи: складеного, умовні і повтору.

Для уведення вихідних даних найчастіше використовується процедура Read, ReadLn(m,n,k); Процедура робить читання До значень вихідних даних і привласнює ці значення перемінним m, n, k . При уведенні вихідних даних відбувається перетворення з зовнішньої форми представлення у внутрішнім, обумовленим типом перемінних. Перемінний, утворюючий список уведення, можуть належати або до цілого, або до дійсного, або до символьного типам. Читання вихідних даних логічного типу в мові Паскаль неприпустимо.

Значення вихідних даних можуть відокремлюватися друг від друга пробілами і натисканням клавіш табуляції і Enter.

Не допускається поділ чисел, що вводяться, комами.

Для висновку результатів роботи програми на екран використовуються процедури: Write(m,n,k);WriteLn(m,n,k);

Перший з цих операторів робить висновок значень перемінних m, n, k у рядок екрана. Другий оператор, на відміну від першого, не тільки робить висновок даних на екран, але і робить перехід до початку наступної екранного рядка. Якщо процедура writeln використовується без параметрів, то вона просто робить пропуск рядка і перехід до початку наступної рядка.

Перемінний, складовий список висновку, можуть відноситися до цілого, дійсному, символьному чи булевскому типів. Як елемент списку висновку крім імен перемінних можуть використовуватися вираження і рядки.

Форма представлення значень у полі висновку відповідає типу перемінних і виражень: величини цілого типу виводяться як цілі десяткові числа, дійсного типу - як дійсні десяткові числа з десятковим порядком, символьного типу і рядка - у виді символів, логічного типу - у виді логічних констант TRUE і FALSE. Оператор висновку дозволяє задати ширину полючи висновку для кожного елемента списку висновку. У цьому випадку елемент списку висновку має вид А:ДО, де А - чи вираження рядок, ДО - вираження або константа цілого типу. Якщо виведене значення займає в поле висновку менше позицій, чим ДО, то перед цим значенням розташовуються пробіли. Якщо виведене значення не міститься в ширину полючи ДО, то для цього значення буде відведена необхідна кількість позицій. Для величин дійсного типу елемент списку висновку може мати вид А:ДО:М, де А - перемінного чи вираження дійсного типу, ДО - ширина полючи висновку, М - число цифр дробової частини виведеного значення. ДО і М - чи вираження константи цілого типу. У цьому випадку дійсні значення виводяться у формі десяткового числа з фіксованою крапкою.

Приклад запису операторів висновку: var rA, rB: Real; iP,iQ:Integer; bR, bS: Boolean; chT, chV, chU, chW: Char;begin . . . WriteLn(rA, rB:10:2); WriteLn(iP, iQ:8); WriteLn(bR, bS:8); WriteLn(chT, chV, chU, chW);end.

У мові Паскаль використовується два оператори для реалізації умовних переходів - IF і CASE, а також оператор безумовного переходу GOTO. Вони дозволяють порушити послідовний порядок виконання інструкцій програми.

Оператор умовного переходу в Турбо Паскаль має вид: if умова then оператор 1 else оператор 2; умова - це логічне вираження, у залежності від який вибирається одна з двох альтернативних галузей алгоритму. Якщо значення умови істинно (TRUE), то буде виконуватися оператор 1, записаний після ключового слова then. У противному випадку буде виконаний оператор 2, що випливає за словом else, при цьому оператор 1 пропускається. Після виконання зазначених операторів програма переходить до виповненню команди, що коштує безпосередньо після оператора if. Необхідно пам'ятати, що перед ключовим словом else крапка з коми ніколи не ставиться! else - частина в операторі if може бути відсутнім: if умова then оператор 1;

Тоді у випадку невиконання логічної умови керування відразу передається оператору, що коштує в програмі після конструкції if.

Варто пам'ятати, що синтаксис мови допускає запис тільки одного оператора після ключових слів then і else, тому групу інструкцій обов'язково треба поєднувати в складений оператор (облямовувати операторними дужками begin . end). У противному випадку виникає найчастіше логічна помилка програми, коли компілятор мови помилок не видає, але програма проте працює неправильно. Приклади. if x > 0 then modul := x else modul := -x; if k > 0 then WriteLn('k - число позитивне'); if min > max then begin t := min; min := max; max := t; end;

Оператор for - оператор повтору. У випадках, коли число повторень може бути заздалегідь відоме, для організації циклічної обробки інформації застосовується оператор повтору for. Часто цей оператор повтору називають оператором циклу з параметром, тому що число повторень задається перемінною, яка є параметром циклу, чи керуючою перемінною. Оператор повтору for складається із заголовка і тіла циклу.

Дві форми циклу:

for <параметр циклу> := S1 to S2 do <оператор>;

for <параметр циклу> := S1 downto S2 do <оператор>;

Тіло циклу може бути простим чи складеним оператором.

Оператор for забезпечує виконання тіла циклу доти, поки не будуть перебрані всі значення параметра циклу від початкового до кінцевого

Оператор if , then , else .Дуже часто подальше виконання програми можливе тільки при виконання визначених умов. Для цього в Турбо Паскалі зарезервовані умовні оператори. Оператор if , then , else є удосконаленою моделлю оператора if , then , що не передбачає виконання якої-небудь дії, якщо жодна з умов не виконалася.

Цей оператор добре підходить для ситуацій, де мається багато альтернатив (наприклад, вибір елемента меню).

Оператор циклу repeat аналогічний оператору while, але відрізняється від нього, по-перше, тим, що умова перевіряється після чергового виконання операторів тіла циклу й у такий спосіб гарантується хоча б однократне виконання циклу. По-друге, тим, що критерієм припинення циклу є рівність вираження константі true . За це даний оператор часто називають циклом з постусловием, тому що він припиняє виконуватися, як тільки умова, записана після слова until, виконається. Оператор циклу repeat складається з заголовка, тіла й умови закінчення.

Загальний вид: Repeat

<оператор>

. . . . .

<оператор>

until <умова закінчення циклу>;

Спочатку виконується тіло циклу, потім перевіряється умова виходу з циклу. У будь-якому випадку цей цикл виконується хоча б один раз. Якщо умова не виконується, тобто результатом вираження є False, то цикл активізується ще раз. Якщо умова виконана, то відбувається вихід з циклу. Використання операторних дужок, у випадку, якщо тіло циклу складається з декількох операторів, не потрібно.

Вираз "while умова do" називається заголовком циклу, "оператор" - тілом. Ми б назвали while-оператор циклом з умовою продовження, але цей термін дотепер у літературі не з'являвся.

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

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

1.2 Опис електронно-обчислювальної машини

Електронно-обчислювальна машина (ЕОМ), на якій виконується курсовий проект, є за своїм принципом роботи та складовими частинами константним видом персонального комп'ютера (ПК).

Основними та невід'ємними частинами ПК є:

1 Монітор

2 Материнська плата

3 Центральний процесор

4 Оперативна пам'ять

5 Карти розширення

6 Блок живлення

7 Оптичний привід

8 Жорсткий диск

9 Маніпулятор

10 Клавіатура

Монітор є пристроєм виводу динамічної графічної інформації. Його основними характеристиками є його плоский екран; розмір дисплея, який складає 22 дюйми; коефіцієнт контрастності - 8000:1; яскравість - 300 кд/м² ; частота розгортки - 5 ms та поле огляду 170/160.

Материнська плата - це головна системна плата, на якій містяться основні компоненти комп'ютера, що забезпечують логіку роботи. Центральний процесор - це функціональна частина ЕОМ, що призначена для інтерпретації команд. Процесор виготовлений фірмою Intel на основі двух'ядерної архітектури з частотою роботи 3.16 Ггц та частотою шини 1333 Мгц, також його кеш-пам'ять першого рівня складає 256 Kb та другого відповідно 6144 Kb.

Оперативна пам'ять - це частина системної пам'яті ПК, до якої процесор може звернутися за одну операцію. Використовується для тимчасового зберігання даних і команд, необхідних процесору для виконання їм операцій. Дана оперативна пам'ять має об'єм 2048 Mb та заснована на технології DDR2 з частотою роботи 1066 Мгц.

Карта розширення є друкованою платою, яка розміщена у слоті розширення основної системної плати ПК з метою реалізації додаткових функцій.

Пристрій, який використовується для встановлення оптимальної напруги для ЕОМ є блок живлення. Його потужність складає 370W .

Також обов'язковою частиною ПК є оптичний привід. Він використовується як пристрій вводу або з можливістю виводу будь-якої інформації за допомогою спеціальних оптичних дисків.

Більшість інформації на ПК розміщується на жорсткому дискові (вінчестері ). Жорсткий диск є енергонезалежним пристроєм, що дозволяє зберігати інформацію навіть при простою'ванні ЕОМ. Його об'єм пам'яті складає 300 Gb, також один з принципів роботи заснований на стандарті HDD SATA.

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

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

Програмне забезпечення являє собою операційну систему виготовлену міжнародною корпорацію Microsoft, а саме Windows 7 Ultimate ( 7127 ).

Ця операційна система оптимізовано дозволяє забезпечити управління апаратними забезпеченням та реалізувати як графічний інтерфейс,так і керування обчислювальними процесами користувачем.

Операційна система та апаратне забезпечення ПК, яке назване вище, дозволяє розробити програмний продукт та оптимізовано реалізувати його для користувача даного продукту.



Висновки

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

Ознайомився з вимогами державного стандарту до виконання курсового проекту у вищих учбових закладах України, та отримав навички з оформлення документів даного типу.



Перелік посилань

1. Абрамов С.А., «Початок програмування на мові Паскаль.», - Москва: «Наука», 1987. - 112 с.

2. Колесниченко О., «Апаратні засоби PC», - Санкт-Петербург: «BHV - Санкт-Петербург»,2000. - 1004 c.

3. Джонс Ж., Харроу К. , «Рішення задач в Turbo Pascal», -Москва: «Финансы и статистика», 1991. -720 с.

4. Фаронов В.В., «Турбо Паскаль 7.0. Практика програмування. Учебное пособие.», - Москва: «Нолидж», 1997. - 432 с.

5. Бартків А.Б., «Турбо Паскаль: Алгоритми і програми.», -Київ: «Вища школа», 1992. - 230 с.

6. Культін Н. Б., «Програмування в Turbo Pascal та Delphi», - Санкт-Петербург: «BHV - Санкт-Петербург», 1997. - 234 с.



Додатки

Додаток А

program kurs;

uses crt;

type

tabl=record

Sklad: string [10]; {Розмір назви складу}

ostatok: longint ; {Залишок}

polucheno: longint;{Отримано}

vidano: longint; {Видано}

end;

var

filename: string [20];

f: file of tabl;

baza: array [1..100] of tabl;

tempcontact : tabl;

ch : byte;

count : byte;

i: byte;

p: longint;

s1,s2,s3,s4 : integer;

{ПРОЦЕДУРА - МЕНЮ}

procedure menu;

begin

clrscr;

gotoxy (20,2);

textcolor (9);

writeln (' Kursovij proekt "VIDOMIST RUHU MATERIALIV " ');

textcolor(2);

gotoxy (30,5);

writeln ('1.Stvoriti bazu dannih');

gotoxy (30,7);

writeln ('2.Dodati zapis');

gotoxy (30,9);

writeln ('3.Korektuvanna bazi');

gotoxy (30,11);

writeln ('4.Vidaliti zapis');

gotoxy (30,13);

writeln ('5.Pereglad bazi');

gotoxy (30,15);

writeln ('6.Vihid');

textcolor(9);

gotoxy (25,18);

writeln ('Vvedit neobhidnij rozdil menu... ');

textcolor(14);

end;

{ПРОЦЕДУРА СТВОРЕННЯ НОВОГО СКЛАДУ}

procedure inputcontact;

begin

clrscr;

writeln ('vvedit nazvu skladu');

readln (tempcontact.Sklad);

writeln ('vvedit zalichok ');

readln (tempcontact.ostatok);

writeln ('vvedit kilkist otrimanih materialiv ');

readln (tempcontact.polucheno);

writeln ('vvedit kilkist vidanih materialiv');

readln (tempcontact.vidano);

end;

{ПРОЦЕДУРА СТВОРЕННЯ НОВОЇ БАЗИ}

procedure creatbaze;

var

ch: char;

begin

rewrite (f);

repeat

inputcontact;

write (f,tempcontact);

writeln ('continue? y/n');

readln (ch);

until ch='n';

close(f);

end;

{ПРОЦЕДУРА ДОДАВАННЯ НОВОГО СКЛАДУ}

procedure add;

var

N: real;

begin

reset (f);

N:= filesize (f);

seek (f,filesize(f));

inputcontact;

write (f,tempcontact);

close (f);

clrscr;

end;

{ПРОЦЕДУРА ЧИТАННЯ ІЗ ФАЙЛУ}

procedure reading;

var A: tabl;

i: integer;

begin

reset(f);

i:=1;

while not eof (f) do

begin

read (f,baza[i]);

i:=i+1;

end;

count:=i-1;

close (f);

end;

{ПРОЦЕДУРА - ЗАГОЛОВОК ТАБЛИЦІ}

procedure shapcka;

begin

writeln ('/--------------------------------\');

writeln ('| | | Dvigenie materialov | |');

writeln ('| N | Sklad |----------| Itogo |');

writeln ('| | | Zalyshok | Polucheno | Vidano | |');

writeln ('|--------------------------------------------|');

end;

{ПРОЦЕДУРА ВІДОБРАЖЕННЯ ТАБЛИЦІ НА ЕКРАН}

procedure vivod;

var i : integer;

begin

clrscr;

shapcka;

reading;

s1:=0; s2:=0; s3:=0; s4:=0;

for i:=1 to count do

begin

p := baza[i].ostatok + baza[i].polucheno - baza[i].vidano;

s1:= s1+baza[i].ostatok;

s2:= s2+baza[i].polucheno;

s3:= s3+baza[i].vidano;

s4:= s4+p;

write ('|', i:2 , '|':2, baza[i].sklad:8, '|':2, baza[i].ostatok:10, '|':2);

write ( baza[i].polucheno:10,'|':2, baza[i].vidano:9, '|':2, p:6 , '|':2);

writeln;

writeln ('|--------------------------------------------------------|');

end;

writeln ('| itogo ', '|', s1:10, '|':2, s2:10, '|':2, s3:9, '|':2, s4:6, ' |':2);

writeln ('\--------------------------------------------------------/');

writeln;

end;

{ПРОЦЕДУРА РЕДАГУВАННЯ ЗАПИСУ}

procedure edit;

var nom : byte;

ch: char;

p,i : integer;

begin

vivod;

writeln ('Vved nom red zap ');

read (nom);

clrscr;

writeln ('vvidit nazvu zavodu ');

readln (BAZA[NOM].sklad);

readln (BAZA[NOM].sklad);

writeln ('vvedit zalishok ');

readln (BAZA[NOM].ostatok);

writeln ('vvedit kilkist otrymanih materialiv ');

readln (BAZA[NOM].polucheno);

writeln ('vvedit kilkist vidanih materialiv ');

readln (BAZA[NOM].vidano);

clrscr;

shapcka;

s1:=0; s2:=0; s3:=0; s4:=0;

for i:=1 to count do

begin

p := baza[i].ostatok + baza[i].polucheno - baza[i].vidano;

s1:= s1+baza[i].ostatok;

s2:= s2+baza[i].polucheno;

s3:= s3+baza[i].vidano;

s4:= s4+p;

write ('|', i:2 , '|':2, baza[i].sklad:8, '|':2, baza[i].ostatok:10, '|':2);

write ( baza[i].polucheno:10,'|':2, baza[i].vidano:9, '|':2, p:6 , '|':2);

writeln;

writeln ('|--------------------------------------------------------|');

end;

writeln ('| itogo ', '|', s1:10, '|':2, s2:10, '|':2, s3:9, '|':2, s4:6, ' |');

writeln ('\--------------------------------------------------------/');

writeln (' Save ? y/n ');

readln (ch);

if ch = 'y' then

begin

reset (f);

seek (f, nom-1);

write (f, baza[nom]);

close (f);

end;

end;

{ПРОЦЕДУРА ВИДАЛЕННЯ ЗАПИСУ}

procedure delete;

var

a,n : integer;

fn : file of tabl;

begin

vivod;

writeln ('vvedite nom zap na del ');

readln (n);

assign (fn,'temp');

rewrite (fn);

for i:=1 to count do

if i <> n then

write (fn, baza[i]);

close (fn);

erase (f);

rename (fn,filename);

assign (f,filename);

end;

{ОСНОВНА ПРОГРАММА}

Begin

clrscr;

textcolor(9);

gotoxy(30,5);

writeln ('VVEDIT IMYA FAILU ');

gotoxy(38,21);

readln (filename);

assign (f,filename);

while true do

begin

menu;

gotoxy (38,21);

readln (ch);

case ch of

1: begin

creatbaze;

vivod;

textcolor (9);

writeln ('Natysnit bud-yaky klavishu dlya prodovgennya...');

readkey;

textcolor (26);

end;

2: begin

add;

vivod;

textcolor (9);

writeln ('Natysnit bud-yaky klavishu dlya prodovgennya...');

readkey;

textcolor (26);

end;

3: begin

edit;

end;

4: begin

delete;

vivod;

textcolor (9);

writeln ('Natysnit bud-yaky klavishu dlya prodovgennya...');

readkey;

textcolor (26);

end;

5: begin

vivod;

textcolor (9);

writeln ('Natysnit bud-yaky klavishu dlya prodovgennya...');

readkey;

textcolor (26);

end;

6: exit;

else

textcolor(20);

writeln ('syntaxis error');

readkey;

end;

end;

end.



Додаток Б

Рисунок 1

Рисунок 2 { ВИБІР ПУНКТУ МЕНЮ }

Рисунок 3{ 1.СТВОРЕННЯ БАЗИ }



Рисунок 4{ 2.ДОДАВАННЯ ЗАПИСУ }

Рисунок 5 { 3.РЕДАГУВАННЯ }

Рисунок 6



Рисунок 7

Рисунок 8

Рисунок 9{ 4.ВИДАЛЕННЯ }



Рисунок 10

Рисунок 11{ 5.ПЕРЕГЛЯД БАЗИ }

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