лабораторная работа 3

11

Практическое задание № 14.

Написать программу «Электронные часы», в окне которой отображается текущее время, дата и день недели. Использовать функции: Now – для получения системного времени; FormatDateTime (‘hh:mm:ss’,

Time); DecodeDate(Present, Year, Month, Day) – функция декодирования даты; DayOfWeek(Present), а

также константы в виде массивов:

stDay : array[1..7] of string[11] = ('воскресенье', 'понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота');

stMonth : array[1..12] of string[8] = ('января','февраля','марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября', 'декабря');

Практическое задание № 15.

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

Ввести в однострочный редактор значение в километрах, при нажатии кнопки рассчитать версты в Label1 должен отобразиться текст из

Edit1.

Для этого в разделе переменных объявим переменные

var

x, y : real;

// Обработчик события OnClick объекта Button1.

procedure TForm1.Button1Click(Sender: TObject); begin

x := StrToFloat(Edit1.Text);

//использование функции перевода из строкового типа в вещественное число y := x/1.0668;

label1.Caption := FloatToStrF(y, ffnumber,8,3 );

//функция преобразовывает значение с плавающей точкой, указываемое параметром y, в

//строку в соответствии с заданным форматом (8 – точность, 3 – разряд)

end;

end.

Сохраните проект в новой папке. Запустите компиляцию проекта. Выполните запуск программы.

12

Самостоятельная работа № 13: Написать программу, которая пересчитает массу из фунтов в килограммы (1 фунт = 409,5 грамм). Программа должна быть спроектирована таким образом, чтобы кнопка Пересчет была доступна только в том случае, если пользователь ввел исходные данные.

Рекомендуемый вид формы:

Label 1

Label 2

Самостоятельная работа № 14: Написать программу, которая производит вычисление массы как в результате щелчка на кнопке Пересчет, так и при нажатии клавиши <Enter> после ввода последней цифры в поле Edit. Если в поле Edit нет исходной информации, то программа должна выводить диалоговое сообщение с одной кнопкой ОК и текстом сообщения ‘Надо ввести массу’.

Выполнить это с использованием вызова функции ShowMessage.

Самостоятельная работа № 15: Написать программу, которая вычисляет площадь поверхности и объем цилиндра (воспользоваться математическими функциями Pi и sqr)

S = 2* * R*(h + r); V = *R2 *h

Самостоятельная работа № 16: Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующее название времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение «Ошибка ввода данных». Использовать оператор If. Альтернативой в этой обработке будет использование оператора Case. Реализовать оба варианта и сделать вывод, какой работает эффективнее.

Самостоятельная работа № 17: Написать программу, которая выполнит: деление двух

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

Самостоятельная работа № 18: Используя оператор выбора, составить программу, которая выводит на экран агрегатное состояние воды (лед, жидкость, пар) в зависимости от введенной пользователем температуры.

Самостоятельная работа № 19: Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «копейка» в правильн ой форме. Например, 5 копеек, 3 копейки, 21 копейка.

Самостоятельная работа № 20: Написать программу, которая 10 раз выводит на экран фразу «Каждый охотник желает знать, где сидят фазаны», причем каждое слово должно быть выведено подходящим цветом – красный, оранжевый, желтый, зеленый, голубой, синий, фиолетовый. Использовать компонент RichEdit.

13

Самостоятельная работа № 21: Написать программу «Калькулятор», выполняющую арифметические действия над вводимыми аргументами (+, -, /, *).

Рекомендуемый вид формы приведен на рисунке.