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

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

30.04.2011, 15:48. Показов 1039. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание на картинке...
Миниатюры
Написать программу табулирования сложной функции  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2011, 15:48
Ответы с готовыми решениями:

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

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

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

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

5
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.04.2011, 16:24 2
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
uses crt;
var x,s1,s2,t,z:real;
    n:byte;
begin
clrscr;
x:=2;
while x<=3.5 do
 begin
  s1:=0;
  t:=1;
  for n:=1 to 8 do
   begin
    t:=t*x;
    s1:=s1+t/(2*n);
   end;
  s2:=0;
  t:=1;
  for n:=1 to 6 do
   begin
    t:=t*x*x;
    s2:=s2+t/(4*n);
   end;
  z:=x*s1/2+(x*x+1)*s2/3;
  writeln('x=',x:4:1,' z=',z:9:2);
  x:=x+0.5;
 end;
readln
end.
1
3 / 3 / 0
Регистрация: 26.04.2011
Сообщений: 95
30.04.2011, 16:32  [ТС] 3
Спасибо!!
А теперь можно оформить как процедуру?
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.04.2011, 16:46 4
А сразу конечно влом написать...

Добавлено через 43 секунды
Или пиши условие буковка в буковку, или отдыхай...
0
3 / 3 / 0
Регистрация: 26.04.2011
Сообщений: 95
30.04.2011, 16:46  [ТС] 5
Мне надо и с процедурой и без нее
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
30.04.2011, 16:54 6
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
uses crt;
Procedure Tab(a,b,h:real);
var x,s1,s2,t,z:real;
    n:byte;
begin
x:=a;
while x<=b do
 begin
  s1:=0;
  t:=1;
  for n:=1 to 8 do
   begin
    t:=t*x;
    s1:=s1+t/(2*n);
   end;
  s2:=0;
  t:=1;
  for n:=1 to 6 do
   begin
    t:=t*x*x;
    s2:=s2+t/(4*n);
   end;
  z:=x*s1/2+(x*x+1)*s2/3;
  writeln('x=',x:4:1,' z=',z:9:2);
  x:=x+h;
 end;
end;
begin
clrscr;
Tab(2,3.5,0.5);
readln
end.
1
30.04.2011, 16:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2011, 16:54
Помогаю со студенческими работами здесь

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

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

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

Разработать программу табулирования функции
Разработать программу табулирования функции q=max(x+y+z,x*y*z)/min(x+y+z,x*y*z)


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

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

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