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

@Александр_67 · Регистрация: 28.10.2014

Студворк — интернет-сервис помощи студентам

Написать программу для табулирования заданной функции двух переменных 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$

@light_girlz · 28.10.2014, 20:42

Pascal

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

@Александр_67 · 29.10.2014, 08:35 **[ТС]**

Спасибо!

@bormant · 29.10.2014, 12:18

light_girlz,
то, что выдаст TP, сильно отличается от приведенного в сообщении

Функции 2-х переменных принято табулировать в табличку, извините за тавтологию:

Pascal

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,
а с контрольным значением не сошлось по причине слишком грубого округления числа пи вместо использования функции.

@Александр_67 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

@Александр_67 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 18
	29.10.2014, 08:35 [ТС]	3
	Спасибо! 0

Опции темы