Question

Скласти будь-який алгоритм з використанням розгалужень в середовищі Lazarus.​

Answer 1

Відповідь:

1.Створіть новий проект у середовищі Lazarus.

2.Додайте на форму два елементи TEdit, та TButton.

3.Додайте обробник події OnClick для кнопки.

4.У тілі обробника події напишіть наступний код:

var

 num1, num2: Integer;

begin

 num1 := StrToInt(Edit1.Text);  

 num2 := StrToInt(Edit2.Text);

 if num1 > num2 then  

   ShowMessage('Перше число більше другого.')

 else if num2 > num1 then  

   ShowMessage('Друге число більше першого.')

 else  

   ShowMessage('Числа рівні.');

end;

5. Запустіть програму та введіть два числа. Натисніть кнопку, щоб побачити результат порівняння.