Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Контрольная работа: Создание электронной записной книжки

Название: Создание электронной записной книжки
Раздел: Рефераты по информатике, программированию
Тип: контрольная работа Добавлен 06:47:01 16 сентября 2010 Похожие работы
Просмотров: 57 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Оглавление

1. Описание типов. Процедуры

2. Тело программы

2.1 Создание приветствия

2.2 Редактирование записи

2.3 Вывод текущей записи. Создание команды для вызова справки.

2.4 Вывод определенных полей. Закрытие программы.

2.5 Завершение программы. Принцип работы

Список литературы

Приложение

1. Описание типов. Процедуры

Описание типов начнем с типа «запись»: присвоим ей имя «TSt». Далее опишем компоненты (поля) записи. В данной программе используется 3 поля записи с названиями: Name, Group, Subject и Mark. Они определяют соответствующие поля записной книжки, которые заполняются пользователем. В данной программе необходимо будет использовать и массив, который также определяем в типах.

type TSt=record

Name: string[13];

Group: string[13];

Subject:string[13];

Mark:string[13];

end;

TASt=array[1..10] of TSt;

Далее перейдем к составлению процедур, которые будут использоваться в программе. Нам понадобятся процедура для интерактивного ввода данных в вышеописанные поля и процедура, которая выводит уже заполненные поля на экран.

Процедура по вводу данных с именем «WriteSt» будет выглядеть следующим образом:

procedure WriteSt(var A:TSt);

begin

write('group: ');

readln(A.Group);

write('Name: ');

readln(A.Name);

write('Subject: ');

readln(A.Subject);

write('Mark: ');

readln(A.Mark);

writeln;

end;

Соответственно, процедура «OutputSt», отвечающая за вывод данных на экран, будет выглядеть:

procedure OutputSt(A:TSt);

begin

writeln('Group: ',A.Group);

writeln('Name: ',A.Name);

write('Subject: ',A.Subject);

write(':');

writeln(A.Mark,' ballov');

end;

Необходимые в дальнейшем типы определены, процедуры заданы. Далее рассмотрим непосредственно тело программы.

2.Тело программы

Перед написанием самого тела программы, определим, какие переменные потребуются для дальнейшей работы. Для реализации программы зададим массив «B», строчную переменную «a» и целочисленный параметр «p». Массив необходим для сохранения записей под номерами, определяемые параметром «p», а строчная переменная «a» определяет ввод команд при выполнении программы.

var B:TASt;

a:string;p:integer;

2.1 Создание приветствия

Для того чтобы пользователь, незнакомый с данной программой, мог в ней ориентироваться, создадим приветствие, в котором обозначим:

1) название программы;

2) имя создателя;

3) доступные команды.

Это будет выглядеть следующим образом:

writeln('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');

writeln;

writeln('Command "new"-redaktirovanie zapisi,"w"-vyvod tekuschey zapisi, "<cifra>"-vvod nomera zapisi,"help"-vyzov spravki, "all"-pokazat’ vse zapisi, "name"-pokazat’ imena, "group"-pokazat’ nomera grupp, "mark"-pokazat’ ocenki, "sub"-pokazat’ predmety, "q"-vyhod');

Создание приветствия окончено.

2.2 Редактирование записи

После написания приветствия зададим цикл, внутри которого будут задаваться основные команды: выбор записи, её редактирование, вывод записи с определенным номером, вывод одного конкретного поля, вывод всех заполненных полей.

Данная программа рассчитана на 10 записей. Задание номера записи будет осуществляться следующим образом:

if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')

or (a='9') or (a='10') then

begin

p:=strtoint(a);

writeln('current record ',p);

end;

После ввода номера записи зададим команду «new» редактирования текущей записи. Для этого зададим условие, внутри которого будем использовать процедуру интерактивного ввода данных.

if a='new' then

if (p>0) and (p<11) then

begin

WriteSt(B[p]);

writeln('zapis ',p,' sohranena');

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

