
Практическая работа в Lazarus, целью которой является создание программы, которая будет автоматически переводить год календаря Хиджры в год по европейскому (Григорианскому) календарю, и наоборот.
Для этого воспользуемся формулами
Q = Х − Х/33 + 622 Х = Q − 622 + (Q − 622)/32
Таким образом ваша новая программа должна будет переводить год календаря Хиджры (X) в год по Григорианскому календарю (Q), и наоборот, а также отображать результаты вычислений на экране.
- Запустите программу Lazarus.
- Для создания нового проекта выберите команду меню File-New…
(Файл-Создать…). Откроется соответствующее диалоговое окно. - Выбрав из списка пункт Project-Application (Проект-Приложение), щелкните по кнопке ОК. Будет создан новый проект.
- Сохраните новый проект в папке Сalendar. Для этого используйте команду File-Save As (Файл-Сохранить как …).
- Используя предложенную таблицу, измените свойства формы.
- Используя вкладку Standard палитры компонентов, создайте два объекта – ярлыки Label1 и Label2.
- Используя во вкладке Standard компонент TEdit, создайте после объекта Label1 объект Edit1. Точно так же создайте после объекта Label2 объект
Edit2. - Используя компонент TButton, создайте перед объектом Edit1 объект Button1. Аналогично создайте перед объектом Edit2 объект Button2.
Выровните объекты относительно друг друга.
В результате получится приблизительно такой вид:
- Выделите объект Label1 и измените его текст на Год Хиджры.
Аналогично измените текст объекта Label2 на Григорианский год. - Выделите объект Button1 и измените его текст на В Григорианский.
Аналогично текст объекта Button2 замените на В Хиджры. - Выделите объект Edit1 и в значении его свойства Text поставьте пробел. Повторите эти действия с объектом Edit2. В итоге интерфейс программы готов.
Программа должна работать так: в текстовом поле Год Хиджры записывается любая дата, например, 1419. Для того чтобы узнать, какому году будет соответствовать этот год по Григорианскому календарю, щелкните по кнопке В Григорианский. В текстовом поле Григорианский год появится год по европейскому календарю (например, 1998).
- Для создания обработчика события OnClick для кнопки В Григорианский (Button1) дважды щелкните по объекту В Григорианский (Button1).
Управление перейдет к редактору исходного кода. - Процедуру TForm1.Button1Click составьте так, как указано ниже:
[html]procedure TForm1.Button1Click(Sender: TObject);
var
Х, Q: integer;
begin
Х := StrToInt(Edit1.Text);
Q := Х–(Х div 33) + 622;
Edit2.Text := IntToStr(Q);
end;[/html] - Для создания обработчика события OnClick для кнопки В Хиджры (Button2) дважды щелкните по объекту В Хиджры (Button2).
Управление перейдет к редактору исходного кода. - Процедуру TForm1.Button2Click составьте так, как указано ниже:
[html]procedure TForm1.Button2Click(Sender: TObject);
var
X, Q: integer;
begin
Q := StrToInt(Edit2.Text);
X: = Q–622+(Q–622) div 32;
Edit1.Text := IntToStr(X);
end;[/html]