Помогите решить задачи Пожалуйста! В паскале.
6**(х+1) - 6**(х-1) = 35*tg П/4

и такое вот: 3**х - 3**(6/х) = 1

Извините, что не учла правил форума. Впредь повторять такого не буду. Прошу помощи в решение, если хоть кто-то что-то в этом смыслит. Буду благодарна за любое решение или хотя бы совет.

Вы и сейчас не учли - не надо писать в заголовке "Помогите!!!!!!!!". Пожалуйста, внимательнее читайте правила.

В первом уравнении корень единица, это и без паЧкаля видно.
Для второго уравнения вот тебе программка. Это называется "метод половинного деления".
При желании можешь заменить F(x) на заданную в первом уравнении, но не забудь поменять границы интервала [a,b]. (IMG:style_emoticons/default/wink.gif)

program Masha;
uses DOS;
const eps=0.0001;

Function Pow(a : real; b : real) : real;
begin
{ Pow(a,(IMG:style_emoticons/default/cool.gif) == a^b }
Pow := Exp( b * Ln(a));
end;

Function F(x : real) : real;
begin
F := Pow(3,x) - Pow(3,6/x) - 1;
end;

var a, b, x : real;
var fa, fb, fx : real;
var vloop : boolean;

begin
a := 1;
b := 6;
vloop := true;
while (vloop) do
begin
fa := F(a);
fb := F((IMG:style_emoticons/default/cool.gif);
x := (a + (IMG:style_emoticons/default/cool.gif) / 2;
fx := F(x);
vloop := (Abs(fx) > eps);
if (vloop) then
begin
if (fa * fx > 0) then
begin
a := x;
end
else
begin
b := x;
end
end
end;
WriteLn(x, fx);
End.
(IMG:style_emoticons/default/wink.gif)


Опс! Вместо рожи в теле программы надо читать " b ) "