Задача 1. Обчислити значення виразу (а + 2Ь) / (а - Зb), де а, b - дійсні числа. Програмний код: а :- StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); If a-3*b = 0 Then Label1.Caption:='Вираз значення не має: ділення на нуль’ Else begin z := (a+2*b) /(a-3*b); Label1.Caption := FloatToStr(z); end;

Ответ:

Данный код на языке программирования Delphi вычисляет значение выражения (а + 2Ь) / (а - Зb), где а и b - заданные пользователем действительные числа, введенные в элементы управления Edit1 и Edit2 соответственно.

Если знаменатель выражения равен нулю (a - 3b = 0), то программа выдает сообщение "Вираз значення не має: ділення на нуль" (Выражение не имеет значения: деление на ноль). В противном случае программа вычисляет значение выражения и выводит его на метку Label1 в формате с плавающей запятой с помощью функции FloatToStr.

Заметим, что при использовании этого кода необходимо убедиться, что значения, введенные пользователем в Edit1 и Edit2, действительно являются числами. В противном случае возможны ошибки при выполнении программы.