Министерство образования Республики Казахстан

Костанайский гуманитарный колледж

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

На тему: Создание телефонной книги

Выполнил: Умаров Т.К.

Проверила: Сарбасова А.Ж

Костанай 2009

Содержание:

Введение

График выполнения курсового проекта

1. Общая часть

1.1 Обзор элементов языка программирования

2. Специальная часть

2.1 Общая постановка задачи

2.2 Описание программ комплекса

2.3 Таблица идентификаторов комплекса

2.4 Структура записей файлов

2.5 Постановка проблемной программы

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

4. Блок-схема проблемной программы

5. Организация производства

5.1 Комплекс технических средств необходимых для решения задачи

5.2 Инструкция пользователя по работе с программой

Заключение

Литература

Приложение

Введение

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

График выполнения курсового проекта

Наименование работы.	Дата выполнения.
Выдача заданий на курсовое проектирование. Требование к оформлению проекта.	24.11
Обзор элементов языка программирования.	25.11
Общая постановка задачи, выбор метода решения.	27.11
Составление макро - блок схемы комплекса. Таблица идентификаторов.	29.11
Описание набора данных.	1.12
Создание заставки программы.	2.12
Отладка процедуры заставки.	4.12
Описание основных переменных.	6.12
Организация ввода данных.	8.12
Отладка процедуры ввода данных.	9.12
Разработка проблемной процедуры.	11.12
Исправление ошибок проблемной процедуры.	13.12
Отладка проблемной процедуры на контрольном примере.	18.12
Описание и блок - схема проблемной процедуры.	20.12
Структура записей файлов.	22.12
Организация вывода данных.	22.12
Исправление ошибок вывода данных.	23.12
Оформление обзора элементов языка программирования в Word-е.	24.12
Комплекс технических средств необходимых для решения задачи.	25.12
Оформление специальной части курсового проекта.	26.12
Описание комплекса технических средств и инструкция пользователя по работе с программой.	27.12
инструкция пользователя по работе с программой.	27.12
Оформление приложений.	28.12
Защита.	29.12

1. Общая часть

1.1 Обзор элементов языка программирования

Файл - это последовательность компонент являющихся объектами одного и того же типа. Количество компонент в файле заранее не оговаривается .Компоненты файлов не имеют индексов.

Файлы делятся на 3 вида: типизированный, не типизированный, текстовый.

Текстовый файл.

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

Возвращаться к только что прочитанным или записанным данным нельзя(для этого нужно закрыть файл и начать с ним работать заново).

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

Процедуры и функции для работы с текстовыми файлами.

Процедура Assign

Предназначена для организации связи между файловой переменной и внешним файлом.

Процедура Reset

Открывает файл для чтения

Процедура Rewrite

Открывает файл, определенной файловой переменной, для записи.

Процедура Read

Считывает информацию с файла в строку.

Процедура Readln

Считывает информацию построчно.

Процедура Write

Записывает информацию в файл.

Процедура Writeln

Функция Eof

Функция проверки достижения конца файла

Процедура Close

Закрытие файлов

Процедура и функция - это именованная последовательность описаний и операторов. При использовании процедур или функций ПАСКАЛЬ - программа должна содержать текст процедуры или функции и обращение к процедуре или функции. Тексты процедур и функций помещаются в раздел описаний процедур и функций. Процедура может содержать разделы описаний: разделы описания модулей, меток, констант, типов, переменных, процедур и функций.

Условный оператор:

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

IF <УСЛОВИЕ> THEN <оператор_1> elese <оператор_2>;

Вначале вычисляется условное выражение <условие>. Если результат есть TRUE, то выполняется <оператор_1>, а <оператор_2> пропускается; если результат есть FALSE, наоборот, <оператор_1> пропускается, а выполняется <оператор_2>.

FOR цикл с парметром:

FOR <пар_цик> := <нач_знач> to <конеч_знач> do <оператор>

<пар_цик> - параметр цикла

<нач_знач> - начальное значение

<конеч_знач> - конечное значение

<оператор> - произвольный оператор Турбо Паскаля.

При выполнении оператора FOR вначале вычисляется выражение <нач_знач> и осуществляется присваивание <пар_цик>:= <нач_знач>.

После этого цикл повторяется:

Проверка условия <пар_цик> <= <конеч_знач>, если условие не выполнено оператор FOR завершает свою работу;

Выполнение оператора <оператор>;

