Разработать алгоритмы и программы для вычисления математических выражений на языке Turbo Pascal

+ 0 -

Nelgovka1

27 сент. 2013 г., 14:16:07 (10 лет назад)

var
  a, b, x, y: real;

begin
  Write('Введите через пробел значения a и b: ');
  Readln(a, b);
  if a < b then x := 2 * a * +2 * b
  else
  if a = b then x := 18
  else x := a * b - 45;
  Write('x=', x:0:5);
  if x <= 0 then Writeln(', при x<=0 вычислить y невозможно')
  else
  begin
    if (x > 0) and (x < 1) then y := x - ln(x) {в формуле log, но основание не указано}
    else y := ln(x) + x;
    Writeln(', y=', y:0:5)
  end
end.

Тестовое решение:

Введите через пробел значения a и b: 3 6.4
x=76.80000, y=81.14120

Введите через пробел значения a и b: 8 4
x=-13.00000, при x<=0 вычислить y невозможно