Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 01.10.2018
Сообщений: 8
1

Протабулировать функцию

03.12.2018, 16:37. Показов 1133. Ответов 1

w=√(x3+y3+cos3⁡xy )+√(y3+z3+cos3⁡yz )+√(z3+x3+cos3⁡zx )
При x∈[1,5], шаг hx=1; y∈[3;5],шаг hy=0,5; z∈[0,2;1], шаг hz=0,2.

Не понимаю как сделать с тремя переменными.. Подскажите, пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2018, 16:37
Ответы с готовыми решениями:

Протабулировать функцию
При выполнении заданий решить задачу одного из следующих типов: табуляция (получитьтаблицу...

Протабулировать функцию
Табулирование функции

Протабулировать функцию
Протабулировать функцию в промежутке от а до b с шагом h. Используя данные на фото.

Протабулировать Функцию.
http://pic.4m.net.ua/images/63680702508196560201.jpg Условие: Найти сумму найбольшего и...

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
03.12.2018, 17:04 2
Лучший ответ Сообщение было отмечено inclu как решение

Решение

Delphi
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
49
50
51
52
{$R *.dfm}
uses Math;
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=0;
  colcount:=4;
  rowcount:=2;
  cells[0,0]:='x';
  cells[1,0]:='y';
  cells[2,0]:='z';
  cells[3,0]:='w';
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,w:real;
    k:integer;
begin
k:=0;
x:=1;
while x<=5 do
 begin
  y:=3;
  while y<=5 do
   begin
    z:=0.2;
    while z<=1 do
     begin
      w:=sqrt(power(x,3)+power(y,3)+power(cos(x*y),3))+
         sqrt(power(y,3)+power(z,3)+power(cos(y*z),3))+
         sqrt(power(z,3)+power(x,3)+power(cos(z*x),3));
      inc(k);
      with StringGrid1 do
       begin
        cells[0,k]:=formatfloat('0.0',x);
        cells[1,k]:=formatfloat('0.0',y);
        cells[2,k]:=formatfloat('0.0',z);
        cells[3,k]:=formatfloat('0.00',w);
        rowcount:=rowcount+1;
       end;
      z:=z+0.2;
     end;
    y:=y+0.5;
   end;
  x:=x+1;
 end;
StringGrid1.RowCount:=StringGrid1.RowCount-1;
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2018, 17:04

Протабулировать функцию
Протабулировать функцию на промежутке от 0 до 11 с шагом h = 1.1. Результат вычисления вывести на...

Протабулировать функцию
Помогите протабулировать функцию y=sin(ln x)-cos(ln x)+2ln x. Границы отрезка шаг 0,2. Пробовал...

Протабулировать функцию в Delphi
y = {sinxlgx, x&gt;3.5 cos^2 x, x=&lt;3.5 - это всё система одна, не знаю, как тут грамотно...

Протабулировать указанную функцию на отрезке
мне через 6ч надо сдать больше 15 программ, я не успеваю, не сдам мне хана. кто то чем может...


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

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

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