14-es / ЭС - Информатика (ИСФ) / умк_Василевский_Информатика

begin Edit1.Text:=’0’; Edit2.Text:=’0’; end;

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

Повторите те же действия для второго события. Сущность его такая же, только происходить оно будет не при открытии формы, а при однократном нажатии кнопки «Сброс» (Значит, сперва надо выделить эту кнопку, затем выбрать тип события – OnClick и снова, уже дважды быстро нажать на эту кнопку. Фрагмент программы – такой же, как в предыдущем событии).

Рис. 42

8.Событие для кнопки «Закрыть»: при нажатии на эту кнопку фор-

ма должна закрываться. Тип события OnClick, фрагмент программы: begin

Close;

end;

9.Событиедлякнопки«Добавить»: принажатиинакнопку«Добавить»

– к преобразованному в целое число содержимому поля Edit2 при-

бавляется (имеется в виду арифметическая операция сложения) преобразованное в целое число содержимое поля Edit1;

– преобразованный в текст результат сложения помещается в поле для ввода Edit2.

Тип события OnClick, фрагмент программы: begin a:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text); Edit2.Text:=IntToStr(a);

end;

91

Здесь появляется переменная «а». Чтобы компьютер мог ее распознать, мы должны определить переменную до начала описания события, т.е. до слова «begin». Определить переменную – значит написать ее тип (в нашем примере тип переменной – целое число). Поэтому между словами «procedure …» и «begin» необходимо написать следующее (рис. 43):

procedure TForm1.Button1Click(Sender: TObject); var a:integer;

begin

Рис. 43

10.Прежде чем перейти к завершающему этапу создания программы (Windows-приложения), необходимо сохранить все изменения на диске. Для этого, в верхнем меню «File» выберите команду «Save All» и нажмите ее.

11.Осуществите пробный запуск программы, созданной Вами. Для этого в верхнем меню «Run» нажмите команду «Run». Если Вы не допустили «грамматических» ошибок в написании фрагментов программы, на экране появится окно программы в таком виде, в каком оно должно быть после завершения программирования; необходимо опробовать его работу, проверить, «работают» ли запроектированные события. Если что-то не выполняется, закройте окно программы, вернитесь в окно модуля и найдите ошибку. Если же ошибки были допущены еще в написании фрагментов программы, на экране вместо окна программы появится окно модуля, где ошибка будет уже выделена. После исправления всех ошибок сохраните изменения и повторно запустите программу.

12.Если программа работает, необходимо ее «скомпилировать», т.е. создать файл с расширением «~.exe», что позволит программе работать уже без помощи Delphi. Для этого в верхнем меню «Project» нажмите команду «Compile ~» (здесь ~ – это название Вашей программы, или имя главного файла проекта). Теперь закройте Delphi, найдите свою программу

изапустите ее уже без помощи Delphi. Проверьте, как работает программа.

92

Лабораторная работа № 17 Среда программирования Delphi. Часть 2

Реализация алгоритмов, содержащих логический блок в среде программирования Delphi.

Цель работы: научиться создавать Windows-приложения в среде визуального программирования Delphi, в алгоритме которых имеется логический блок (проверка некоторого условия).

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

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

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

–из фрагментов программы на языке Object Pascal (для каждого из запланированных событий).

Например, запроектируйте программу, позволяющую определять

значения уравнения y = sin(x) + x2 , где y ≠ 8. Задайте тип переменных – дробные числа.

2.Запустите Delphi, воспользовавшись меню кнопки «Пуск» (папка «Borland Delphi»). Сохраните главный файл проекта и файл модуля в папку «Temp» в специально созданную для этого папку.

3.Расположите компоненты на поле формы и задайте свойства компонентов. Компоненты должны давать возможность программе полноценно функционировать, а пользователю – возможность самостоятельно овладеть программой.

4.Запроектируйте события для программы. В нашем примере три первых события аналогичны применявшимся в прошлой программе (см. лабораторную работу № 7).

5.Событие четвертое будет связано с кнопкой «Вычислить» (если хотите, можно дать этой кнопке и другое название). Тип события – OnClick. Сущность события: при нажатии на кнопку «Вычислить»:

–переменная х приравнивается преобразованному в дробное число содержимому поля для ввода Edit1 (или Edit2 по Вашему выбору);

–переменная у приравнивается результату вычисления выражения y

=sin(x) + x2 ;

–если y ≠ 8 , то в поле для ввода Edit2 (или, соответственно, Edit1) помещается преобразованное в текст (в строковые данные) значение пере-

93

менной y, иначе в поле для ввода Edit2 (или, соответственно, Edit1) помещается запись «Условие не удовлетворяется. Попробуйте начать заново».

6.Фрагмент программы для четвертого события выглядит следующим образом:

begin x:=StrToFloat(Edit1.Text); y:=sin(x)+sqr(x);

if y<>8 then Edit2.Text:=IntToStr(y)

