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.
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 кВт. часов электроэнергии.
Ввели 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).