Программа "Сберегательная книжка"

Волжский университет имени В.Н.Татищева

Кафедра “Информатика и системы управления”

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

по дисциплине: “Алгоритмизация и языки программирования”

Тема: “ Сберегательная книжка”

Выполнил: студент гр. ИС-311

Валиев Х. Х.

Преподаватель: Ахмедханлы Д.М.

Тольятти 2002

Содержание

1. Задание

2. Описание предметной области

3. Описание алгоритма задачи

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

Приложения

1. Задание

ОПИСАНИЕ

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

номер сберегательной книжки;

фамилия, имя, отчество клиента;

домашний адрес;

дата;

остаток денежной суммы;

выплаченную/внесенную в указанную дату сумму .

В каждой сберегательной книжке хранится не более 5 записей. Сберегательные книжки клиентов хранятся в файле klient.sum. Кроме того, другой файл klient.lst содержит каталог сберегательных книжек в банке. Прикладная программа содержит следующие процедуры и функции:

Остаток (функция запрашивает фамилию, имя и отчество клиента и возвращает остаток на счету указанного клиента);

Открыть Счет (процедура открывает счет для нового клиента);

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

Выплатить (процедура запрашивает фамилию, имя, отчество клиента, а также величину снимаемой со счета суммы и причину съема. Если на счете денег не осталось, процедура запрашивает, нужно ли ликвидировать счет. Перед внесением изменений в сберегательную книжку, процедура просит подтверждения: "Вы уверены, что сумма уже выдана клиенту?");

Внести (процедура запрашивает фамилию, имя, отчество клиента, а также величину вносимого вклада. Если указанный клиент не найден, процедура запрашивает, нужно ли открыть новый счет. Перед внесением изменений в сберегательную книжку, процедура просит подтверждения: "Вы уверены, что сумма уже внесена клиентом?");

Показать (процедура выводит на экран содержимое сберегательной книжки указанного клиента в виде стандартного бланка с графами Дата Взноса, Сумма, Кто выдал/принял, Остаток.

ВХОД

Ввод данных в программу осуществляется в диалоге по запросам программы. Оператор программы инициирует запуск той или иной процедуры нажатием функциональных клавиш.

ВЫХОД

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

ОШИБКИ

Ошибки ввода при диалоге должны приводить к повторению диалога.

Если число записей в книжке превышает 15, выдается сообщение об ошибке "Сберегательная книжка заполнена. Вам необходимо зарегистрировать новый вклад".

2. Описание предметной области

Данная программа `сберегательная книжка' предназначена для автоматизации учета счетов в банке. Она позволяет выводить данные о банковских счетах и клиентах, и отображать на экране интересующую информацию. Так же программа позволяет определить состояние счёта, остаток суммы на счету.

3. Описание алгоритма задачи

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

Сохранение данных в файл производится во время выхода из программы.

Для начала работы с программой необходимо запустить файл bank.exe. После чего загрузится основное окно программы. Скорость загрузки программы зависит от быстродействия компьютера и объема базы данных. Верхнюю часть экрана занимает меню. Навигация, по которому происходит при помощи следующих клавиш:

Стрелка влево - перемещение по меню в лево.

Стрелка вправо - перемещение по меню вправо.

Enter - выбор подменю.

стрелка вверх - перемещение по подменю вверх.

стрелка вниз - перемещение по подменю вниз.

Escape - выход из подменю.

Далее описаны действия, которые выполняет каждый пункт меню.

Остаток

Функция запрашивает фамилию, имя и отчество клиента и возвращает остаток на счету указанного клиента;

Открыть счёт

Вызывает окно ввода данных о новом счёте. Окно содержит следующие поля для ввода.

Номер сберегательной книжки - Числовое поле может содержать 10 символов.

Фамилия Имя Отчество - Строковое поле 35 символов.

Адрес - Строковое поле 32 символов.

Сегодняшняя дата - Числовое поле 6 символа.

Внесённая сумма - Числовое 6 символов.

Подтверждение ввода осуществляется клавишей «Enter»

Ликвидировать Счет

По желанию клиента, снявшего со счета всю сумму вклада, счет ликвидируется, а в каталоге сберегательных книжек банка делается пометка о ликвидации данного счета. Из файла klient.sum содержимое соответствующей сберегательной книжки не удаляется. Эти данные можно, например, в дальнейшем использовать для подготовки годового отчета о деятельности банка);

Выплатить

Процедура запрашивает фамилию, имя, отчество клиента, а также величину снимаемой со счета суммы и причину съема. Если на счете денег не осталось, процедура запрашивает, нужно ли ликвидировать счет. Перед внесением изменений в сберегательную книжку, процедура просит подтверждения: "Вы уверены, что сумма уже выдана клиенту?");

Внести

Процедура запрашивает фамилию, имя, отчество клиента, а также величину вносимого вклада. Если указанный клиент не найден, процедура запрашивает, нужно ли открыть новый счет. Перед внесением изменений в сберегательную книжку, процедура просит подтверждения: "Вы уверены, что сумма уже внесена клиентом?";

Показать

Процедура выводит на экран содержимое сберегательной книжки указанного клиента в виде стандартного бланка с графами Дата Взноса, Сумма, Остаток.

Программа содержит следующие процедуры:

Procedure otkritiascheta ;

Производит занесение данных в файл.

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

procedure likvidaciischeta;

Производит удаление данных из файла.

Берет данные из файла klient.sum , заносит их в буфер, затем создает файл klient1.sum и вносит в него информацию без введённого с клавиатуры счёта. Потом копирует файл klient1.sum в файл klient.sum, обновляя тем существующую там информацию.

При каждом запуске процедура создается новый файл klient1.sum, если файл существует, то он перезаписывается.

procedure ostatok;

Производит чтение данных из файла klient.sum, где хранится информация о клиентах, по введённой фамилии имени отчеству.

procedure sost;

Процедура осуществляет чтение информации из файла klient.sum, и проверку наличия введённых с клавиатуры данных.

procedure main;

Рисует кнопку. Задаются верхние левые координаты кнопки и надпись.

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

1. П. И. Рудаков, М. А. Федотов. “ Основы языка Pascal “ . Учебный курс. Москва “ Радио и связь “ “ Горячая линия - телеком “. 2000 г.

2. Е. А. Зуев “ Turbo Pascal “ Практическое руководство. Москва - “ СТРИКС “ . 1997 г.

3. В. В. Фаронов. Программирование в среде Turbo Pascal. М.: МГТУ, 1990.

4. Д. Прайс. Программирование на языке Паскаль: Практическое руководство. Пер с англ. - М., Мир, 1987 г.

5. П. Грогоно. Программирование на языке Паскаль: Пер. с англ. - М.: Мир, 1982 г.

6. К. Боон. ПАСКАЛЬ для всех: Пер. с гол. - М.: Энергоиздат,1988 г.

Приложения

Приложение 1. Листинг программы

uses crt;Typeps = ^klient;klient1 = recordncb:integer; fio:string[35]; adres: string[32]; data: string[9]; ost: integer; many:integer;

smany:integer;

end;

klient=record

pp:klient1;

l,r:ps;

end;

var

f:file of klient1;

ff:file of klient1;

buf:klient1;

top,t,n,p,k,pa : ps;

fioo,fio1,pri,data,adres,fio:string[35];

vmany,smany,many,ost,suma,fe,nlc,ncb,gmenu,vmenu: integer;

key:char;

menu:array[1..16] of string;

procedure otkritiascheta;

begin clrscr;

assign(f,'c:\klient.sum');

reset (f);

textcolor(6);

write('Номер сберегательной книжки - '); readln(ncb);

write('Фамилия имя отчество - '); readln(fio);

write('Домашний адрес - '); readln(adres);

write('Сегодняшняя дата - '); readln(data);

write('Внесённая сумма - '); readln(many);

ost:=0;

ost:=ost+many;

write(f,buf);

vmenu:=-1;

clrscr;

end;

procedure likvidaciischeta;

begin clrscr;

assign(ff,'c:\klient1.sum');

assign(f,'c:\klient.sum');

textcolor(5);

write('Введите номер ликвидируемого счета - '); readln(nlc);

reset(f); rewrite(ff);fe:=0;

repeat

if filesize(f)=0 then

begin

writeln('На данный момент счетов не обнаружено');

readln;

vmenu:=-1; exit;

end;

read(f,buf);

if (ncb<>nlc) then write(ff,buf)

else fe:=1;

until eof(f);

if fe=0 then writeln('Данного счёта не существует')

else writeln('Счёт ликвидирован');

readln;

close(f);

erase(f);

close(ff);

assign(f,'c:\klient1.sum');

rename(f,'c:\klient.sum');

reset(f);

vmenu:=-1;

clrscr;

end;

procedure ostatok;

begin clrscr;

assign(f,'c:\klient.sum');

reset(f);

while not eof(f) do

begin

textcolor(3);

write('Введите фамилию имя отчество - ');

read(fio);

read(f,buf);

if fio=fio then

begin

textcolor(3);

writeln('Остаток на вашем счету - ',ost);

readln;

end

else begin

textcolor(3);

writeln;

writeln('Данного клиента нет в базе данных');

readln;

end;

end;

vmenu:=-1;

readln;

clrscr;

end;

procedure sost;

begin clrscr;

assign(f,'c:\klient.sum');

write('Введие Фамилию Имя Отчество клиента');readln(fioo);

if fioo<>fio then begin textcolor(4); writeln('ФИО введены неправильно или');

writeln('клиента нет в базе данных');readln

;vmenu:=-1;;end

else

reset(f);

top:=nil;

while not eof(f) do

begin

new(n);

read(f,buf);

n^.l:=nil;

n^.r:=top;

if t<>nil then t^.l:=n;

n^.pp.ncb:=ncb; n^.pp.fio:=fio; n^.pp.adres:=adres;

n^.pp.data:=data; n^.pp.ost:=ost;

t:=top;

top:=n;

end;

t:=top;

p:=nil;

while t<>nil do

begin

if p<>nil then

begin

if p^.pp.ncb<t^.pp.ncb then

begin

p^.r:=t^.r;

pa:=t^.r;

pa^.l:=p;

t^.r:=top;

t^.l:=nil;

top^.l:=t;

top:=t;

end;

end;

p:=t;

t:=t^.r;

end;

t:=top;

while t<>nil do

begin

textcolor(2);

writeln('Фамилия имя отчество - ',fio );

writeln('остаток - ',ost);

writeln('дата взноса - ',data);

writeln('Внесённая сумма - ',many);

t:=t^.r;

readln;vmenu:=1;

end;

vmenu:=-1;

readln;

clrscr;

end;

procedure viplata;

begin clrscr;

assign(f,'c:\klient.sum'); smany:=0;

write('Введите Фио - ');readln(fio);

write('Введите сумму, снимаемую со счёта - ');readln(smany);

write('Введите причину съёма - ');readln(pri);

if ost=0 then begin writeln('На вашем счёте 0 руб. вам нужно ликвидировать счёт')

;readln ;vmenu:=-1 end

else write('Вы уверены, что сумма уже выплачена?');

ost:=ost-smany;

reset(f);

top:=nil;

while not eof(f) do

begin

new(n);

read(f,buf);

n^.l:=nil;

n^.r:=top;

if t<>nil then t^.l:=n;

n^.pp.ncb:=ncb; n^.pp.fio:=fio;

n^.pp.data:=data; n^.pp.ost:=ost;

t:=top;

top:=n;

end;

t:=top;

p:=nil;

while t<>nil do

begin

if p<>nil then

begin

if p^.pp.ncb<t^.pp.ncb then

begin

p^.r:=t^.r;

pa:=t^.r;

pa^.l:=p;

t^.r:=top;

t^.l:=nil;

top^.l:=t;

top:=t;

end;

end;

p:=t;

t:=t^.r;

end;

t:=top;

begin

t:=t^.r;

vmenu:=1; end; vmenu:=-1;

readln;

clrscr;

end;

procedure vnesenie;

begin clrscr;

assign(f,'c:\klient.sum'); vmany:=0;

write('Введите Фамилию имя отчество - ');readln(fio);

write('Введите сумму,котхотите положить на счёт - ');readln(vmany);

write('Вы уверены, что сумма уже внесена?');

ost:=ost+vmany;

reset(f);

top:=nil;

while not eof(f) do

begin

new(n);

read(f,buf);

n^.l:=nil;

n^.r:=top;

if t<>nil then t^.l:=n;

n^.pp.ncb:=ncb; n^.pp.fio:=fio;

n^.pp.data:=data; n^.pp.ost:=ost;

t:=top;

top:=n;

end;

t:=top;

p:=nil;

while t<>nil do

begin

if p<>nil then

begin

if p^.pp.ncb<t^.pp.ncb then

begin

p^.r:=t^.r;

pa:=t^.r;

pa^.l:=p;

t^.r:=top;

t^.l:=nil;

top^.l:=t;

top:=t;

end;

end;

p:=t;

t:=t^.r;

end;

t:=top;

begin

t:=t^.r;

vmenu:=1; end; vmenu:=-1;

readln;

clrscr;

end;

procedure main (x,y:integer; s:string; select:integer);

var

colorbg:integer;

begin

gotoxy (x,y);

if select=1 then colorbg:=7

else colorbg:=10;

textcolor (1);

textbackground (colorbg);

writeln (s);

end;

procedure clear (c:integer);

begin

textbackground (0);

clrscr;

end;

begin

clear(0);

menu[1]:=' Счёт ';

menu[2]:=' Состояние вклада ';

menu[3]:=' Операции с вкладом ';

menu[4]:=' Выход ';

menu[5]:=' Открыть новый счёт ';

menu[6]:=' Ликвидировать счёт ';

menu[7]:=' Остаток ';

menu[8]:=' Состояние счёта ';

menu[9]:=' Выплатить ';

menu[10]:=' Внести ';

gmenu:=1;

repeat

gotoxy(1,1);

textcolor(11);

textbackground(13);

write(' `ЎҐаҐЈ вҐ«м­ п Є­Ё¦Є ');

gotoxy(1,2);

textbackground(7);

write(' ');

repeat

if gmenu=1 then begin

main (1,2,menu[1],0);

main (22,2,menu[2],1);

main (42,2,menu[3],1);

main (63,2,menu[4],1);

end;

if gmenu=2 then begin

main (1,2,menu[1],1);

main (22,2,menu[2],0);

main (42,2,menu[3],1);

main (63,2,menu[4],1);

end;

if gmenu=3 then begin

main (1,2,menu[1],1);

main (22,2,menu[2],1);

main (42,2,menu[3],0);

main (63,2,menu[4],1);

end;

if gmenu=4 then begin

main (1,2,menu[1],1);

main (22,2,menu[2],1);

main (42,2,menu[3],1);

main (63,2,menu[4],0);

end;

key:=Readkey;

case key of

#77: begin

gmenu:=gmenu+1;

if gmenu>4 then gmenu:=1;

end;

#75: begin

gmenu:=gmenu-1;

if gmenu<1 then gmenu:=4;

end;

end;

until key=#13;

case gmenu of

1 : begin

vmenu:=1;

repeat

if vmenu=1 then

begin

main (1,3,menu[5],0);

main (1,4,menu[6],1);

end;

if vmenu=2 then

begin

main (1,3,menu[5],1);

main (1,4,menu[6],0);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>2 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=2;

end;

#27:begin clear(0);vmenu:=-1;

end;

#13:begin clear(0);

end;

end;

until (key=#13) or (key=#27);

end;

2: begin

vmenu:=1;

repeat

if vmenu=1 then

begin

main (22,3,menu[7],0);

main (22,4,menu[8],1);

end;

if vmenu=2 then begin

main (22,3,menu[7],1);

main (22,4,menu[8],0);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>2 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=2;

end;

#27 :begin clear(0); vmenu:=-1;

end;

#13:begin clear(0);

end;

end;

until (key=#13) or (key=#27);

end;

3 : Begin

vmenu:=1;

repeat

if vmenu=1 then begin

main (42,3,menu[9],0);

main (42,4,menu[10],1);

end;

if vmenu=2 then begin

main (42,3,menu[9],1);

main (42,4,menu[10],0);

end;

key:=Readkey;

case key of

#80 :begin vmenu:=vmenu+1;

if vmenu>2 then vmenu:=1;

end;

#72 :begin vmenu:=vmenu-1;

if vmenu<1 then vmenu:=2;

end;

#27 :begin clear(0); vmenu:=-1;

end;

#13:begin clear(0);

end;

end;

until (key=#13) or (key=#27);

end;

end;

case gmenu of

1: case vmenu of

1:otkritiascheta;

2:likvidaciischeta;

end;

2: case vmenu of

1:ostatok;

2:sost;

end;

3: case vmenu of

1:viplata;

2:vnesenie;

end;

4: begin exit end;

end;

until vmenu>-1;

end.

Приложение 2. Структура баз данных

База данных:

Номер сберегательной книжки	1	2	3	4
Фамилия Имя Отчество	Иванов Иван Иванович	Петров Пётр Петрович	Сидоров Сидр Сидорович	Алексеев Алексей Алексеевич
Домашний адрес	Люберцы	Волгоград	Тольятти	Тольятти
Сегодняшняя дата	11.12.02	10.05.02	30.12.02	14.10.02
Внесённая сумма	4500	5100	20000	30000

Приложение 3. Распечатка решения задачи по данным контрольного примера

Вывод - Открытие счёта:

Номер сберегательной книжки - 1

Фамилия имя отчество - Иванов Иван Иванов

Домашний адрес - Люберцы

Сегодняшняя дата - 11.12.02

Внесённая сумма - 4500

Номер сберегательной книжки - 2

Фамилия имя отчество - Петров Пётр Петрович

Домашний адрес - Волгоград

Сегодняшняя дата - 10.05.02

Внесённая сумма - 5100

Номер сберегательной книжки - 3

Фамилия имя отчество - Сидоров Сидр Сидорович

Домашний адрес - Тольятти

Сегодняшняя дата - 30.12.02

Внесённая сумма - 20000

Номер сберегательной книжки - 4

Фамилия имя отчество - Алексеев Алексей Алексеевич

Домашний адрес - Тольятти

Сегодняшняя дата - 14.10.02

Внесённая сумма - 30000

Вывод Остаток

Номер сберегательной книжки - 1

Остаток на вашем счету - 4500

Номер сберегательной книжки - 2

Остаток на вашем счету - 5100

Номер сберегательной книжки - 3

Остаток на вашем счету - 20000

Номер сберегательной книжки - 4

Остаток на вашем счету - 30000

Вывод Внести

Введите Фамилия имя отчество - Петров Пётр Петрович

Введите сумму, которую хотите положить на счёт - 5000

Вы уверены, что сумма уже внесена клиентом?

Введите Фамилия имя отчество - Алексеев Алексей Алексеевич

Введите сумму, которую хотите положить на счёт - 15000

Вы уверены, что сумма уже внесена клиентом?

Вывод Выплатить

Введите ФИО - Иванов Иван Иванович

Введите сумму, снимаемую со счёта - 4500

Введите причину съёма - Покупка автомобиля

Вы уверены, что сумма уже выплачена клиенту?

Введите ФИО - Сидоров Сидр Сидорович

Введите сумму, снимаемую со счёта - 10000

Введите причину съёма - покупка квартиры

Вы уверены, что сумма уже выплачена клиенту?

Вывод Ликвидация счёта

Введите номер ликвидируемого счёта - 1

Счёт ликвидирован

Вывод Состояние счёта

Введите Фамилия имя отчество клиента Петров Пётр Петрович

Фамилия имя отчество - Петров Пётр Петрович

остаток - 10100

дата взноса - 10.05.02

Внесённая сумма - 10000

Введите Фамилия имя отчество клиента Сидоров Сидр Сидорович

Фамилия имя отчество - Сидоров Сидр Сидорович

остаток - 10000

дата взноса - 30.12.02

Внесённая сумма - 20000

Введите Фамилия имя отчество клиента Алексеев Алексей Алексеевич

Фамилия имя отчество - Алексеев Алексей Алексеевич

остаток - 45000

дата взноса - 14.10.02

Внесённая сумма - 30000

Изменённые базы данных:

Внести сумму на сберкнижку № 2 и 4.

Номер сберегательной книжки	1	2	3	4
Фамилия Имя Отчество	Иванов Иван Иванович	Петров Пётр Петрович	Сидоров Сидр Сидорович	Алексеев Алексей Алексеевич
Домашний адрес	Люберцы	Волгоград	Тольятти	Тольятти
Дата	11.12.02	10.05.02	30.12.02	14.10.02
Внесённая сумма	4500	5100	20000	30000
Остаток	4500	10100	20000	45000

Выплатить сумму клиенту, с номером сберкнижки №1 и 3.

Номер сберегательной книжки	1	2	3	4
Фамилия Имя Отчество	Иванов Иван Иванович	Петров Пётр Петрович	Сидоров Сидр Сидорович	Алексеев Алексей Алексеевич
Домашний адрес	Люберцы	Волгоград	Тольятти	Тольятти
Дата	11.12.02	10.05.02	30.12.02	14.10.02
Внесённая сумма	4500	5100	20000	30000
Остаток	0	10100	10000	45000

Номер счета 1 - Ликвидировать

Номер сберегательной книжки	2	3	4
Фамилия Имя Отчество	Петров Пётр Петрович	Сидоров Сидр Сидорович	Алексеев Алексей Алексеевич
Домашний адрес	Волгоград	Тольятти	Тольятти
Дата	10.05.02	30.12.02	14.10.02
Внесённая сумма	5100	20000	30000
Остаток	10100	10000	45000