else Edit2.Text:=’Условие не удовлетворяется. Попробуйте начать заново’;

end;

Переменные х и у должны быть определены до программирования события (тип переменных – дробное число), поэтому между словами «procedure …» и «begin» необходимо написать следующее:

procedure TForm1.Button1Click(Sender: TObject); var x:real;

var y:real; begin

7.Завершите создание программы и проверьте, работает ли она.

8.Попытайтесь запроектировать и создать в среде программирования Delphi программы для реализации более сложных вычислений, и обязательно с большим количеством условий, где применялись бы операторы or, xor и and.

Лабораторная работа № 18 Программирование. Контрольная работа

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

1.Создайте предварительно (на бумаге) проект будущей программы

всоответствии с заданием. Проект должен состоять:

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

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

–фрагментов программы на языке Object Pascal (для каждого из запланированных событий).

94

2.Реализуйте запроектированную Вами программу в среде Delphi. Скомпилируйте программу. Файлы программы сохраните в папку «Контрольная работа» в папке «Temp». Программа должна полностью соответствовать требованиям, предъявляемым заданием.

3.Варианты заданий для контрольной работы:

Вариант А:

Запроектируйте и реализуйте в среде программирования Delphi программу, позволяющуюполучатьрешениеследующеговыражения: √х-2 + ех ≤9.

Вариант В:

Запроектируйте и реализуйте в среде программирования Delphi программу, позволяющую получать решение квадратного уравнения.

Вариант С:

Запроектируйте и реализуйте в среде программирования Delphi программу, позволяющую получать решение следующего выражения: а = х+у2, причем у ≠ 3, а переменная х должна быть х < 7 или х > 9.

Лабораторная работа № 19 Текстовый редактор Microsoft Word. Введение

Текстовый редактор Microsoft Word. Создание документа, сохранение. Параметры страницы. Набор текста. Специальные клавиши. Форматирование текста.

Цель работы: научиться создавать документ Word, задавать параметры страницы, правильно набирать, редактировать текст и форматировать его, форматировать абзац, освоить способы выделения текста и способы перемещения по странице.

1.Запустите программу Microsoft Word, воспользовавшись меню кнопки «Пуск» (боковое меню «Программы»). Изучите появившееся на экране окно документа Word. Просмотрите содержимое верхних меню, панелей инструментов (по всплывающим подсказкам, появляющимся при наведении на кнопки панелей инструмента курсора).

2.Сохраните документ Word. Для этого в верхнем меню «Файл» выберите команду «Сохранить как…» (рис. 44) и в открывшемся диалоговом окне выберите:

– место, куда будет сохранен документ (например, в папку «Temp»):

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

95

5. Наберите несколько предложений (по желанию, можно воспользоваться текстом примера контрольной работы, приведенном в конце сборника). При наборе используйте следующие специальные клавиши:

•Чтобы написать прописную букву, нажимайте клавишу с этой буквой, одновременно держа нажатой клавишу Shift. Если необходимо писать только прописными буквами, нажмите на клавишу Caps Lock, тогда нажимать клавишу Shift будет нужно, если надо написать строчную букву.

•Чтобы переключить раскладку клавиатуры (от этого зависит, какие буквы, написанные на клавишах будут действовать: русские или английские) необходимо одновременно нажать правую клавишу Shift и клавишу Ctrl. В некоторых случаях раскладка клавиатуры переключается сочетанием клавиш Alt + Shift.

•Чтобы задать отступ первой строки (красную строку), можно воспользоваться клавишей Tab.

•Для того, чтобы удалить символ слева от курсора применяется клавиша Backspace, для удаления символа справа от курсора – клавиша Delete. С помощью этих клавиш можно также соединять разрозненные фрагменты текста, подтягивая их друг к другу.

•Клавиша Insert служит для переключения режима вставки / замены. Например, если набирать текст, когда курсор находится между уже набранными словами, текст, расположенный справа от курсора будет отодвигаться вправо, это значит, что включен режим вставки. Если нажать на клавишу Insert и попытаться так же набирать текст, то новый текст будет печататься как бы поверх текста, расположенного справа от курсора, уничтожая его.

•Клавиши Home, End, Page Up, Page Down, а также клавиши со стрелками перемещают курсор соответственно: в начало строки, в конец строки, на предыдущую (следующую) страницу, на одну строку вверх или вниз, на один символ вправо или влево.

6. Чтобы перевести курсор в следующую строку, нажмите на клавишу Enter («Ввод»). Если справа от курсора был текст, он переместится вместе с курсором в следующую строку. Чтобы вернуть текст обратно, поставьте курсор в начало этого текста и нажмите клавишу Backspace (либо курсор – в начало предыдущего текста, и нажать клавишу Delete).

