Цель: приобретение практических навыков разработки приложений с использованием встроенных диалоговых окон

Краткие сведения:

Встроенные диалоговые окна ввода-вывода текста

ShowMessage(const Msg : WideString) отображает простое окно сообщения с кнопкой OK. Заголовок окна совпадает с именем выполняемого файла приложения.

1. ShowMessage('Работа приложения успешно завершена.');

2. ShowMessage('Задано ' + IntToStr(N1) + ' параметров из ' + IntToStr(N2)); // N1 и N2 - целые переменные содержат соответствующие числа, //которые переводятся в строки функцией IntToStr.

3. ShowMessageFmt(const Msg:WideString; Params:array of const) отображает окно сообщения с кнопкой OK.

4. MessageDlg(const Msg: WideString; AType: TMsgDlgType;AButtons: TMsgDlgButtons; HelpCtx: Longint) отображает диалоговое окно и ожидает ответа пользователя. Сообщение в окне задается параметром функции Msg. Вид отображаемого окна задается параметром AType.

Возможные значения этого параметра:
Параметр Msg задает строку описания формата, а параметр Params задает массив параметров, форматируемых строкой Msg.

Возможные значения этого параметра:

mtWarning - Окно замечаний, содержащее желтый восклицательный знак.

mtError - Окно ошибок, содержащее красный стоп-сигнал.

mtInformation - Информационное окно, содержащее голубой символ "i".

mtConfirmation - Окно подтверждения, содержащее зеленый вопросительный знак. mtCustom - Заказное окно без рисунка. Заголовок соответствует имени выполняемого файла приложения.

Параметр AButtons определяет, какие кнопки будут присутствовать в окне.

Тип TMsgDlgBtns параметра AButtons является множеством, которое включает различные кнопки.

Возможные значения видов кнопок:

mbYes - Кнопка с надписью 'Yes'

mbNo - Кнопка с надписью 'No

' mbOK - Кнопка с надписью 'OK'

mbCancel - Кнопка с надписью 'Cancel'

mbHelp - Кнопка с надписью 'Help'

mbAbort - Кнопка с надписью 'Abort'

mbRetry - Кнопка с надписью 'Retry' mbIgnore - Кнопка с надписью 'Ignore'

mbAll - Кнопка с надписью 'All'

Список необходимых кнопок заключается в квадратные скобки [ ], поскольку параметр AButtons является множеством. Если внутри скобок список отсутствует, в окне не будет ни одной кнопки и пользователю придется закрывать окно системными кнопками Windows. Кроме множества значений, соответствующих отдельным кнопкам, в Delphi определены три константы, соответствующие часто используемым сочетаниям кнопок: Значение Описание

mbYesNoCancel Включает в окно кнопки

Yes, No и Cancel mbOkCancel Включает в окно кнопки OK

Cancel mbAbortRetryIgnore Включает в окно кнопки Abort, Retry и Ignore

Примеры:

if MessageDlg('Действительно хотите закончить приложение?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg('Работа приложение закончена', mtInformation, [mbOk], 0);

Close;

end;

Задание 1:

1 - вариант

Hайти минимальное из 5-ти чисел. Вывести результат.

2- вариант

Введите четыре вещественных числа. Определите можно ли построить четырехугольник с длинами сторон, равными этим числам.

3 - вариант

Заданы тарифы на оплату электроэнергии. Если использовано от 1 до 100 киловатт-час (кВт. час), то плата А рублей за каждый кВт. час. Если использовано больше 100 кВт. час, то за каждый кВт. час от 101 до 200 - плата B руб. а за каждый кВт. час свыше 200 - плата C руб. Составьте программу, вычисляющий, сколько надо заплатить за ис­пользование N кВт. часов электроэнергии.

4 - вариант

Решить невырожденное (т.е. а¹0) квадратное неравенство ax²+bx+c>0.

5 - вариант

Ввели 6-ти значное число. Является ли оно счастливым, т.е. равна ли сумма первых 3-х цифр сумме 3-х последних.

6 - вариант

Ввели 6-ти значное число. Является ли оно перевертышем, т.е. одина­ково читается как справа налево, так и слева направо.

7 - вариант

Заданы тарифы на перевозки грузов. За перевозку тонны груза на расстояние от 1 до 1000 километров (км) плата А рублей за каждый км. Если груз перевозится на расстояние больше 1000 км, то за каждый км от 1001 до 2001 перевозка тонны груза стоит B рублей за каждый км., а за каждый км свыше 2000 перевозка тонны груза стоит C руб. за км. Составьте алгоритм, вычисляющий, сколько надо заплатить за пере­возку одной тонны груза на N км.

8 - вариант

Электронные часы показывают P часов, M минут, S секунд. Напишите программу, вычисляющую время в часах, минутах и секундах, которое будут показывать часы через 2 минуты 10 секунд.

9 - вариант

Поле шахматной доски определяется парой (m, n) натуральных чисел (m от 1 до 8, n от 1 до 8). Первое число - номер строки (номер гори­зонтали), второе число - номер столбца (номер вертикали). Даны натураль­ные числа k, l, m, n, каждое из которых не больше 8. Определить, угрожает ли полю (m,n) ферзь, находящийся на поле (k,l).

10 - вариант

В кассе имеются только 3-х и 5-ти рублевые купюры (как это было в 1980 году). Составить программу, которая бы "выплачивала" такими купю­рами любую сумму более 7 рублей.

11 - вариант

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

12 - вариант

Можно ли коробку размером a´b´c упаковать в посылку размером r´s´t? «Углом» укладывать нельзя.

13 - вариант

Можно ли на прямоугольном участке застройки размером a´b разместить два дома размерами p´q и r´s метров? Дома можно располагать только параллельно сторонам участка.

14 - вариант

Для данного натурального числа проверить, делится ли оно на числа: 2, 3, 5, 6, 9.

15 - вариант

По введенному номеру группы выдать сообщение: на каком факультете и на каком курсе учится студент

Задание 2:

1 – вариант

Кузнечик находится в центре круглого стола. Затем он делает N прыжков на се-вер, потом E прыжков на восток, потом S прыжков на юг, потом W прыжков на запад. Определить, остался ли кузнечик на столе после всех прыжков.

2 – вариант

Все стены дома имеют длину 5 м. Человек прошел от юго-восточного угла домаАметров на юг, В метров на восток и С метров на север и посмотрел на свой дом. Написать программу, которая определяет, какие стены (северную, западную, южную, восточную) увидит человек.

3 - вариант

Человек находится в центре поля, ограниченного рвом, со сторонами параллелными сторонам света. Он задумал выполнить сначала N шагов на север, потом E - на восток, потом S - на юг, потом W - на запад. Сможет ли человек выполнить задуманное?

4 - вариант

Автомат проводит кистью по отрезку [10,80] от точки A до точки B, а потом от точки C до точки D. Написать программу, которая определяет, какая часть отрезка окрашена.

5 –вариант

Тонкая синяя стена высотой 3 м и длиной 6 м (ось X) и тонкая зеленая стена вы-сотой 3 м и длиной 3 м (ось Y) образуют прямой угол. Что увидит человек, сто-ящий в точке с целочисленными координатами X, Y и смотрящий в сторону угла (начала координат)?

6 - вариант

Шоссе соединяет пункт А и B по прямой. АТС находится в точке С. Радио-телефон может работать на расстоянии N метров от АТС. Можно ли поговорить на дороге из А в B? Если да, то на каком расстоянии от пункта А лучше всего ве-сти переговоры?

7 – вариант

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

8 - вариант

Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

9 - вариант

Определить, является ли целое число N четным двузначным числом.

10 - вариант

Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц оплачиваются В р., а разговоры сверх установленной нормы оплачиваются, из расчета С р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

11 - вариант

Грузовой автомобиль выехал из одного города в другой со скоростью v1 км/ч. Через t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую, догонит ли легковой автомобиль грузовой через 1 ч после своего выезда.

12 - вариант

Составить программу, определяющую результат гадания на ромашке — «любит — не любит», взяв за исходное данное количество лепестков.

13 – вариант

Вычислите площадь кольца. Программа должна проверять правильность исходных данных.

14 – вариант

Найдите решение уравнения ах + b = 0, если оно существует

15 – вариант

Выясните, попадает ли точка М(x, y) в круг радиусом r с центром в точке (x0,y0).

Контрольные вопросы:

1. Какие диалоговые окна используются

2. Формат ShowMessage

Поиск по сайту: