Информатика. Программирование для библиотечных специалистов. Учебное пособие

textcolor(12);

gotoxy(28,12);

writeln('*');

textcolor(12);

gotoxy(28,13);

writeln('*');

textcolor(9);

textcolor(12);

gotoxy(44,11);

writeln('*');

textcolor(12);

gotoxy(44,12);

writeln('*');

textcolor(12);

gotoxy(44,13);

writeln('*');

textcolor(9);

gotoxy(30,12); writeln('Библиотека №5'); textcolor(Red+Blink); gotoxy(25,17);

writeln(''Для продолжения работы нажмите на любую клавишу'');

readkey;

clrscr;

textbackground(3);

clrscr;

textcolor(7);

gotoxy(25,3);

writeln('**********************************');

textcolor(7);

gotoxy(25,21);

writeln('**********************************');

textcolor(12);

gotoxy(25,12); writeln('Введите ФИО'); gotoxy(25,14); readln(fio); textcolor(12); gotoxy(25,17);

writeln('Сегодня работает библиотекарь ',fio); textcolor(Red+Blink);

gotoxy(25,18);

41

writeln('Для продолжения работы нажмите на любую клавишу');

readkey;

clrscr;

textbackground(3);

clrscr;

textcolor(7);

gotoxy(25,3);

writeln('**********************************');

textcolor(7);

gotoxy(25,21);

writeln('**********************************'); textcolor (12);

gotoxy (25,12);

writeln(fio,' введите количество книг'); gotoxy (35,14);

readln (a); textcolor(12); gotoxy(25,15);

writeln(fio,' введите цену каждой книги'); gotoxy(35,17);

readln(r);

textcolor(Red+Blink);

gotoxy(25,18);

writeln('Для продолжения работы нажмите на любую клавишу');

readkey;

clrscr;

textcolor(7);

gotoxy(25,3);

writeln('**********************************');

textcolor(7);

gotoxy(25,21);

writeln('**********************************');

p:=a*r;

textcolor(12);

gotoxy(25,12);

writeln('общая стоимость покупки составляет

',p:2:2, 'рублей); gotoxy(35,13); writeln(S:5); gotoxy(35,9); textcolor(12); gotoxy(25,15);

42

writeln('сегодня Вас обслуживал библиотекарь ', fio, ', который желает Вам всего доброго!');

readln;

end.

Практический блок

Индивидуальные задания.

1. Наберите программу Р1, проанализируйте выполнение операторов, доступных в текстовом режиме.

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

3. Дополните вашу программу диалоговым интерфейсом.

Вопросы и задания для самостоятельной работы

1.Что такое интерфейс?

2.Чем отличается понятие интерфейса в широком и узком смыслах?

3.Что такое пользовательский интерфейс? Для чего он

нужен?

4.Каковы критерии оценки интерфейса?

5.Для чего предназначен модуль Crt в языке Pascal?

6.Как работает оператор GOTOXY(x,y)?

7.Как классифицируются системы, поддерживающие диалоговые процессы?

8.Что такое сценарий, кадр?

9.Как организовать сценарий со свободным вводом данных?

Творческий блок

Изучите презентацию «Управление звуком» из «Курса по программированию». В разработанной программе добавьте звуковые эффекты.

43

ТЕМА 6. СОЗДАНИЕ ПРОГРАММНЫХ ПРОДУКТОВ С ИСПОЛЬЗОВАНИЕМ АЛГОРИТМИЧЕСКОЙ СТРУКТУРЫ «ВЕТВЛЕНИЕ»

Теоретический блок

Одной из основных алгоритмических структур является ветвление (альтернатива).

Разветвляющийся алгоритм — это алгоритм, в котором действия выполняются по одной из возможных ветвей решения задачи в зависимости от выполнения условий.

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

Различают три вида ветвлений: полное, неполное,

структура «выбор».

Условный оператор — один из самых популярных средств, изменяющих естественный порядок выполнения операторов программы.

If В then А1 else А2;

44

В — условие (выражение булевского типа); А1, А2 — простой или составной оператор.

Составной оператор представляет собой конструкцию, построенную из других операторов, ограниченную операторными скобками Begin и End;

Если условие, то оператор 1, иначе оператор 2. Сначала вычисляется значение выражения булевского

типа, записанного в условии. Если это значение true, то выполняется оператор 1, а если будет получено false, то выполняется оператор 2.

If В then А;

В— условие (выражение булевского типа); А — простой или составной оператор.

Если условие, то оператор.

Вэтом случае, если условие верно true, то выполняется оператор, а если false, то выполняется оператор, следующий за условным оператором. Операторы if могут быть вложенными.

Практический блок

Рассмотрите теоретический материал презентации «Разветвляющиеся алгоритмы», используя «Курс по программированию».

Задача. Прием на работу предполагает возраст не более 50 лет и стаж не менее 20 лет. Определите, будет ли претендент принят на работу.

Исходные данные: v — возраст, st — стаж.

При построении математической модели необходимо вспомнить о защите при вводе исходных данных (тема 5). В данном случае необходимо провести аналитическую работу

идобавить недостающие сведения:

−с какого возраста начинается прием на работу?

−какой максимальный размер стажа может быть?

Если принять, что прием на работу идет с 18 лет, то переменная v <= 50 и v >= 38; а переменная st <= 32 и st >= 20.

45

Результат: два сообщения «Вы приняты на работу», «Вы не приняты на работу».

Блок-схема:

Программный код.

program priem; var v, st: byte; begin

writeln('skolko vam let?'); readln(v);

if ( v <= 50 ) and ( v >= 38) then begin writeln('vvedite staz'); readln(st);

if ( st <= 32 ) and ( st >= 20) then writeln('prinyat')

else writeln('ne prinyat');

end

46

else writeln('ne prinyat');

readln;

end.

Вопросы и задания для самостоятельной работы

1.Как программируется на языке Pascal полное и неполное ветвление?

2.Что такое составной оператор? В каких случаях составной оператор используется в операторе ветвления?

3.Как формируются логические выражения?

4.Выполните на компьютере все программы, приведенные в данной теме.

Творческий блок

Индивидуальные задания.

1.В библиотеке требуется пополнение фонда новой литературы по библиотековедению. Количество изданий, которые поступят в библиотеку: 25–30 — изд. недостаточно, 35–40 — частично, 65–80 — пополнится, менее 25 — фонд не пополнится, как это требуется.

2.В библиотеке требуется отбирать из массива поступившей литературы издания для картотек: «Новая литература по литературоведению и художественной литературе» и «Культура

икультурология». Требуется произвести отбор из списка книг по следующим параметрам: новая литература и тема картотеки.

3.Директор производит подсчет стимулирующих баллов работников библиотеки за последние 3 месяца. Если работник

47

получает 50–55 баллов, ему выплачивается премия в размере

3 000 руб.; если 44–49, то 2 000 руб.; если 38–43, то 1 000 руб.;

если менее 38 баллов, то работник не получает ничего.

4.Посещаемость библиотеки за месяц. Если количество посетителей составляет 500–550 — высокая посещаемость, если 350–400 — средняя, если 250–300 — низкая, если 150–200

—падение посещаемости. Определить категорию посещаемости библиотеки.

5.В библиотеке проходит комплектация фонда отдела

реставрацию. Литература, переданная на реставрацию, будет передана в фонд редкой книги в том случае, если е е выявленная стоимость не превысит 10 000 руб., в противном случае она будет передана в государственный музей.

6.Запись в молодежную библиотеку ведется на основе сведений о том, сколько лет посетителю. Условия требуют возраст не младше 14 лет и не старше 30 лет. Если пол мужской, то для записи отправляют на 1-й этаж, если женский — на 2-й.

7.Запись в библиотеку ведется в возрасте от 14 до 18 лет,

взависимости от интересов читателя, ставится выбор между абонементом и читальным залом. Если читатель любит научную литературу, то он записывается на абонемент, если художественную — в читальный зал.

48

ТЕМА 7. СОЗДАНИЕ ПРОГРАММНЫХ ПРОДУКТОВ С ИСПОЛЬЗОВАНИЕМ АЛГОРИТМИЧЕСКОЙ СТРУКТУРЫ «ВЫБОР»

Теоретический блок

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

Case < выражение-селектор > of <Список 1 >: A1;

…

<Список n >: An; [ Else An + 1 ] end;

A1, … , An + 1 — простые или составные операторы. Списки состоят из констант выбора (константа может

быть одна).

Оператор Case работает так: сначала вычисляется значение выражения-селектора, затем оно сравнивается с каждым списком и при совпадении значений выполняется соответствующий оператор, если совпадения не произошло, то выполняется оператор, стоящий за словом Else. Выражениеселектор должно относиться либо к целочисленному, либо к булевскому, либо к символьному типам.

Практический блок

1. Рассмотрите пример 2 из презентации «Разветвляющиеся алгоритмы», используя «Курс по программированию».

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

Исходные данные: к — количество лет — тип byte Результат: сообщение «Ваш возраст составляет g лет (года,

год)».

49

Пром. данные: f

Для построения математической модели необходимо провести аналитическую работу по определению зависимости окончания слов от их количества.

Блок-схема:

50