Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
1

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

26.06.2010, 19:50. Просмотров 566. Ответов 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
Ответы с готовыми решениями:

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

Вычислить значение функции
Выполнить задачу 3 мя спосабами while,repeat,for...

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

Вычислить значение функции
помогите пожалуйста

Вычислить значение функции
составить программу для вычисления значений ф-и F(X) в зависимости от заданного...

14
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
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
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
26.06.2010, 20:29 4
Решения нет
в Паскале будет по русски
1
Хохол
Эксперт С++
475 / 443 / 34
Регистрация: 20.11.2009
Сообщений: 1,292
26.06.2010, 20:32 5
Преподаватель умный - он поймет!
1
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
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
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
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
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
25.08.2010, 15:00 11
Евгений№1, нет, это примитив, читайте учебники, ищите похожие темы, учитесь.
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 15:01  [ТС] 12
...Извините нету времени сейчас это делать,как я понял вы мне не сможете помочь?
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
25.08.2010, 15:03 13
Цитата Сообщение от Евгений№1 Посмотреть сообщение
Извините нету времени сейчас это делать
Ну нет, так нет...
0
Евгений№1
0 / 0 / 0
Регистрация: 25.02.2010
Сообщений: 36
25.08.2010, 15:04  [ТС] 14
Ну тогда извините что отнял у вас время в прошлый раз вы мне тоже так же помогли

Ну а если скажем я сейчас напишу вам задачи (решённые)вы можете их проверить?Что так что не так...
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
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

Вычислить значение функции
Помогите решить задачу. Дано: var x,y,z:real; Вычислить:...

Вычислить значение функции F(x)
Вычислить значение функции F(x)=\begin{cases}-3x+9 &amp; \text{ npu } x\,&gt;\,3...

Вычислить значение функции
Помогите пожалуйста решить! y=\begin{cases}2+4x+0.5x^2 &amp;\ ,\ \ 1\leq x&lt;2\\...


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

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

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