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

Табуляция

15.03.2018, 16:51. Просмотров 778. Ответов 3
Метки нет (Все метки)


Нужна помощь. Код для решения уравнения написал но выводиться вся информация а надо чтобы выводилась только последнее положительное число и первое отрицательное вместе с шагом.
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
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   const xn=-10;
      xk=10;
      dx=0.01;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function f(x:real):double;
begin
result:=(x*sqrt(5))-6*x-3
end;
procedure TForm1.Button1Click(Sender: TObject);
var  k,n:integer;
     x:double;
begin
n:=round((xk-xn)/dx);
with StringGrid1 do
 begin
  fixedcols:=0;
  colcount:=2;
  rowcount:=n+2;
  cells[0,0]:='Шаг';
  cells[1,0]:='Ответ';
 end;
for k:=0 to n+1 do
 begin
  x:=xn+k*dx;
  with StringGrid1 do
   begin
    cells[0,k+1]:=FloatToStrF(x,ffFixed,5,2);
    cells[1,k+1]:=FloatToStrF(f(x),ffFixed,8,4);
   end;
  end;
end;
end.
И ещё не могу в этот код это уравнение написать x^4-x^3-2x^2+3x-3=0
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2018, 16:51
Ответы с готовыми решениями:

Табуляция
Надо значения функции sin(x) протабулировать в файл (они должны быть не правильными, ну наврено...

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

Табуляция функций
Протабулировать функцию y=3x-14+e^x-e^-x , с помощью цикла For. Помогите пожалуйста.

Табуляция функций
По заданной формуле(1/кореньk+15 члена последовательности с номером k найти сумму первых n членов...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Модератор
63221 / 46977 / 32378
Регистрация: 18.05.2008
Сообщений: 113,861
15.03.2018, 17:18 2
Цитата Сообщение от LUC1U5 Посмотреть сообщение
это уравнение написать x^4-x^3-2x^2+3x-3=0
Delphi
1
2
3
4
function f1(x:double):double;
begin
f1:=x*x*x*x-x*x*x-2*x*x+3*x-3;
end;
Добавлено через 8 минут
Последнее положительное и первое отрицательное
Delphi
1
2
3
4
5
6
7
8
9
o:=0;//наличие отрицательного
fo:=0;
//цикл
if (f<0)and(o=0) then
 begin
  o:=1;//нашли первое отрицательное, сменили флаг
  fo:=f;//запомнили его
 end;
if f>0 then fp:=f;//если положительное, запомним его, до последнего положительного
1
-11 / 0 / 0
Регистрация: 21.06.2015
Сообщений: 82
15.03.2018, 18:33  [ТС] 3
С кодом от второго ответа не могу разобраться можно по подробней?
0
Модератор
63221 / 46977 / 32378
Регистрация: 18.05.2008
Сообщений: 113,861
15.03.2018, 18:35 4
да ку уж подробнее, все вроде написал. Переменные конечно свои пишите, цикл табуляции у Вас написан, не знаю что еще подробнее, свой-то мозг используйте.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2018, 18:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Табуляция функции
Нужно табулировать функцию. F=Ln(a*a) - 4x*x при X&gt;1 F=Sin(x*x*x) - a при X&lt;=1 Аргумент Х - М...

Табуляция в файле
У меня есть 4 edit и 2 combobox. В них я ввожу\выбираю текст, после чего у меня есть кнопка...

Табуляция функции
Разработать программу табуляции функции, вывести ее значение в компоненту StringGrid. Разработать...

Табуляция функции sinx
Вычислить множество значений для функции, вывести их в виде таблицы. sin(x) а=Пи/4 b= Пи/2 n= 15


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.