Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
#1

Вычислить значение функции - Pascal

26.06.2010, 19:50. Просмотров 553. Ответов 14
Метки нет (Все метки)

Вычислить значение y
если: y={a^2-b/d -при b>0 Пояснение: a^2 -это a в квадрате.
{a-b-d -при b\<0 b\<0 -это b меньше или равно 0

Заранее спасибо,надеюсь эта задача не утруднит вас,больше ничего не дано.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2010, 19:50
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить значение функции (Pascal):

Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно - Pascal
Значение аргумента выбрать самостоятельно.

Вычислить значение функции - Pascal
Составить программу и вычислить значение функции у y=cosabx при x=5 a=3*(x^3)+4(x^2)+x+1; b=x^3 -x^2+5*x+9; Создаю тему...

Вычислить значение функции - Pascal
оч прошу помогите.... извеняюсь но не могу написать функцию так как надо) по этому так: f(x)=тут фигурная скобка под которой:9 если Х...

Вычислить значение функции - Pascal
Дано:вещественные x,y. Вычислить z=(sign x + (sqrt(sign^2y+1))/(1+(sqrt(3+signx+signy)) ,где sign a = -1,при а&lt;0 0,при...

Вычислить значение функции - Pascal
привет, объясните, поставили задачу сделать программу, а математику уже подзабыл Ввести произвольное значение х и вычислить значение...

Вычислить значение функции - Pascal
Ввести с клавиатуры массив X,содержащий 20 элементов.Вычислить значение функции y=0.5 LN x при значениях аргумента,заданных в массиве X и...

14
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
26.06.2010, 20:04 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,b,d,y:real;
begin
writeln('a,b,d');
readln(a,b,d);
if (b>0) then
 begin
  if (d=0)then 
   begin
    write('ђҐиҐ*Ёп *Ґв');
      readln;
      exit;
   end
  else y:=a*a-b/d;
 end
else y:=a-b-d;
write('y=',y:0:2);
readln
end.
1
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
26.06.2010, 20:28  [ТС] #3
Цитата Сообщение от Puporev Посмотреть сообщение
'ђҐиҐ*Ёп *Ґв'
чТО ЭТО?)
0
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
26.06.2010, 20:29 #4
Решения нет
в Паскале будет по русски
1
Хохол
Эксперт С++
475 / 443 / 13
Регистрация: 20.11.2009
Сообщений: 1,292
26.06.2010, 20:32 #5
Преподаватель умный - он поймет!
1
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
26.06.2010, 20:36 #6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a,b,d,y:real;
begin
writeln('a,b,d');
readln(a,b,d);
if (b>0) then
 begin
  if (d=0)then 
   begin
    write('Решения нет');
          readln;
          exit;
   end
  else y:=a*a-b/d;
 end
else y:=a-b-d;
write('y=',y:0:2);
readln
end.
Добавлено через 1 минуту
В следующий раз мозг включай и ерунду не спрашивай, даже если бы на китайском написал, то по коду смысл все равно тот же
1
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
26.06.2010, 20:39  [ТС] #7
Спасибо =)
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 14:16  [ТС] #8
Вычислить значение y:
Если:
y=a2-b/d при b>0
_________
y=a-b-d при b\<0


Важно!
a2 это: а в квадрате
b/d это: b делить на d
b\<0 это:b меньше или равно нуля!

Пожалуйсто это очень важно,сам справиться не смогу..
0
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
25.08.2010, 14:21 #9
Pascal
1
2
3
4
5
6
7
readln(a,b,d);
if b>0 then 
 begin
  if d=0 then writeln('Решений нет!')
  else y:=a*a-b/d;
 end
else y:=a-b-d;
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 14:58  [ТС] #10
выдаёт ошибки,эта вся полностью программа?Пожалуйсто если вас не затруднит напишите всё.,
0
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
25.08.2010, 15:00 #11
Евгений№1, нет, это примитив, читайте учебники, ищите похожие темы, учитесь.
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 15:01  [ТС] #12
...Извините нету времени сейчас это делать,как я понял вы мне не сможете помочь?
0
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
25.08.2010, 15:03 #13
Цитата Сообщение от Евгений№1 Посмотреть сообщение
Извините нету времени сейчас это делать
Ну нет, так нет...
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 15:04  [ТС] #14
Ну тогда извините что отнял у вас время в прошлый раз вы мне тоже так же помогли

Ну а если скажем я сейчас напишу вам задачи (решённые)вы можете их проверить?Что так что не так...
0
Puporev
Модератор
53020 / 40831 / 14075
Регистрация: 18.05.2008
Сообщений: 94,978
25.08.2010, 15:11 #15
Создайте новую темы, выложите условия задач и код, только если их много, то лучше порциями в разные темы.

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,b,d,y:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,d);
if b>0 then 
 begin
  if d=0 then
   begin
    writeln('Решений нет!');
    readln;
    exit;
   end
  else y:=a*a-b/d;
 end
else y:=a-b-d;
write('y=',y:0:2);
readln
end.
1
25.08.2010, 15:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.08.2010, 15:11
Привет! Вот еще темы с ответами:

Вычислить значение функции - Pascal
w=\left\{\begin{matrix}a{x}^{2}+bx+c &amp; x&lt;1,2\\ a/x+\sqrt{{x}^{2}+1} &amp; x=1,2 \\ (a+bx)/\sqrt{{x}^{2}+1} &amp; x&gt;1,2\end{matrix}\right. К этой...

Вычислить значение функции - Pascal
Ребят помогите надо . составить программу для вычисления значения функции

Вычислить значение функции - Pascal
Дано действительное число a.Вычислите f(a), если f(x)= { x^2 при -2&lt;=x&lt;2 { 4 в противном случае

Вычислить значение функции - Pascal
f(x)=arctg(6x+3)/(5x*{E}_{-0,3*x})


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru