Добрый вечер, помогите мне!Нужно написать код для программы Pascal ABC, нужно написать...

Question

Добрый вечер, помогите мне!
Нужно написать код для программы Pascal ABC, нужно написать код для решения этого уравнения. Спасибо!

---

Comments

еще актуально?

---

Да.

---

ща сделаю)

---

Спасибо)

Answer 1

Write ('Vvedite pologitelnoe chislo: '); readln (x);
if x < 0 then write 'Vvedite pologitelnoe chislo' else
// проверка x > 0 обязательна, потому что иначе логарифм не определен.
begin
   if x < 1 then y = log(x)/log(10) + 2*x*x
   if x = 1 then y = 2*a*cos(x) + 3*a;
   if x > 1 then y = (a*x+b)/(x*x-1);
end;
write y;
end.