информатика_книги / Информатика. Теория и практика_Острейковский В.А, Полякова И.В_2008 -608с

Begin

With spisok[i] Do

If sname = ‘Иванов’ then

Writeln (sname:15, name:10, gr:8, tele:10);

Writeln;

End;

Readln

End.

Работа ¹ 13. Множества

Цель работы: изучить правила работы с множествами в среде Турбо Паскаль.

Задание: даны два множества: X1 è X2, содержащие элементы типа Byte. Сформировать новое множество Y, равное разности множеств Õ1 è Õ2, и выделить из него подмножество Y1, содержащее элементы, делящиеся без остатка на 5 и на 3. На экран вывести множества и их мощность.

Методика выполнения работы:

Program pr_13; Uses Crt;

Type SetByte= Set Of Byte; Const N= 10;

Var

X1, X2, Y, Y1: SetByte; M, M1, i, A, B: Byte;

Procedure ShowSet(S: SetByte; Str: String; Ms: Byte); Var T: Byte;

Begin

Writeln(‘Множество’ ,Str, ‘(мощность — ’,Ms, ‘) :’); For T:= 0 To 255 Do

If T In S Then Write(T, ‘’ ); Writeln;

End;

521

Begin X1:= []; X2:= []; Y1:= []; M:= 0;

M1:= 0;

{m,m1 — мощности множеств Y,Y1}

For i:= 1 To N Do Begin

ClrScr;

Write(‘Введите ’,i, ‘-й элемент множества X1 =>’); Readln(B);

X1:= X1+[B]; ClrScr;

Write(‘Введите ’,i, ‘-й элемент множества X2 =>’); Readln(B);

X2:= X2+[B]; End;

Y:= X1 — X2;

For A:= 1 To 255 Do

If A In Y Then Begin

Inc(M);

If (A Mod 3 = 0) and (A Mod 5 = 0) Then Begin

Inc(M1); Y1:= Y1+[A];

End;

End;

ClrScr;

ShowSet(X1, ’X1’, N);

ShowSet(X2, ‘X2’, N);

ShowSet(Y, ‘Y, разность X1 и X2’, M); ShowSet(Y1, ‘чисел, кратных 5 и 3’, M1); Readln;

End.

522

Работа ¹ 14. Операции с файлами

Цель работы: изучить операции с файлами в среде Турбо Паскаль.

Задание: дан текстовый файл. Создать его копию, которая не должна содержать пустых строк. Сначала с клавиатуры запрашивается путь доступа к файлу до тех пор, пока файл не удастся открыть для чтения. Затем запрашивается другой путь доступа до тех пор, пока не выяснится, что не существует файла с таким именем, после чего информация из первого файла записывается во вновь созданный второй файл.

Методика выполнения работы:

Program pr_14;

{$I-} {Директива компилятора — выключение контроля ошибок ввода-вывода}

Var

fromF, toF: Text; fromName, toName: String;

s: String;

Begin Repeat

Write(‘Введите имя исходного файла’); ReadLn(fromName); Assign(fromF,fromName); {Пытаемся открыть для чтения}

Reset(fromF); µ\13

Until IoResult=0; {Если открыть не удалось — на начало цикла}

Repeat

Write(’Введите имя файла-приемника’); ReadLn(toName);µ\13

Assign(toF, toName); {Проверка существования} Reset(toF); {Если открыть удалось —

на начало цикла}

Until IoResult <> 0;

{Открываем по-настоящему — для записи}

Rewrite(toF);

523

While Not Eof(from F) Do Begin

{Читаем строку из первого файла}

ReadLn(fromF,s);

WriteLn(s); {Выводим на экран}

If s <> ‘’ Then

WriteLn(toF, s); {Выводим во второй файл}

End;

Close(fromF);

Close(toF); {Закрываем оба файла}

Readln End.

Òåìà 7.2

РАЗЛИЧНЫЕ ТЕХНОЛОГИИ

ПРОГРАММИРОВАНИЯ

7.2.1. Машинная графика

Машинная (компьютерная) графика объединяет в себе процессы создания, хранения и обработки моделей объектов и их изображений с помощью ЭВМ. Эта технология проникла в область экономического анализа и моделирования различного вида конструкций, незаменима в производстве и рекламной деятельности, делает занимательным досуг. Формируемые и обрабатываемые с помощью цифрового процессора изображения могут быть демонстрационными и анимационными. К демонстрационной группе, как правило, относят коммерческую (деловую) и иллюстративную графику, к анимационной — инженерную и научную, а также связанную с рекламой, искусством, играми, когда выводятся не только одиночные изображения, но и последовательность кадров в виде фильма (интерактивный вариант). Интерактивная машинная графика одно из наиболее прогрессивных направлений новых информационных технологий, претерпевающее бурное развитие в области появления новых графических станций и специализированных программных средств, позволяющих создавать реалистические

524

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

Машинная графика реализуется с помощью различных прикладных программ (текстовых процессоров и редакторов), в частности Microsoft Word (см. тему 4.8) и CorelDRAW.

CorelDRAW на сегодняшний день самый популярный графический редактор, работающий с векторной графикой. В настоящее время в эксплуатации находится версия 9.0 этой программы. Для учебно-методических целей эта версия представляет особый интерес, поскольку имеет русскоязычный аналог. На примере этой программы мы рассмотрим основные приемы создания и редактирования графических образов.

Главное окно, элементы интерфейса. Интерфейс программы CorelDRAW выполнен в традициях, ставших стандартом для приложений в операционных системах Windows.

После того как графический редактор CorelDRAW запущен, на экране появляется рабочее окно программы (рис. 7.6). Элементы управления программы сосредоточены в строке меню, на панели инструментов Стандартная, панели свойств и панели инструментов Графика. Основную же часть окна составляет рабочая область, где в центре представлена рабочая страница, — это не более чем ориентир: создавать объекты можно как на странице, так и вне ее, но при выводе на печать будет напечатано только то, что находится внутри рабочей страницы.

Заголовок, кнопки управления, строка ìåíþ, расположенные в верхней части окна, а также полосы прокрутки и строка состояния аналогичны таким же элементам любого приложения Windows.

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

На панели инструментов Стандартная содержатся инструменты; часть из них: New — Создать, Open — Открыть, Save — Сохранить и т. д., — имеется и во многих других программах Windows, а часть присуща только приложениям CorelDRAW:

Import — Импортировать, Export — Экспортировать, Application

525

Ðèñ. 7.6. Основное окно программы CorelDRAW

Launcher — Кнопка запуска приложений, What’s this? — Справочная система.

Панель свойств, расположенная по умолчанию непосредственно под панелью инструментов Стандартная, обладает уникальными интерактивными свойствами. Состав ее элементов управления динамически меняется в зависимости от типа выбранного объекта. Так, при выборе текста на панели свойств появляются элементы управления свойствами текста, при выборе линии — элементы управления свойствами линии. Каждый тип объектов имеет на панели свойств присущий только ему комплект элементов управления.

Особенностью интерфейса CorelDRAW является наличие таких элементов, как стыкуемые панели, которые обладают свойствами «приклеиваться» при перетаскивании мышью к одной из сторон рабочего поля. Стыкуемые панели — это особого вида диалоговые окна, которые служат для настройки действия основных инструментов. При желании панели можно «открепить» и сделать «плавающими», благодаря чему удается очень быстро получить доступ к содержащимся в них элементам управления. Одним из наиболее значительных их преимуществ, по сравнению с диалоговыми окнами, является то, что можно вернуться к работе над страницей, оставив Стыкуемую панель открытой.

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

Если у вас возникает желание произвести настройку интерфейса и параметров CorelDRAW, следует воспользоваться командой меню Инструментальные средства Опции. Все настройки подразделяются на три основных раздела:

—рабочая область — содержит средства управления параметрами интерфейса;

—документ — позволяет управлять свойствами разрабатываемого документа;

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

527

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

После того как вы создали новый документ, необходимо настроить параметры страницы и рабочего окружения. По умолчанию страница нового документа имеет формат А4 (210 297 мм) — самый распространенный формат бумаги — и вертикальную ориентацию (рис. 7.7).

Ðèñ. 7.7. Настройка параметров страницы

Существует два способа настройки параметров страницы:

—способ А — воспользуйтесь командой меню Макет Параметры страницы. В диалоговом окне Параметры страницы

можно выбрать 19 стандартных форматов; установите свой формат, укажите ориентацию: Книжная èëè Альбомная;

—способ Б — на панели свойств выбираем из списка Òèï формат бумаги (здесь же будет показан размер бумаги), из списка Единицы измерения — миллиметры или другую удобную для вас единицу. Для изменения ориентации рабочей страницы щелкните на одной из кнопок: Книжная èëè Альбомная.

Приемы создания простейших объектов. Наше знакомство

ñредактором CorelDRAW начнем с создания простейших геометрических объектов: прямоугольников, эллипсов, многоугольников, спиралей, прямых и кривых линий.

Прямоугольник, Квадрат, Эллипс, Окружность

Выберите инструмент Прямоугольник èëè Эллипс на панели инструментов Графика и методом протягивания на рабочей странице создайте прямоугольник или эллипс. В процессе протягивания в строке состояния отображаются точные координаты начальной è конечной точек, а также центра прямоугольника или эллипса и его размеры ïî ширине è высоте. Координаты, удовлетворяющие вашим условиям, можно задать на панели свойств.

528

Если в ходе построения прямоугольника или эллипса удерживать клавишу <Ctrl>, будет нарисован квадрат или окружность. Прием рисования фигуры «от центра» выполняется при нажатой клавише <Shift>. При работе с прямоугольником можно изменить форму его углов, т. е. скруглить их, воспользовавшись элементами управления параметрами скругления углов, расположенными на панели свойств (рис. 7.8).

Ðèñ. 7.8. Панель свойств для задания параметров прямоугольника

Эллипсы могут принимать вид дуг и секторов, для этого необходимо щелкнуть на соответствующей кнопке: Сектор èëè Äóãà, которые расположены также на панели свойств. Можно задать величину углов наклона начала и конца сектора или дуги (рис. 7.9).

% & ' &

# $

Ðèñ. 7.9. Панель свойств для задания параметров эллипса

Многоугольник, спираль, звезда, клетки

Инструмент Многоугольник предназначен для рисования многоугольников с различным числом сторон. Он содержит панель инструментов Вспомогательная, с ее помощью создаются спирали, звезды и клетки. Если при их построении использовать клавиши <Ctrl> è <Shift>, можно получить фигуры правильной формы. Перед созданием многоугольника или после этой операции вы можете изменить внешний вид объекта с помощью управляющих элементов, расположенных на пане-

529

ли свойств, задав любое число вершин или сторон многоугольника (рис. 7.10).

'

Ðèñ. 7.10. Панель свойств для задания параметров многоугольника

Для создания звезды используют кнопку-переключатель Многоугольник/Звезда, при щелчке на которой будет создаваться звезда; повторное нажатие вернет вас к созданию многоугольника.

С помощью инструментов Спираль è Миллиметровка полу- чают соответствующие фигуры, т. е. спираль и клетки миллиметровки. Рисуются эти объекты точно так же, как и описанные выше. Предварительно можно настроить параметры создаваемого объекта. Для клетки задается количество ячеек по горизонтали и вертикали (рис. 7.11).

Ðèñ. 7.11. Задание параметров клетки

Чтобы задать число витков спирали воспользуйтесь элементом управления Обороты Спирали (ðèñ. 7.12).

Ðèñ. 7.12. Задание параметров спирали

530