Выполнение производственных заданий

Практическая работа № 1.

Разработка проекта ДИАЛОГ Постановка задачи Создать программу, выполняющую следующие действия. После запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter.

Появляется вопрос: «Александр, ты любишь читать?». Если пользователь нажмет на клавишу Да, то должна появиться реплика: «Молодец!», если он нажмет на клавишу Нет, то появится реплика: «Почему же? Надо по читать» .

План разработки программы, № 1.

• 1. Открыть новый проект.
• 2. Разместить на форме экземпляры компонентов в соответствии с рисунком.

Рис. 1. Размещение компонентов на форме

• 3. Сохранить код программы и проект под именами, например, Unit2. pas и Pr2.dpr.
• 4. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке Выход.
• 5. Выполнить следующие действия:

6. Сохранить проект окончательно, запустить и протестировать его.

Практическая работа № 2.

Разработка проекта СЛОВАРЬ Разработать программу для составления словаря новых терминов. Должна иметься возможность внесения в словарь изменений, дополнений или сокращения его. На форме должны отображаться текущий номер записи и общее количество записей в словаре.

• 1. Открыть новый проект.
• 2. Разместить на форме экземпляры компонентов в соответствии с рисунком.

3. Сохранить код программы и проект под именами, например, Unit4. pas и Pr4.dpr.

4. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке Выход.

5. Выполнить следующие действия:

• 6. Запустить программу, щелкнуть на стрелке компонента ComboBox1, выбрать из открывшегося списка любой термин, а затем убедиться, что текст, набираемый в строке ввода, в список не вносится. После этого закрыть проект кнопкой Выход.
• 7. Выполнить следующие действия:

• 8. Запустить программу и убедиться, что набранные в строке ввода слова после нажатия кнопки Добавить добавляются в список ComboBox1.
• 9. Выполнить следующие действия:

Пояснения. Условие If MessageDlg… означает, что при нажатии кнопки Удалить появится диалоговое окно с вопросом 'Вы действительно хотите удалить запись?' с двумя кнопками Yes и No. Предварительно выбранный термин будет удален из списка только при нажатии кнопки Yes.

MessageDlg является функцией с четырьмя аргументами: 1. Сообщение, которое нужно отобразить, в одинарных кавычках. 2. Тип диалогового окна — константы: mtWarning, mtError, mtInformation, mtConformation, определяющие специальную пиктограмму и заголовок диалогового окна. 3. Список констант в квадратных скобках, определяющих присутствующие в окне кнопки. Возможные значения — mbYes, mbNo, mbCancel, mbHelp.

4. Число, с которым ассоциирована тема справки. Оно отлично от нуля, если в окне присутствует кнопка mbHelp, а программа имеет связанный с ней файл справки Windows.

Функция MessageDlg возвращает константу, определяющую нажатую пользователем кнопку.

• 10. Запустить программу, добавить в список и (или) удалить несколько строк, закрыть ее, а затем снова запустить. Заметим, что внесенные изменения не сохранились. Это связано с тем, что в ComboBox загружается первоначальный список.
• 11. Выполнить следующие действия:

Пояснения. Теперь при создании формы в список ComboBox1 будет загружаться содержимое файла «Glostext.txt?, а измененный список запоминается в нем при нажатии кнопки Сохранить.

12. Выполнить следующие действия:

Пояснения. 1. Для исправления ошибок, замеченных в строках списка, выделенную строку надо удалить из списка, а исправленную строку (т.е. содержимое строки ввода) добавить в список. 2. Новая переменная num необходима для сохранения номера выбранной строки. При внесении изменений выбранной строкой становится строка ввода, для которой ItemIndex = -1.

13. Для кнопок Добавить, Редактировать, Удалить для сохранения внесенных изменений необходимо добавить:

• 14. Запустить программу и убедиться, что если выбрать строку, исправив ее, а затем щелкнуть на кнопке Редактировать, то измененная строка попадет в конец списка.
• 15. Предусмотреть режим работы со списком, допускающий только чтение.

Пояснения. Комбинированные списки бывают 3 типов: простые (simple) — список всегда открыт; раскрывающиеся (drop down) — список свернут; неизменяемые (drop down list) — список свернут и возможен только выбор элемента из списка.

16. В режиме Только чтение, сделать недоступной кнопку Добавить:

Аналогично сделать недоступными кнопки Редактировать, Удалить, Сохранить. 17. Сохранить проект окончательно, запустить и протестировать его.

Задание для самостоятельного выполнения, № 2.

Практическая работа № 3.

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

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

План разработки программы, № 3.

