Любовь это лучшее чувство в мире. Любовь заставляет мир вращаться. Это величайшая загадка всех времен. Если вы спросите кого-то "Что такое л юбовь?", он или она вряд ли найдет достаточно слов, чтобы выразить её смысл. Любовь может быть разной. Существует любовь к родителям, любовь к детям, любовь к животным, любовь к друзьям, первая любовь, любовь к мужу или жене, парню или девушке. Когда вы любите кого-то или что-то, то сердце и душа наполняются теплом и добротой. Люди, которые несут любовь в своих сердцах, всегда счастливы и в хорошем настроении. Любовь жить и выживать в трудные моменты нашей жизни. Почти все чувства в мире имеют преимущества и недостатки. Однако у любви только преимущества. Она приносит гармонию и мир. Единственный тип любви, который может быть болезненным – это неразделенная любовь. Это когда вы любите кого-то, но он или она не чувствуют того же по отношению к вам. Это печально, но часто случается. Более того, я думаю, что все люди хотя бы раз в своей жизни испытали одностороннюю любовь. Опять же, я не думаю, что это недостаток любви. Односторонняя любовь учит нас чему-то новому, обогащает жизненным опытом и делает сильнее. Некоторые мудрые люди даже говорят, что односторонняя любовь лучше, чем вообще ничего. Еще один недостаток любви – это его роль в войнах. Много древние войны начинались из-за любви к женщине. И все же, я думаю, что любовь это самое главное в жизни каждого человека. Вот почему поэты слагают стихи, режиссеры снимают фильмы и композиторы пишут песни о ней. Все люди в мире хотят любить и быть любимыми. Когда любовь взаимна, это лучшее, что может случиться с человеком.
Function f(x: real): real; begin f := (x - 3) / (sqr(x) + 2) end;
var a, b, x, fa, fb, fx, eps: real;
begin Write('Введите через пробел границы интервала [a;b] и точность:'); Readln(a, b, eps); fa := f(a); if abs(fa) <= eps then Writeln('x=', a, ', y=', fa) else begin fb := f(b); if abs(fb) <= eps then Writeln('x=', b, ', y=', fb) else if fa * fb > 0 then Writeln('На указанном интервале корней нет') else repeat x := (a + b) / 2; fx := f(x); if abs(fx) <= eps then Writeln('x=', x, ', y=', fx) else if fa * fx > 0 then a := x else b := x; until abs(fx) <= eps end end.
Результат выполнения программы:
Введите через пробел границы интервала [a;b] и точность:-1 4 1e-4 x=2.9990234375, y=-8.88257162245635E-05
