0 / 0 / 0
Регистрация: 29.01.2013
Сообщений: 41
1

. Написать программу табулирования сложной функции

18.06.2013, 00:36. Показов 1393. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Функция на картинке
Миниатюры
. Написать программу табулирования сложной функции  
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2013, 00:36
Ответы с готовыми решениями:

Написать программу табулирования сложной функции
uses crt; var a,b,y,n,E: integer; begin Clrscr; x:=-1; if x<0,5 then...

Написать программу табулирования сложной функции
Задание на картинке...

Написать программу табулирования сложной функции
Программисты напишите код пожалуйста. 4 . Написать программу табулирования сложной функции

Программа табулирования сложной функции
Помогите пожалуйста, доделываю ргз и последнее задание -написать программу табулирования сложно й...

1
Модератор
9597 / 4921 / 3246
Регистрация: 17.08.2012
Сообщений: 15,361
18.06.2013, 01:53 2
Лучший ответ Сообщение было отмечено Dany Ocean как решение

Решение

Если табулирование, то где шаг и интервал табуляции? Вот Вам программа вычисления (не табулирования) этой функции:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
program FF;
 
uses crt;
 
//объявление переменной
var x: real;
 
//функция
function y(var x: real): real;
 
//объявление локальных переменных
var n: integer; //счётчик
    xn: real; //x^n
 
begin
  result := 0.0;
  if (x > 0.1) and (x < 1.0)
    then
      begin
        xn := x;
        if x < 0.5
          then
            begin
              for n := 0 to 10 do
                begin
                  result := result + xn / (2 * n + 3);
                  xn := xn * x;
                end;
            end
          else
            begin
              for n := 1 to 7 do
                begin
                  result := result + (xn + xn * xn) / (8 * n + 1);
                  xn := xn * x;
                end;
              result := result * (x + 1.0) / 3.0;
            end;
      end;
end;
 
//главная программа, вызывающая функцию
begin
  write('x = ');
  readln(x);
  writeln('Y = ', y(x));
  readln; //ждём реакцию пользователя для закрытия программы
end.
Программу можно использовать и для табуляции функции, если переписать главную программу.

Успехов.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2013, 01:53
Помогаю со студенческими работами здесь

Программа табулирования сложной функции
Написать программу табулирования сложной функции. Здравствуйте. Мне нужно написать программу...

Написать и отладить программу для табулирования функции
1)написать и отладить программу для табулирования функции y=ln (2x2 +3x-5) для xв интервале с...

Подпрограммы-функции^ Составить программу табулирования функции на данном отрезке с данным шагом
Составить программу табулирования функции на данном отрезке с данным шагом: y=e^x+1 на интервале...

Составить программу табулирования функции
Составить программу табулирования функции. Заранее огромное спасибо! Составить программу...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru