Создание приложения для нахождения корней квадратного уравнения.
Цель урока: Изучить использование алгоритмической конструкции ветвления для решения математических задач, применение в расчетах стандартных функций Паскаля.
З
адание.
Создать проект решения квадратного
уравнения.
Этот проект аналогичен предыдущему. Обратить внимание на то, что при визуализации решения уравнения должны высвечиваться только нужные ответы, остальные невидимы. Предусмотреть работу кнопки очистки окон ЕЩЕ РАЗОК.
ВОПРОСЫ:
Использование операторов условного перехода при написании программ.
Свойства и методы компонента класса TEdit.
Создание инженерного калькулятора
Цель занятия: с помощью языка программирования Delphi создание калькулятора.
Д
ля
выполнения задания необходимо: Поместить
следующие компоненты на форму:
для ввода чисел Edit1;
для ввода цифр числа 10 компонентов класса TSpeedButton; для каждой кнопки изменить свойство Caption на название кнопок: от 0 до 9.
для выбора операций (+,-,*,/) 4 кнопки класса TButton; измените свойство Tag на 0 (для кнопки +), 1 (для кнопки -), 2 (для кнопки *) и 3 (для кнопки /).
компонент BitBtn1 для «=»;
ещё одну кнопку Clear для очистки.
кнопки для выполнения следующих операций: присваивание знака + или – введённому числу; М-, М+ для запоминания числа; МR, MC – для вывода информации из памяти и сброса памяти. Интерфейс формы:
Напишите следующие процедуры:
На событие нажатия кнопки с подписью 1 напишите процедуру:
procedure TForm1.SpeedButton1Click (Sender: TObject);
begin
if (Sender is TSpeedButton) then Edit1.Text:=Edit1.Text + (Sender as TSpeedButton).Caption; end;
Все остальные кнопки «связать» с написанной процедурой.
На события выбора операции с надписью «+» написать процедуру:
procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
Edit1.Clear;
If (Sender is tButton)
then case (Sender as TButton).Tag of
0 : Znak := '+';
1 : Znak := '-';
2 : Znak := '*';
3 : Znak := '/';
else ;
end;
end;
Все остальные кнопки «связать» с написанной процедурой».
На событие нажатия кнопки с надписью «=» напишите процедуру:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
b := StrToFloat(Edit1.Text);
Edit1.Text := '';
case Znak of
'+': Rezult := a + b;
'-': Rezult := a - b;
'*': Rezult := a * b;
'/': Rezult := a / b;
end;
Edit1.Text := FloatToStr(Rezult);
end;
Для очистки Edit1 написать программу самостоятельно.
Добавить на форму кнопки для выполнения следующих операций:
нахождение квадратного корня от введённого числа;
нахождение процента от введённого числа;
нахождение значения 1/x.
Примечание: используемые переменные требуется описать в разделе описания переменных.
ВОПРОСЫ.
Свойства и методы компонента класса TSpeedButton.
Как связать событие нажатия кнопки с уже написанной процедурой.
Изучение компонента Image и его свойств.
Цель урока: Изучить компонент Image, его свойства.
З
адание
1.
Создать проект «Телевизор»,
в котором при переключении каналов
(щелчки на кнопках) появляются разные
картинки. Кнопка ВЫКЛ – выключает все
картинки.
-Для решения задачи требуется добавить на форму следующие компоненты: Panel (Standart), 5 кнопок BitBtn (Additional), 3 Image (Additional).
Метод решения:
-На панель наложить три Image. В каждый загрузить рисунок (свойство Picture). Рисунок можно найти на диске или нарисовать. Если рисунок не помещается в Image, то свойство Stretch (растяжка) настроить True.
-Свойство Visible (видимость) для всех Image настроить False.
-Написать обработчики для кнопок переключения каналов событие On Click (щелчок). Нужный Image становится видимым, а остальные – невидимыми.
-При щелчке на кнопке ВЫКЛ все Image становятся невидимыми.
Задание 2. Создать проект «Судьба», в котором при щелчке на выбранном направлении движения появляется предсказание и рисунок.
Для решения задачи требуется добавить следующие компоненты: Shape, 3 кнопки BitBtn (Additional), 3 Image (Additional), 3 Label (Standard). Эта задача аналогична предыдущей, выполните ее самостоятельно.
ВОПРОСЫ:
Свойства и методы компонента класса TImage
Как добавить рисунок на данный компонент.