7. Найдите на панели инструментов строки, позволяющие задать размер шрифта, тип шрифта, цвет текста, выделение текста цветом (маркер), междустрочный интервал, начертание текста (полужирное, курсив-

97

ное, подчеркнутое) и попытайтесь применить все эти возможности к Вашему тексту (рис. 45). Самостоятельно изучите возможности форматирования текста, представленные в диалоговом окне «Шрифт» (в верхнем меню «Формат» содержится команда «Шрифт»).

Рис. 45

8. Форматирование абзаца состоит в задании отступа первой строки (красной строки), отступа остального текста, отступа правого края абзаца, выравнивания по странице. Найдите на панели инструментов клавиши, позволяющие установить выравнивание текста. Величину отступов (выступов) задайте, перемещая маркеры, расположенные на линейке в верхней части листа (рис. 46).

Рис. 46

На приведенном рисунке отступ первой строки установлен равным 1,25 см. Включениеиотключениелинейкипроизводитсявверхнемменю«Вид».

9.Форматирование абзаца можно осуществить в диалоговом окне «Абзац». Это окно можно вызвать командой «Абзац» верхнего меню «Формат». Для того, чтобы отформатировать абзац, необходимо выделить его, или хотя бы поместить в него курсор; если надо отформатировать сразу несколько абзацев, выделите эти абзацы. Выделение текста может производиться с помощью мыши: наведите курсор на начало текста, который требуется выделить, нажмите левую клавишу мыши и, не отпуская ее ведите мышь в нужном направлении. Когда нужный фрагмент текста выделен, отпустите левую клавишу мыши. Выделение текста без помощи мыши: если нажать на клавишу со стрелкой, указывающей направо, одновременно держа нажатой клавишу Shift, выделится символ справа от курсора. Если клавишу со стрелкой нажимать непрерывно, выделится вся строка. Если нажимать клавишу со стрелкой, указывающей вниз, выделится нижележащая строка, а также текст этой строки, лежащей справа от курсора.

10.Чтобы отменить действие, нажмите команду «Отменить» (команда верхнего меню «Правка»), если Вы отменили действие и обнаружили, что отменять его не следовало, надо нажать на команду «Вернуть» (в том же верхнем меню). Обе эти команды можно вызвать, воспользовавшись кнопками такого же названия на панели инструментов.

98

Лабораторная работа № 20 Текстовый редактор Microsoft Word. Таблицы.

Цель работы: научиться создавать и редактировать таблицы в Microsoft Word.

1.Запустите программу Microsoft Word, воспользовавшись меню кнопки «Пуск» (боковое меню «Программы»).

2.Вставьте (добавьте) таблицу, состоящую из пяти столбцов и двух строк в документ Word. Для этого в верхнем меню «Таблица» найдите команду «Добавить» (в некоторых версиях Word эта команда называется «Вставить») и в боковом меню выберите команду «Таблицу». В появившемся диалоговом окне задайте число строк и столбцов таблицы, а также автоподбор ширины столбцов (т.е. автоматически задаваемая ширина столбцов). Автоподбор предусмотрен в трех вариантах: «по ширине окна» (т.е. ширина таблицы будет равна ширине страницы документа), «посто- янная» (ширина всех столбцов одинаковая и равна значению, указанному в специальном окошке) и «по содержимому» (здесь первоначальная ширина столбцов будет минимальной; если затем набирать текст в столбец, правая граница столбца будет смещаться вправо по мере набора текста). Выберите вариант «по ширине окна» и нажмите кнопку «ОК».

3.Научитесь редактировать вид таблицы, добавляя и удаляя строки и столбцы. Добавлять (вставлять) строки и столбцы в таблицу можно, воспользовавшись командами верхнего меню «Таблица» (команды «Добавить» или «Вставить», «Удалить»). Для того, чтобы добавить в таблицу строку или столбец (или удалить их), нужно поместить курсор в таблицу. Добавьте, а затем удалите несколько строк и столбцов. Научитесь также выделять строки, столбцы и ячейки таблицы, пользуясь командой «Выделить» верхнего меню «Таблица». Когда закончите, удалите всю таблицу.

4.Нарисуйте таблицу следующего вида:

99

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

5.Дорисуйте в Вашу таблицу еще одну строку, разделив верхнюю строку горизонтальной линией. Чтобы вернуться в режим рисования таблицы, надо нажать на кнопку «Нарисовать таблицу», расположенную на панели инструментов «Таблицы и границы». Теперь удалите линию, разделяющую нижнюю строку на два столбца. Для этого нажмите на панели инструментов «Таблицы и границы» кнопку «Ластик» (курсор превратится

в«ластик») и проведите «ластиком» по линии, которую нужно удалить.

6.Отредактируйте таблицу: например, уменьшите размер правого столбца. Для этого наведите курсор точно на линию, разделяющую столбцы, пока курсор не приобретет вид двойной горизонтальной стрелки, затем нажмите левую клавишу мыши и, не отпуская ее, ведите курсор вправо. Вертикальная линия переместится. Таким же образом можно перемещать и горизонтальные линии (попробуйте это сделать).

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

100