Наращивание переменной <пар_цик> на единицу.

WHILE цикл с предусловия:

WHILE <условие> DO <оператор>.

<условие> - выражение логического типа;

<оператор> - произвольный оператор Турбо Паскаля

Если выражение <условие> имеет значение TRUE, то выполняется оператор, после чего вычисление выражения <условие> и его проверка повторяются. Если <условие> имеет значение FALSE, оператор WHILE прекращает работу.

REPEAT…UNTIL цикл с постусловием:

REPEAT <тело цикла> UNTIL <условие>.

<тело цикла> - произвольная последовательность операторов Турбо Паскаля.

<условие> - выражение логического типа.

Операторы <тело цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение FALSE, операторы <тело цикла> повторяются, в противном случае оператор REPEAT…UNTIL завершает свою работу.

Оператор выбора

CASE <ключ_выбора> OF <список выбора> [else <операторы>] END

<ключ_выбора> - ключ выбора;

<список_выбора> - одна или более конструкций вида;

<операторы> - произвольные операторы ТП.

Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности операторов <список_выбора> отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора н будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за словом else. Часть else <оператор> можно опускать. Тогда при отсутствии в списке выбора нужной константы ничего не произойдет и оператор выбора просто завершит свою работу.

Метки и операторы перехода.

GOTO <метка>.

<метка> - метка

Метка - это произвольный идентификатор, позволяющий именовать некоторый оператор программы и таким образом ссылаться на него. Описание меток состоит из зарезервированного слова LABEL, за которым следует список меток.

Важнейшей особенностью языка Turbo Pascal является иерархическая структура программ, которая возможна благодаря наличию процедур и функций. Процедуры и функции позволяют разделить логику программы на более мелкие и управляемые фрагменты и аналогичны подпрограммам в других языках. Как и в основном блоке программы, все действия в процедурах и функциях заключаются в begin и end.

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

Процедура:

Procedure <имя> (список формальных параметров);

Begin <тело процедуры> End;

Функция:

Function <имя>(список формальных параметров>:тип функции;

Begin <тело функции> end;

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

Запись - это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. В отличии от массива, компоненты (поля) записи могут быть различного типа. Чтобы можно было ссылаться на тот или иной компонент записи, поля именуются.

Структура объявления типа записи:

<имя типа> = RECORD <сп.полей> END

<имя типа> - идентификатор;

<сп. полей> - список полей; представляет собой последовательность разделов записи, между которыми ставится точка с запятой. Каждый раздел записи состоит из одного или нескольких идентификаторов полей, отделяемых друг от друга запятыми. За идентификатором (идентификаторами) ставится двоеточие и описание типа поля (полей).

Файлы. Под файлом понимается либо именованная область внешней памяти ПК либо логического устройства. Любой файл имеет три характерные особенности. Во-первых, у него есть имя, что дает возможность программе работать одновременно с несколькими файлами. Во-вторых, он содержит компоненты одного типа. В-третьих, длина вновь создаваемого файла никак не оговаривается при его объявлении.

<имя> = FILE OF <тип>;

<имя> = TEXT;

<имя> = FILE;

<имя> - имя файлового типа;

TEXT - имя стандартного типа текстовых файлов;

<тип> - любой тип ТП, кроме файлов.

В зависимости от способа объявления можно выделить три вида файлов:

Типизированные файлы (file of…);

Текстовые файлы (определяются типом TEXT);

Не типизированные файлы (определяются типом FILE).

2. Специальная часть

2.1 Общая постановка задачи

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

2.2 Описание программ комплекса

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

1.Модули:

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

2. Процедуры:

· Процедура titulnik- выводит титульный лист на экран

· Процедура menu - отображает главное меню

· Процедура find- поиск по Ф.И.О

· Процедура find1 - поиск по телефону

· Процедура find1 - поиск по адресу

· Процедура del - удаление по Ф.И.О

· Процедура del1 - удаление по телефону

· Процедура del2 - удаление по адресу

· Процедура Edit - редактирование по Ф.И.О

· Процедура Edit1 - редактирование по телефону

· Процедура Edit2 - редактирование по адресу

· Процедура Dobav - добавление данных

· Процедура prosmotr - просмотр данных

· Процедура ob_avtore - просмотр информации об авторе

3. Файлы:

· 1.txt - в этом файле хранятся данные об абонентах

· 2.txt - с этого файла считываются данные об абонентах

· Telespraw - в этом файле хранятся данные

2.3 Таблица идентификаторов комплекса

Имя переменной	Тип переменной	Назначение переменной
telsprw	Record	Запись
Fio	string	Записывает в файл Ф.И.О
Adres	String	Записывает в файл адрес
Tel	String	Записывает в файл телефон
Z	Integer	Значения главного меню
X	Integer	Вспомогательные переменные
Y	Integer	Вспомогательные переменные
C	Char	Значение нажатой клавиши пользователя
A1	Array	Массив записи меню
B1	Array	Массив записи меню
F	File of telspraw	Файл данных хранящий справочник
S	Telspraw	Файл данных хранящий данные
K	Integer	Второстепенное меню
I	Integer	Счетчик

2.4 Структура записей файлов

2.5 Постановка проблемной процедуры

begin

titulnik;

a1[1]:='Начало';

a1[2]:='Информация об Авторе';

a1[3]:='Выход';

b1[1]:='Поиск по Ф.И.О';

b1[2]:='Поиск по телеыону';

b1[3]:='Поиск по адрессу';

b1[4]:='Удаление по Ф.И.О';

b1[5]:='Удаление по телефону';

b1[6]:='Удаление по адрессу';

b1[7]:='Редактированние Ф.И.О';

b1[8]:='Редактирование по телефону';

b1[9]:='Редактирование по адрессу';

b1[10]:='Добавление данных';

b1[11]:='Просмотр содержимого';

b1[12]:='Назад';

repeat

menu(30,10,3,a1,z);

if z=2 then ob_avtore;

if z=3 then exit;

if z=1 then begin menu(30,5,12,b1,k);

if k=1 then find;

if k=2 then find1;

if k=3 then find2;

if k=4 then del;

if k=5 then del1;

if k=6 then del2;

if k=7 then edit;

if k=8 then edit1;

if k=9 then edit2;

if k=10 then dobav;

if k=11 then prosmotr;

end;

3. Описание проблемной процедуры

begin (начало)

titulnik; (открывает титульный лист)

a1[1]:='Начало';

a1[2]:='Информация об Авторе';

a1[3]:='Выход';

b1[1]:='Поиск по Ф.И.О';

b1[2]:='Поиск по телеыону';

b1[3]:='Поиск по адрессу';

b1[4]:='Удаление по Ф.И.О';

b1[5]:='Удаление по телефону';

b1[6]:='Удаление по адрессу';

b1[7]:='Редактированние Ф.И.О';

b1[8]:='Редактирование по телефону';

b1[9]:='Редактирование по адрессу';

b1[10]:='Добавление данных';

b1[11]:='Просмотр содержимого';

b1[12]:='Назад';

repeat(повторяет)

menu(30,10,3,a1,z);(координаты меню)

if z=2 then ob_avtore;(вторая строчка меню которая нам показывает информацию об авторе)

if z=3 then exit;(третья строчка меню которая нам позволяет выйти из программы)

if z=1 then begin menu(30,5,12,b1,k);(открывает второстепенное меню)

if k=1 then find;(выполняет поиск по Ф.И.О)

if k=2 then find1;(выполняет поиск по телефону)

if k=3 then find2;(выполняет поиск по адресу)

if k=4 then del;(выполняет удаление по Ф.И.О)

if k=5 then del1; (выполняет удаление по телефону)

if k=6 then del2;(выполняет удаление по адресу)

if k=7 then edit; (выполняет редактирование по Ф.И.О)

if k=8 then edit1;(выполняет редактирование телефону)

if k=9 then edit2; (выполняет редактирование по адресу)

if k=10 then dobav;(выполняет добавление данных)

if k=11 then prosmotr; end; (выполняет просмотр данных)

4. Блок - схема проблемной программы

5. Организация производства

5.1 Комплекс технических средств, необходимый для решения задачи

Минимальные системные требования:

· Операционная система Windows 98 - XP.

· Pentium II; 128 Мб Памяти; 64 Мб видео.

· Программа Turbo Pascal.

Рекомендуемые системные требования:

· Операционная система Windows 98-XP;

· Pentium 4; 256 Мб Памяти; 128 Мб видео;

· Программа Turbo Pascal.

5.2 Инструкция пользователя по работе с программой

Чтобы скачать задачу с дискеты на ПК:

1) Вставить диск в привод CD-ROM;

2) Двойным щелчком открыть папку Bin

3) Открыть файл курсовая телефонный справочник.EXE

При открытие появиться меню которое состоит из 3 пунктов:

1-Начало выполнят переход к второстепенному меню которое состоит из 12 пунктов.

2-Информация об авторе.

3-Выход.

Заключение

Мы научились применять процедуры поиска, редактирования, удаления, добавления и просмотра и работать с файлами.

При написании данной программы были применены в основном процедуры.

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

Литература

1. Абрамов В.Г., Трифонов Н.П. Введение в язык Паскаль. - М. :Наука, 1988.-320 с.

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

3. Бутомо И.Д., Самочадин А.В., Усанова Д.В. Программирование на алгоритмическом языке Паскаль. - Л.: Издательство Ленинградского университета, 1985. - 216 с.

4. В.В. Липаев «Проектирование программных средств»: Учеб. пособие. М. «Высшая школа» 1990г.

5. Грэхем Р. Практический курс языка Паскаль. - М.: Радио и связь. 1986 - 200 с.

6. Е.И. Машбиц, И.А. Белоголов и др. ; Под общ. ред. А.А. Стогния «Обработка данных с помощью компьютера» : Учеб. пособие.

7. Йенсен К., Вирт Н. Руководство для пользователя и описание языка. - М., 1982. 151 с.

8. Методические указания и пакет заданий к выполнению лабораторного практикума и контролируемой самостоятельной работе по дисциплине «Основы алгоритмизации и алгоритмические языки» для студентов специальности 07. 15. - Днепропетровск : ДМетИ, 1990.

9. Пильщиков В.Н. Сборник упражнений по языку Паскаль. - М.: Наука, 1989. - 160 с.

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

Приложение

uses crt;

type telspraw=record

fio:string[50];

adres:string[50];

tel:string[50];

end;

var m,z,x,y: integer;

c: char;

a1: array [0..20] of string;

b1: array [0..20] of string;

f: file of telspraw;

s: telspraw;

k,i:integer;

procedure titulnik;

begin

clrscr;

textcolor (2);

gotoxy(14,1);write('Министерство науки и оброзования Республики Казахстан');

gotoxy(16,2);write('Костанайский Колледж Автомобильного Транспорта');

textcolor(2);

gotoxy(29,9);write('Курсовой проект по предмету');

gotoxy(20,10);write('Основы Алгоритмизации и програмирования на тему');

gotoxy(24,11);write('База данных: Телефонный Справочник');

textcolor(2);

gotoxy(55,18);write('Выполнил:Скакун Сергей');

gotoxy(55,19);write('Проверил:Левченко О.В');

textcolor(2);

gotoxy(30,23);write('Костанай 2008');

readln ;

end;

procedure menu(x,y,n:integer; a:array of string;var k: integer);

var i:integer;

c:char;

begin

textbackground(0);

clrscr;

textcolor(10);

textbackground(0);

for i:=1 to n do

begin

gotoxy(x,y+i);

write(a[i]);

end;

k:=1;

textbackground(13);

gotoxy(x,y+k);

write(a[k]);

repeat

c:=readkey;

textbackground(0);

gotoxy(x,y+k);

write(a[k]);

if c=#80 then k:=k+1;

if k>n then k:=1;

if c=#72 then k:=k-1;

if k<1 then k:=n;

textbackground(13);

gotoxy(x,y+k);

write(a[k]);

until c=#13

end;

procedure find;{procedura poiska po fio}

var a: string[30];

begin

clrscr;

writeln('Введите Ф.И.О');

readln(a);

assign(f,'1.txt');

reset(f);

while not (eof(f)) do

begin

read(f,s);

if s.fio=a then writeln(s.fio,' ',s.tel,' ',s.adres);

end;

close(f);

end;

procedure find1;{procedura poiska telefonu}

var a: string[30];

begin

clrscr;

writeln('Введите тел');

readln(a);

assign(f,'1.txt');

reset(f);

while not (eof(f)) do

begin

read(f,s);

if s.tel=a then writeln(s.tel,' ',s.adres,'',s.fio);

end;

close(f);

end;

procedure find2;{procedura poiska po adressu}

var a: string[30];

begin

clrscr;

writeln('Введите адресс');

readln(a);

assign(f,'1.txt');

reset(f);

while not (eof(f)) do

begin

read(f,s);

if s.adres=a then writeln (s.tel,' ',s.adres,' ',s.fio); end;

close(f);

end;

procedure del;{procedura udalenia po fio}

var a:string[30];

p:integer;

f1:file of telspraw;

begin

clrscr;

writeln('Введите Ф.И.О');

readln(a);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.fio<>a then write(f1,s)

{ else begin writeln('Zapis udalena - '); readln(s.fio) end; }

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure del1;{procedura udalenia po tel}

var a:string[30]; f1:file of telspraw;

begin

clrscr;

writeln('Введите телефон');

readln(a);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.tel<>a then write(f1,s);

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure del2;{procedura udalenia po adresu}

var a:string[30]; f1:file of telspraw;

begin

clrscr;

writeln('Введите адрес');

readln(a);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.adres<>a then write(f1,s);

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure edit;{procedura redaktirovania po fio}

var a,b:string[30]; f1:file of telspraw;

begin

clrscr;

writeln('Введите Ф.И.О');

readln(a);

writeln('Введите новое Ф.И.О');

readln(b);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.fio<>a then write(f1,s) else begin s.fio:=b; write(f1,s); end;

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure edit1;{procedura redaktirovania po telefonu}

var a,b:string[30]; f1:file of telspraw;

begin

clrscr;

writeln('Введите телефон');

readln(a);

writeln('Введите новый телефон');

readln(b);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.tel<>a then write(f1,s) else begin s.tel:=b; write(f1,s); end;

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure edit2;{procedura redaktirovania po adresu}

var a,b:string[30]; f1:file of telspraw;

begin

clrscr;

writeln('Введите адрес');

readln(a);

writeln('Введите новый адрес');

readln(b);

assign(f,'1.txt'); reset(f);

assign(f1,'2.txt'); rewrite(f1);

while not (eof(f)) do

begin

read(f,s);

if s.adres<>a then write(f1,s) else begin s.adres:=b; write(f1,s); end;

end;

close(f); close(f1);

erase(f);

rename(f1,'1.txt');

assign(f,'1.txt');

end;

procedure dobav;{dobavlenie dannyh}

Begin

clrscr;

assign(f,'1.txt');

reset(f);

seek(f,filesize(f));

write('Введите Ф.И.О ');

readln(s.fio);

write('Введите телефон ');

readln(s.tel);

write('Введите адресс ');

readln(s.adres);

write(f,s);

writeln;

writeln('Запись добавленна');

writeln;

close(f);

end;

procedure prosmotr;{prosmotr telesonogo spravo4nica}

Begin

textbackground(0);

clrscr;

assign(f,'1.txt');

reset(f);

writeln('| Фамилия Имя Отчество | Телефон | Адресс | ');

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

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

writeln('| | | | ');

i:=4;

while not (eof(f)) do

begin

read(f,s);

gotoxy(2,i); write(s.fio);

gotoxy(40,i); write(s.tel);

gotoxy(51,i); write(s.adres);

i:=i+1;

end;

close(f);

end;

procedure ob_avtore;

begin

clrscr;

gotoxy(50,100);

writeln('Программа разработана в городе Костанай');

writeln('Костанайском Колледже Автомобильного Транспортa');

writeln('учащемся группы: 3ПР-7 Скакун Сергей');

end;

begin

titulnik;

a1[1]:='Начало';

a1[2]:='Информация об Авторе';

a1[3]:='Выход';

b1[1]:='Поиск по Ф.И.О';

b1[2]:='Поиск по телеыону';

b1[3]:='Поиск по адрессу';

b1[4]:='Удаление по Ф.И.О';

b1[5]:='Удаление по телефону';

b1[6]:='Удаление по адрессу';

b1[7]:='Редактированние Ф.И.О';

b1[8]:='Редактирование по телефону';

b1[9]:='Редактирование по адрессу';

b1[10]:='Добавление данных';

b1[11]:='Просмотр содержимого';

b1[12]:='Назад';

repeat

menu(30,10,3,a1,z);

if z=2 then ob_avtore;

if z=3 then exit;

if z=1 then begin menu(30,5,12,b1,k);

if k=1 then find;

if k=2 then find1;

if k=3 then find2;

if k=4 then del;

if k=5 then del1;

if k=6 then del2;

if k=7 then edit;

if k=8 then edit1;

if k=9 then edit2;

if k=10 then dobav;

if k=11 then prosmotr;

end;

readkey;

until false;

end.