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

Составить программу для табулирования функции двух переменных

28.10.2014, 19:36. Показов 1453. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу для табулирования заданной функции двух переменных F(x, z). Во внешнем цикле изменять х от 1 до 2.2 с шагом 0.3, во внутреннем - z от 0.6 до 2.2 с шагом 0.2. Для контроля приведено значение функции в точке (1, 0.6).


https://www.cyberforum.ru/cgi-bin/latex.cgi?F(x,\,z)=\sqrt{\frac{z}{x}}-\left|\cos \frac{\pi z}{x+2.1} \right|+1.7\\F(1,\,0.6)=1.6538
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2014, 19:36
Ответы с готовыми решениями:

Составить программу расчёта значений функции двух переменных с использованием операторов цикла
Составить программу расчёта значений функции двух переменных z=f(x,y) с использованием операторов...

Составить программу табулирования двух функций s и y в заданном диапазоне
Составить программу табулирования двух функций s и y в заданном диапазоне изменения аргумента x....

Составить программу табулирования функции
Составьте программу табулирования функции z=f(x,y) в прямоугольнике x с шагом табулирования h....

Составить программу табулирования функции
Используя цикл с постусловием, составить программу табулирования функции f(x)=x sin(x) на отрезке ...

3
13 / 13 / 24
Регистрация: 13.03.2013
Сообщений: 103
28.10.2014, 20:42 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program prim;
 
 var x,z, f:real;
 begin
 x:=1;
 while x<=2.2 do
 begin
 z:=0.6;
 while z<=2.2 do
 begin
  f:=sqrt(z/x)-abs(cos((3.14*z)/(x+2.1)))+1.7;
  writeln('f(',x,',',z,')=',f);
  z:=z+0.2;
  end;
 
  x:=x+0.3;
 end;
 
 end.
Результат -

f(1,0.6)=1.65365717044365
f(1,0.8)=1.90516243494211
f(1,1)=2.17060006068793
f(1,1.2)=2.44756179363746
f(1,1.4)=2.7310772497415
f(1,1.6)=2.91508287195419
f(1,1.8)=2.79188360667798
f(1,2)=2.67474215386033
f(1,2.2)=2.57202789598831
f(1.3,0.6)=1.52900116115006
f(1.3,0.8)=1.74520321316096
f(1.3,1)=1.97404963582199
f(1.3,1.2)=2.21452745454913
f(1.3,1.4)=2.46345534829641
f(1.3,1.6)=2.71638577209634
f(1.3,1.8)=2.78526805679961
f(1.3,2)=2.66758556699856
f(1.3,2.2)=2.55607165400415
f(1.6,0.6)=1.43923239558134
f(1.6,0.8)=1.62885474071454
f(1.6,1)=1.82957162828956
f(1.6,1.2)=2.04127834448228
f(1.6,1.4)=2.2619987668914
f(1.6,1.6)=2.48864752300231
f(1.6,1.8)=2.71744487507622
f(1.6,2)=2.6918701369334
f(1.6,2.2)=2.58068677369142
f(1.9,0.6)=1.37083653074769
f(1.9,0.8)=1.53968150353502
f(1.9,1)=1.71808798094281
f(1.9,1.2)=1.90654768390765
f(1.9,1.4)=2.10390797343989
f(1.9,1.6)=2.30804012242522
f(1.9,1.8)=2.5161862315597
f(1.9,2)=2.72518202537442
f(1.9,2.2)=2.62048594352322
f(2.2,0.6)=1.31669042540967
f(2.2,0.8)=1.46886141488016
f(2.2,1)=1.62918056622934
f(2.2,1.2)=1.79853435347548
f(2.2,1.4)=1.9763411440092
f(2.2,1.6)=2.16115280242104
f(2.2,1.8)=2.35095569376629
f(2.2,2)=2.54335508572388
f(2.2,2.2)=2.6642922913739
0
0 / 0 / 0
Регистрация: 28.10.2014
Сообщений: 18
29.10.2014, 08:35  [ТС] 3
Спасибо!
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7534 / 4394 / 2785
Регистрация: 22.11.2013
Сообщений: 12,588
Записей в блоге: 1
29.10.2014, 12:18 4
light_girlz,
то, что выдаст TP, сильно отличается от приведенного в сообщении

Функции 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
29
30
31
32
const
  xb=1.0; xe=2.2; xh=0.3; zb=0.6; ze=2.2; zh=0.2; W=7; D=4;
var
  x, z, f: Real;
  xd, zd: Boolean;
begin
  { выводим заголовки колонок }
  Write('x\z':W); z:=zb; zd:=True;
  repeat
    Write(z:W:D); z:=z+zh;
    if zd and (z>=ze) then begin
      z:=ze; zd:=False;
    end;
  until z>ze;
  WriteLn;
  { выводим таблицу значений }
  x:=xb; xd:=True;
  repeat
    Write(x:W:D); z:=zb; zd:=True;
    repeat
      f:=sqrt(z/x)-abs(cos((pi*z)/(x+2.1)))+1.7;
      Write(f:W:D); z:=z+zh;
      if zd and (z>=ze) then begin
        z:=ze; zd:=False;
      end;
    until z>ze;
    WriteLn; x:=x+xh;
    if xd and (x>=xe) then begin
      x:=xe; xd:=False;
    end;
  until x>xe;
end.
Прогон:
Код
    x\z 0.6000 0.8000 1.0000 1.2000 1.4000 1.6000 1.8000 2.0000 2.2000
 1.0000 1.6538 1.9055 2.1710 2.4481 2.7318 2.9143 2.7910 2.6738 2.5711
 1.3000 1.5291 1.7455 1.9744 2.2150 2.4641 2.7171 2.7844 2.6667 2.5551
 1.6000 1.4394 1.6291 1.8299 2.0417 2.2626 2.4893 2.7182 2.6910 2.5798
 1.9000 1.3709 1.5399 1.7184 1.9069 2.1044 2.3086 2.5169 2.7260 2.6196
 2.2000 1.3168 1.4690 1.6294 1.7989 1.9768 2.1617 2.3516 2.5441 2.6635
Добавлено через 3 минуты
light_girlz,
а с контрольным значением не сошлось по причине слишком грубого округления числа пи вместо использования функции.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2014, 12:18
Помогаю со студенческими работами здесь

Составить программу табулирования функции
Program pr_3; Var y,a,b,h,x : real; Function f(x : real) : real; Begin y:=sqrt(x)-sqrt(x+1);...

Составить программу табулирования функции
Составить программу табулирования функции: Y= \begin{cases} &amp; \text sqrt{\left|x...

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

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


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

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

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