Таким образом мы вносим все изменения в элементы массива B, состоящего из 10 элементов, к которым мы сможем в последствии обращаться.

2.3 Вывод текущей записи. Создание команды для вызова справки

Выше мы задали процедуру для вывода данных. Составим условие, которое будет определять вывод текущей записи: параметру «a» должно быть присвоено значение «out» (это и будет командой вывода), а параметр «p» должен быть равен целому числу от 1 и до 10 включительно. Таким образом, вывод элемента массива «B» (текущей записи блокнота) будет выглядеть следующим образом:

if a='out' then

if (p>0) and (p<11) then

begin

OutputSt(B[p]);

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

Для просмотра доступных команд пользователем, создадим команду «help». Вывод справки осуществим с помощью обычного отображения текста:

if a='help' then

write ('command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi,"<cifra>"-vvod nomera zapisi, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');

2.4 Вывод определенных полей. Закрытие программы

Для расширения возможностей данной программы, создадим команды по выводу определенных полей. Но при этом учтем, чтобы незаполненные поля в каких-либо записях не выводились. Это легко осуществить, задав цикл, при котором будут анализироваться все заданные поля элементов массива «B» и условия, которое будет определять наличие информации в данном поле. Поскольку запись «TSt» состоит из 4-х полей, необходимо задать 4 условия для параметра «a», которые и будут определять команды вывода. Ихвидуказанниже:

if a='name' then

begin

for p:=1 to 10 do

begin

if B[p].Name<>'' then

writeln('zapis ',p,' ',B[p].Name);

end;

end;

if a='group' then

begin

for p:=1 to 10 do

begin

if B[p].Group<>'' then

writeln('zapis ',p,' ',B[p].Group);

end;

end;

if a='mark' then

begin

for p:=1 to 10 do

begin

if B[p].Mark<>'' then

writeln('zapis ',p,' ',B[p].Mark);

end;

end;

if a='sub' then

begin

for p:=1 to 10 do

begin

if B[p].Subject<>'' then

writeln('zapis ',p,' ',B[p].Subject);

end;

end;

Наконец осталось реализовать задачу по выводу всех заполненных полей записей в виде небольшой таблицы. Для равенства ячеек ограничим количество символов в полях до 13, используя «setlength». Тогда за вывод полей будет отвечать следующий отрывок программы:

if a =' all ' then

begin

writeln('Zapis ','Group ','Name ','Subject ','Mark ');

for p:=1 to 10 do

begin

setlength(B[p].Subject,13);setlength(B[p].Mark,13);setlength(B[p].Group,13);setlength(B[p].Name,13);

if (B[p].Subject<>'') or (B[p].Mark<>'') or (B[p].Group<>'') or (B[p].Name<>'') then

writeln('Zapis ',p,' ',B[p].Group,B[p].Name,B[p].Subject,B[p].Mark);

end;

end;

2.5 Завершение программы. Принцип работы

В пункте 2.2 мы задали цикл «repeatuntil». Чтобы выйти из программы достаточно задать параметру «a» команду, определяющую, до каких пор должен выполняться цикл:


repeat

<…>

until a =' q ';

После этого с помощью «writeln» выведем на экран надпись (программа «прощается» с пользователем). Чтобы пользователь успел её прочитать, добавим «readln». Тогда выход будет осуществляться после нажатия клавиши «Enter».

writeln('Chto zh vy nadelali...');

readln;

end.

После запуска программа работает следующим образом:

1) на экран выводится приветствие, в котором выводится название программы, имя создателя и список команд;

2) вводится номер записи. При этом пользователь видит появившеюся надпись «current record <№ записи>»;

3) после ввода команды «new» пользователю открывается возможность поочередного заполнения полей записи. Если номер записи не выбран, то на экран выводится сообщение «choose the record». После окончания редактирования текущей записи, появляется сообщение «Vvedite novuyu komandu»;

4) для просмотра какой-либо записи, необходимо ввести номер этой записи и команду «out», после чего информация об этой записи будет выведена на экран;

5) если необходимо просмотреть определенные поля (заполненные) существующих записей, вводится одна из команд: «name» (выводит поля с именем «Name»), «group» (выводит поля с именем «Group»), «mark» (выводит поля с именем «Mark»), «sub» (выводит поля с именем «Subject»);

6) просмотр все существующих записей осуществляется командой «all». В этом случае в виде таблицы выводится все заполненные поля с указанием номера записи, к которой они относятся;

7) чтобы просмотреть доступные команды, достаточно ввести «help»;

8) завершение работы с программой производится с помощью команды «q».[1]

Список литературы

1. Амелина Н. Задачи по программированию. – М .: Вузовская книга, 2000. – 104 с.

2. Хомоненко А. Delphi 7. – СПб.: БХВ-Петербург, 2007. – 1200 с.

3. Бобровский С. Delphi 7: Учебный курс. – СПб.: Питер, 2006. – 735 с.

Приложение

program notebook;

uses

SysUtils;

type TSt=record

Name: string[13];

Group: string[13];

Subject:string[13];

Mark:string[13];

end;

TASt=array[1..10] of TSt;

procedure InputSt(var A:TSt;n:string;g:string;m:string;s:string);

begin

A.Subject:=s;

A.Group:=g;

A.Name:=n;

A.Mark:=m;

end;

procedure OutputSt(A:TSt);

begin

writeln('Group: ',A.Group);

writeln('Name: ',A.Name);

write('Subject: ',A.Subject);

write(':');

writeln(A.Mark,' ballov');

end;

procedure WriteSt(var A:TSt);

begin

write('group: ');

readln(A.Group);

write('Name: ');

readln(A.Name);

write('Subject: ');

readln(A.Subject);

write('Mark: ');

readln(A.Mark);

writeln;

end;

var B:TASt;

a:string;p:integer;

begin

writeln('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');

writeln;

writeln('Command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi, "<cifra>"-vvod nomera zapisi,"help"-vyzov spravki, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');

p:=0;

repeat

readln(a);

if a='new' then

if (p>0) and (p<11) then

begin

WriteSt(B[p]);

writeln('zapis ',p,' sohranena');

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

if a='out' then

if (p>0) and (p<11) then

begin

OutputSt(B[p]);

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')

or (a='9') or (a='10') then

begin

p:=strtoint(a);

writeln('current record ',p);

end;

if a='help' then

write ('command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi,"<cifra>"-vvod nomera zapisi, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');

if a='name' then

begin

for p:=1 to 10 do

begin

if B[p].Name<>'' then

writeln('zapis ',p,' ',B[p].Name);

end;

end;

if a='group' then

begin

for p:=1 to 10 do

begin

if B[p].Group<>'' then

writeln('zapis ',p,' ',B[p].Group);

end;

end;

if a='mark' then

begin

for p:=1 to 10 do

begin

if B[p].Mark<>'' then

writeln('zapis ',p,' ',B[p].Mark);

end;

end;

if a='sub' then

begin

for p:=1 to 10 do

begin

if B[p].Subject<>'' then

writeln('zapis ',p,' ',B[p].Subject);

end;

end;

if a='all' then

begin

writeln('Zapis ','Group ','Name ','Subject ','Mark ');

for p:=1 to 10 do

begin

setlength(B[p].Subject,13);setlength(B[p].Mark,13);setlength(B[p].Group,13);setlength(B[p].Name,13);

if (B[p].Subject<>'') or (B[p].Mark<>'') or (B[p].Group<>'') or (B[p].Name<>'') then

writeln('Zapis ',p,' ',B[p].Group,B[p].Name,B[p].Subject,B[p].Mark);

end;

end;

until a='q';

writeln('Chto zh vy nadelali...');

readln;

end.


[1] После завершения работы введенные данные не сохраняются.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:42:59 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:49:43 28 ноября 2015

Работы, похожие на Контрольная работа: Создание электронной записной книжки

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(151310)
Комментарии (1844)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru