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

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

04.10.2013, 21:32. Показов 1360. Ответов 4
Метки нет (Все метки)

http://pic.4m.net.ua/images/63... 560201.jpg
Условие:
Найти сумму найбольшего и наименьшего значения протабульованих значений функции и определить значение аргумента, при котором функция на данном промежутке имеет наибольшее значение.
Вот мой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var x,a,b,h,y,s,d:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.Text);
x:=a; s:=0; d:=1;
memo1.Lines.add('      ');
memo1.Lines.add('x    y');
while x<b+h/2 do
begin
y:=sqrt(sqr(sin)*(4*x))+(sqr(cos)*(2*x));
if y<0 then begin s:=s+y; d:=d*y; end;
chart1.series[0].add(y,floattostr(x),clgreen);
memo1.Lines.add(floattostr(x)+'     '+floattostr(y));
x:=x+h;
end;
label4.caption:='Сума найбільшого значення '+floattostr(s);
label5.Caption:='Сума найменшого значення '+floattostr(d);
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2013, 21:32
Ответы с готовыми решениями:

Протабулировать функцию
w=√(x3+y3+cos3⁡xy )+√(y3+z3+cos3⁡yz )+√(z3+x3+cos3⁡zx ) При x∈, шаг hx=1; y∈,шаг hy=0,5; ...

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

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

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

4
mss
04.10.2013, 21:44
  #2

Не по теме:

Цитата Сообщение от Dima_Tsvyk Посмотреть сообщение
Умова:
Знайти суму найбыльшого та найменшого значення протабульованих значень функції та визначити значення аргументу, при якому функція на данному проміжку має найбільше значення.
Ты это сейчас с кем разговаривал ?)

0
0 / 0 / 1
Регистрация: 04.10.2013
Сообщений: 18
04.10.2013, 23:06  [ТС] 3
Ну особисто я з України, а якою мовою спілкуються на форумі я незнаю тому виклав умову задачі на двох мовах

Ну лично я с Украины, а на каком языке общаются на форуме я незнаю потому выложил условие задачи на двух языках

Добавлено через 1 час 15 минут
вверх
0
0 / 0 / 1
Регистрация: 04.10.2013
Сообщений: 18
09.10.2013, 19:15  [ТС] 4
актуально
0
Модератор
8684 / 4338 / 2979
Регистрация: 17.08.2012
Сообщений: 13,805
09.10.2013, 20:53 5
Цитата Сообщение от Dima_Tsvyk Посмотреть сообщение
на каком языке общаются на форуме я незнаю
Dima_Tsvyk, прочитайте правила форума обязательно. Вот что Вы нарушили:
4. 1. Официальными языками форума являются русский и английский языки.
5. 18. Запрещено размещать ссылки на задания и коды программ, расположенные на других сайтах. Вопросы и коды программ должны размещаться на форуме.
Цитата Сообщение от Dima_Tsvyk Посмотреть сообщение
(sin)*(4*x)
ой, матуся...

Исправленный код (с чартом у меня плохо, так что уж сами):
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
procedure TForm1.Button1Click(Sender: TObject);
 
var x, a, b, h, y, s, min, max:real;
 
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.Text);
x:=a;
memo1.Lines.add('      ');
memo1.Lines.add('x    y');
y:=sqrt(sqr(sin(4*a)+sqr(cos(2*a))));
min := y;
max := y;
s := a;
while x<b+h/2 do
  begin
    y:=sqrt(sqr(sin(4*x)+sqr(cos(2*x))));
    if min > y then min := y;
    if max < y then
      begin
        max := y;
        s := x
      end;
    //chart1.series[0].add(y,floattostr(x),clgreen);
    memo1.Lines.add(floattostr(x)+'     '+floattostr(y));
    x:=x+h;
  end;
label4.caption := 'Сума найбільшого i найменшого значення: ' + floattostr(min + max);
label5.caption := 'Значень аргументу, при якому функцiя на данному промiжку має найбiльше значення: ' + floattostr(s)
end;
Усього доброго!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2013, 20:53

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

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

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

Программа должна протабулировать функцию
Программа должна протабулировать функцию y=sin(x^2+2)+ln(4x-2) на отрезке с шагом h


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

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

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