• 1. Открыть новый проект. 2. Разместить в форме экземпляры компонентов в соответствии с рисунком. В Edit1 будем вводить вес в кг, а в Edit2 — рост в см. 3. Сохранить код программы и проект под именами, например, Unit5. pas и Pr5.dpr.
• 4. Ввести в раздел VAR переменные для сохранения значений:

фактического веса (faktW), оптимального веса (optW), роста (Rost) разницы между оптимальным весом и фактическим (Delta).

В начале будем считать, что все данные у нас целые числа: VAR factW, optW, Rost, Delta: integer;

5. Создать процедуру, реагирующую на щелчок по кнопке Button1, и заполнить ее следующим кодом:

Пояснение Функция StrToInt преобразует строку в целое число, функция IntToStr выполняет обратное действие — целое число преобразует в строку. 6. Усовершенствовать программу так, чтобы можно было бы вводить любые десятичные величины. Для этого необходимо использовать вещественный тип переменных Real:

VAR factW, optW, Rost, Delta: real;

Преобразование действительных чисел в строковый тип и строковый тип в действительное число выполняется с помощью функций: FloatToStr и StrToFloat. Внесите соответствующие изменения в обработку события OnClick компонента Button1.

7. Сохранить проект окончательно, запустить и протестировать его.

Задание для самостоятельного выполнения, № 3.

5. В случае преобразования строкового типа в числовой тип может возникнуть ситуация появления ошибки, если введены недопустимые символы. Если функции StrToInt или StrToFloat обнаружат ошибку в записи числа, они инициируют так называемую исключительную ситуацию (исключений), которая обычно приводит к аварийному завершению работы программы.

Обработчик исключений строится в виде таких конструкций:

Try except end; Если при выполнении операторов из защищенного блока возникнет исключение, управление будет передано в блок операторов, располагающийся между except и end, но если обработка пройдет без ошибок, блок исключений игнорируется и управление передается оператору, следующему за end.

Пример использования обработки исключений для процедуры Edit1KeyPressed может выглядеть так:

try FactW:=StrToInt (Edit1.Text); except ShowMessage ('Ошибочная запись числа: ' + Edit1. Text); Edit1. SetFocus; Exit; end;

В результате выполнения.

FactW:=StrToInt (Edit1.Text);

если возникнет исключительная ситуация, то на экране появится окно с текстовым сообщением и кнопкой ОК. После появления окна работа программы приостановится в ожидании реакции пользователя. При вызове стандартной процедуры Exit снова активизируется редактор, в котором обнаружен ошибочный текст. Внесите необходимые изменения для обработки исключительных ситуаций, возникающих при вводе чисел. Внимание! При работе в среде Delphi эксперименты с исключениями плохо прослеживаются, так как при каждом исключении среда перехватывает управление программой. Для отмены этого необходимо в команде Tools/Debugger Language Exceptions убрать флаг у опции Stop on Delphi Exceptions.

• 6. Предусмотрите невозможность ввода отрицательных значений веса и роста.
• 7. Измените алгоритм расчета с учетом Индекса массы тела.

Вес — X, Рост — Y. Индекс массы тела — A, где A = X / Y2 (кг/м2) Результат определяется по таблице:

Практическая работа № 4.

Разработка проекта ТЕСТ ПО ФИЗИКЕ Постановка задачи Создать программу, выполняющую следующие действия. После запуска программы появляется изображение аналогичное рисунку. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку «Физических величин», выбирает любое слово, нажав клавишу Enter.

Затем пользователь переходит в правый список «Названий физических величин» и выбирает соответствующее название ранее выбранной физической величины.

Если выбрано правильное название величины, то под словом «ОЦЕНКА» появляется одобрительная реплика: Правильно, если выбрано неправильное слово, тоОшибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех физических величин и их названий.

План разработки программы, № 4.

1. Открыть новый проект. 2. Разместить в форме компоненты в соответствии с рисунком и присвоить заголовки меткам. Обратите внимание, что заголовки меток Физическая величина и Название величины состоят из двух строк и отцентрированы.

• 4. Сохранить код программы и проект под именами, например, Unit8. pas и Pr8.dpr.
• 5. Запустить программу, затем закрыть окно проекта кнопкой Выход. 6. Выделить ListBox1, в Object Inspector найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ввести физические величины, каждую на новой строке

Сохраните набранный текст под именем Fiz1.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK. 7.

Выделить Listbox2 и проделать с ним аналогичную работу, введя названия физических величин: Сохраните набранный текст под именем Fiz2.txt. 8. Выполнить следующие действия.

В разделе Var переменные Num1, Num2 и CountR объявите как целочисленные перед разделом implementation. 9. Сохранить проект окончательно, запустить и протестировать его.

Задание для самостоятельного выполнения, № 4.