Паскаль Разработка программ с двух- и многоальтернативными разветвлениями


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

Тема: Разработка программ по двух- и много-альтернативными разветвлениями. Цель: Научиться разрабатывать программы по много-альтернативными условиями.

ход работы

1. Создать в своей рабочей папке каталог PRACT07.

2. Запустить среда Delphi и создать новый приложение.

3. Выполнить File — Save All, указав пунктом назначения созданный Вами каталог PRACT07, под именами, которые предлагает среда Delphi.

Задания. Создать форму для выполнения склонение слова.

1. В зависимости от значения целого положительного числа из промежутка от 1 до 10 вывести слово «попугай» в верном падеже.

2. Вывести слово «метр» в верном падеже.Внешний вид входной формы:

Результаты работы программы:

4. На заготовку формы, которая появилась в окне, нужно разместить 2 кнопки Edit (для ввода чисел), а также 2 кнопки Label (для вывода результатов выполнения заданий) и 2 кнопки Button (отменяет слово «попугай» и отменяет слово «Метр»)

5. В данной задачи программируется только обработчик события OnClick кнопок Button. Выбираем этот метод в инспекторе объектов и вписываем необходимый программный код: Задача 1:

Объяснение. В соответствии с лингвистическими правилами для числа 1 нужно писать «1 попугай», для чисел 2, 3, 4 — дописывать слово «попугая», для чисел 5, 6, 7, 8, 9, 10 — слово «попугаев».При введении любых других цифр программа имеет сообщать о некорректности введения.

Задача 2:

Объяснение. В соответствии с лингвистическими правилами для чисел, которые заканчиваются на 1, нужно писать «метр», для чисел, которые заканчиваются на 2, 3, 4 — дописывать слово «метры», для чисел, которые заканчиваются на 5, 6, 7, 8 9 10 — слово

Читать  ПРАКТИЧЕСКАЯ РАБОТА №11 – получение практических навыков по работе с массивами

«Метров». Исключение составляют только числа 11, 12, 13, 14, в которых дописывается слово

«Метров».

6. Сохраним полученный приложение на диске и запустим его на выполнения.

7. Завершить работу со средой Delphi.

8. С операционной оболочки запустить файл с расширением ехе, который образовался в созданной Вами папке PRACT07.Результат работы программы продемонстрировать преподавателю.

9. Навести порядок на рабочем месте.

[Всего голосов: 3    Средний: 5/5]