Дмитровский Форум V2

[stog]

Как-то я уже создавал тему. Но ее удалили, вот и пишу заново. Попросила дочь помощи. Кто может - очень поможет и ей и мне. Прошу откликнуться. Проблемка в том, что не знаю, как формулу написать в форуме. Никогда не кидал рисунки на какие либо сервера. Куда лучше разместить на нашем локальном?

[PS]

кинуть наверное можно на странгер, а сюда ссылку. Можно описать словами. Например так:

y=sqrt(Sin(x^3)) + a * (lg(tg(x-10)) + b)

где
sqrt - корень квадратный
^ - возведение левой части в степень, указаную справа
остальное надеюсь не нуждается в расшифровке :)

[stog]

y=sqrt(Sin(x^3)) + a * (lg(tg(x-10)) + b), где

^ - возведение левой части в степень, указаную справа
остальное надеюсь не нуждается в расшифровке

Sin(3^a -Ln(b)), если

. . . . . . . . . . х
a = y + ----------------
. . . . . . y^2,4 + (-------

Нет, нихрена не получается, это не Ворд, здесь ни табулятора, ни даже двойного пробела не поставишь! Не знаю, как сложную дробь обозначить, где в знаменателе тоже дробь и прочее...
А почему на странгере у меня обменник не открывается?

[Гость]

Sin(3^a -Ln(b)), если

. . . . . . . . . . х
a = y + ----------------
. . . . . . y^2,4 + (-------

Нет, нихрена не получается, это не Ворд, здесь ни табулятора, ни даже двойного пробела не поставишь! Не знаю, как сложную дробь обозначить, где в знаменателе тоже дробь и прочее...

Используйте скобочную запись.

Вот то что нарисовано выше в виде скобочной записи:

a=y+(x/(y^2,4+(что-то/нечто)))

главное не ошибиться с количеством скобок. Для этого достаточно сразу ставить пару откр-закр, далее войти внутрь скобок и внутри продолжать писать.

[stog]

Ой, мамочки! Легче Турбо Паскаль изучить. Геморрою-то сколько! Ну признаюсь, специально не кидал никуда картинки кроме галлереи. Ну, давайте в свою галлерею кину, дадут по шапке, удалят, забанят... Но может быть успеете записать, раз никто мыла не дает. Сейчас...
Так, вот:
http://stranger.dmitrov.su/foto/20.10.052301650.jpg
Не ругайтесь, итак весь

[Durak]

Stog, я в привате адрес давал. Проверь.

[stog]

Правда, но ссылка пока действует. Дочка торопит, ей сдавать надо. Она почти сама понимает, просто аккуратная и очень боится ошибиться.
На всякий случай, послал письмо.

[Durak]

Вроде так:

program Prog;
var
A, B, X, Y, Z, Tangens, res: single;

function Power (Base, Exponent: Extended) : Extended;
begin
Power := Exp(Exponent * Ln(Base))
end;

begin
X := 18.671;
Y := 0.02467E3;
Z := Exp(Sin(37 / (180 / Pi)));
A := Y + (X / (Power(Y, 2.4) + Abs(Power(X, 3) / (Y + X))));
Tangens := sin(Z / 3) / cos(Z / 3);
B := 1 + Power(Tangens, 2);
res := Sin (Power(3, A) - Ln(Abs(B)));
WriteLn ('Результат: ', res);
end.

Но писал на скорую руку, так что мог ляпнуться. Пусть повисит, может кто проверит. Ну и дочка пусть просмотрит на предмет, все ли скобки в нужных местах.

[PS]

Извиняюсь не успел посмотреть картинку на странгере. Код рабочий. Ноя бы не стал закладываются на реализацию TP и всё же объявил бы константой Pi.

А вообще дурацкое задание какое-то :(

[stog]

Спасибо огромное и от меня и от дочери!

[stog]

Вот что дочка написала:

" ...программа выдвёт ошибку. Я проверяла, все скобки на месте, вот толкьо мне очень многое не понятно: почему два слова end? Что такое Power, Base, Exponent, Extented, res? Я так и не поняла, что это за вставка.
function Power (Base, Exponent: Extended) : Extended;
begin
Power := Exp(Exponent * Ln(Base))
end;

Я почему спрашиваю, мы в институте таких функций пока не изучали, всё на простейшем уровне.
Ещё раз попробовала набрать, но Паскаль снова выдал ошибку вот в этой фразе..."
Жаль, что я сам в этом не бум-бум

[Isaev]

ну на счет res , вроде все ясно - это переменная, похоже от слова resультат )

[Гость]

Просмотрел все внимательно. Охренел. Преподаватель просит синус от 3^24 градуса? Либо я чего не понимаю, либо задание составлялось абсолютно бездумно (иллюстрация к спору с Ракотом о физиках и лириках).
Если я все понял правильно - версия 2 с "каментами":) Так как не понял, что хочет преподаватель задавая задачу, то не знаю какого результата ожидать. Пересчитал на руках(stog, с тебя текила:), шучу), вроде все сошлось(в пределах точности) с выходом программы. Заменил Extended(вещественный тип большой точности) на Real (меньшая точность). Power - функция вычисления степени. Первый end - end функции. Жаль, что не написал, какое сообщение об ошибке. Компилировал в Borland Pascal 7. Версии ниже у меня нет.

program Prog;
const
ToRad = 57.295779513082320876798154814105;
var
A, B, X, Y, Z, Tangens, res: Real;

{Функция вычисления числа Base в степени Exponent}
function Power (Base, Exponent: Real) :Real; {Начало функции вычисления степени}
{function Power (Base, Exponent: single) : single;} {Начало функции вычисления степени}
begin
Power := Exp(Exponent * Ln(Base))
end; {Конец функции вычисления степени}

begin {Начало основного тела программы}
X := 18.671;
Y := 0.02467E3;
Z := - Exp(Sin(37 / ToRad));
A := Y + (X / (Power(Y, 2.4) + Abs(Power(X, 3) / (Y + X))));
Tangens := sin(Z / 3 / ToRad) / cos(Z / 3 / ToRad);
B := 1 + Tangens * Tangens;
res := Sin ((Power(3, A) - Ln(Abs(B))) / ToRad);
WriteLn ('Результат: ', res);
end. {Конец программы}