1 Востаннє редагувалося kostomaha (01.10.2013 01:30:47)

Тема: Обчислити вираз

Кому не важко, допоможіть будь ласка( зранку потрібно здати
Потрібен код... намагаюся написати самотужки, але все марно.
якщо картинка не завантажилася, то вираз має такий вигляд:

y=arctg(arcsin(x^2)/|a+x-1|)/e^ln(x)+a^(x/a+1)

Post's attachments

Безымянный.png 3.56 kb, 81 downloads since 2013-10-01 

2

Re: Обчислити вираз

Це в школі таке дають чи рівень універу? Може ліцей? Мабуть вам дали більше часу ніж "за ніч". Вираз не складний. Якщо знаєте математику, то не складно буде розібратись.

3

Re: Обчислити вираз

Ото якби написали, що у вас самотужки виходить, то, може, й допомогли б... А так - тільки за гроші:
http://s018.radikal.ru/i504/1305/4e/128b3beefcef.jpg

4

Re: Обчислити вираз

kostomaha написав:

Кому не важко, допоможіть будь ласка( зранку потрібно здати
Потрібен код... намагаюся написати самотужки, але все марно.
якщо картинка не завантажилася, то вираз має такий вигляд:

y=arctg(arcsin(x^2)/|a+x-1|)/e^ln(x)+a^(x/a+1)

В нас на першому курсі універу таке було) вираз дійсно не складний, потрібно просто знати як пишуться правильно ці функції на паскалі і все)

5 Востаннє редагувалося HetmanNet (01.10.2013 18:59:06)

Re: Обчислити вираз

Можна було би в одну стоку впхнути все, але тоді ти уникнеш потреби розповідати байку про те як робив і чому саме так

{
   Рівняння y=arctg(arcsin(x^2)/|a+x-1|)/e^ln(x)+a^(x/a+1).pas
   
   Copyright 2013 Viktor Matvieienko <Hetman.Net@gmail.com>
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.
   
   
}


program replace;
{Зроблено HetmanNet для kostomaha на замовлення replace.org.ua}
{Можна сказати стандартно, окрім Math та ще можна System вхнути, але 
тоді на Linux буде лаятися FreePascal, бо він автоматично і так 
додається}
uses 
    Crt, Math;
{Оголошуємо тип, що юзає Math}
type float = Extended;
{Оголошуємо змінні, що звучать у рівнянні}
var y : float;
var x : float;
var a : float;
{Оголошуємо проміжні змінні, що ніби нам треба}
var var1, var2, var3, var4 : float;
begin
{Вводимо наші вхідні дані, дуже великі не треба}
        Write('Enter X: ');
        Read(x);
        Write('Enter A: ');
        Read(a);
{Рахуємо так, ніби ми у першому класі}
        var1 := a + 1;
        var2 := x / var1;
        var1 := exp(ln(a)*var2);
        var2 := Ln(x);
        var1 := var1 + var2;
        var2 := exp(var1);
        var1 := a + x - 1;
        var3 := Abs(var1);
        var1 := sqr(x);
        var4 := var1 / var3;
        var1 := arctan(var4);
        y := var1 / var2;
{Виводимо результат}
        Write('Result: ');
        WriteLn(y);
        WriteLn;
{Дізнаємося, що винні за відповідь}
        WriteLn('Not made by me. Took from the site "Replace.org.ua". So now obliged to solve three problems to others ignorant on this site.');
end.

Бажаєш перевірки введених даних, кольорів, файне оформлення, коментарі у кожній строчці, і т.п. - готуй гроші :P

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..
Подякували: Адріян Ігорович, Replace2

Re: Обчислити вираз

HetmanNet написав:
Можна було би в одну стоку впхнути все, але тоді ти уникнеш потреби розповідати байку про те як робив і чому саме так

{
   Рівняння y=arctg(arcsin(x^2)/|a+x-1|)/e^ln(x)+a^(x/a+1).pas
   
   Copyright 2013 Viktor Matvieienko <Hetman.Net@gmail.com>
   
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.
   
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA.
   
   
}


program replace;
{Зроблено HetmanNet для kostomaha на замовлення replace.org.ua}
{Можна сказати стандартно, окрім Math та ще можна System вхнути, але 
тоді на Linux буде лаятися FreePascal, бо він автоматично і так 
додається}
uses 
    Crt, Math;
{Оголошуємо тип, що юзає Math}
type float = Extended;
{Оголошуємо змінні, що звучать у рівнянні}
var y : float;
var x : float;
var a : float;
{Оголошуємо проміжні змінні, що ніби нам треба}
var var1, var2, var3, var4 : float;
begin
{Вводимо наші вхідні дані, дуже великі не треба}
        Write('Enter X: ');
        Read(x);
        Write('Enter A: ');
        Read(a);
{Рахуємо так, ніби ми у першому класі}
        var1 := a + 1;
        var2 := x / var1;
        var1 := exp(ln(a)*var2);
        var2 := Ln(x);
        var1 := var1 + var2;
        var2 := exp(var1);
        var1 := a + x - 1;
        var3 := Abs(var1);
        var1 := sqr(x);
        var4 := var1 / var3;
        var1 := arctan(var4);
        y := var1 / var2;
{Виводимо результат}
        Write('Result: ');
        WriteLn(y);
        WriteLn;
{Дізнаємося, що винні за відповідь}
        WriteLn('Not made by me. Took from the site "Replace.org.ua". So now obliged to solve three problems to others ignorant on this site.');
end.

Бажаєш перевірки введених даних, кольорів, файне оформлення, коментарі у кожній строчці, і т.п. - готуй гроші :P

Скільки пафосу :D

7

Re: Обчислити вираз

Останній візит: Вчора 02:47:35