помогите, составить программу в паскале)

Question

Евгений · Accepted Answer

Вот пример программы в Pascal ABC:

program Decision;
var
a, b, x, y: real;
begin
Write('Введите значение a: ');
Readln(a);
Write('Введите значение b: ');
Readln(b);
Write('Введите значение x: ');
Readln(x);
y := Exp(Abs(a)) * (a + 1 / Sin(x)) * Sqrt(a + b);
Writeln('Значение y равно: ', y:7:3);
Readln;
end.

Анна Крылова · Answer

Всё почти правильно в программе, за исключением: 1. после ввода Х необходимо вставить проверку на 0, так как Sin(0) =0 и будет ошибка при выполнении 1 / Sin(0) = 1 / 0; 2. После ввода значения a и значения b необходимо вставить проверку суммы ( a + b ). Сумма ( a + b ) должна быть всегда положительной.