Не могу понять в чем ошибка (VLC Form app) turbo delphi

@BullRush · Регистрация: 18.11.2012

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

Добрый день не могли бы помочь исправить ошибки в программе, вот коды:
[Pascal Error] Unit4.pas(45): E2010 Incompatible types: 'Func' and 'Real'
[Pascal Error] Unit4.pas(46): E2010 Incompatible types: 'Func' and 'Real'
[Pascal Error] Unit4.pas(47): E2010 Incompatible types: 'Func' and 'Real'
[Pascal Error] Unit4.pas(47): E2035 Not enough actual parameters
[Pascal Error] Unit4.pas(54): E2010 Incompatible types: 'func' and 'Real'
[Pascal Error] Unit4.pas(55): E2010 Incompatible types: 'func' and 'Real'
[Pascal Error] Unit4.pas(56): E2010 Incompatible types: 'func' and 'Real'
[Pascal Error] Unit4.pas(56): E2035 Not enough actual parameters
[Pascal Fatal Error] Project1.dpr(7): F2063 Could not compile used unit 'Unit4.pas'

Не могу понять почему идет несоответствие типов по отдельности все хорошо работает, и самое главное не могу понять из за чего последняя ошибка. Программа решает 3 уравнения 2 методами (unit 2 и unit3) уравнения (one two three). Честно пытался найти сам ответ. Прилагаю архив со всей программой. Заранее спасибо!

24.02.2013, 12:22

Зачем намешан GUI и консольный код в одном проекте?

@BullRush · 24.02.2013, 12:32 **[ТС]**

Сообщение от angstrom

Зачем намешан GUI и консольный код в одном проекте?

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

24.02.2013, 12:41

Замечательно, ну и как по-твоему будет исполняться такой код?

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
procedure reshenie(f : func);
var
  a, b, h, r, eps : real;
begin
  write('enter a,b');
  readln(a,b);
  write('enter eps');
  readln(eps);
  H := (-1) * f(a) * (b - a) / (f(b) - F(a));
  r := a + h;
 
  repeat
    writeln(h:8:3);
    if f(a) * f(r) < 0 then 
    begin
      h := (-1) * F(R) * (b - r) / (f(b) - f(r));
      r := r + h
    end;
 
    until abs(f(r)) < eps;
    writeln(r:7:4);
  end;
end.
...
  reshenie(a, b, eps, one);

да ещё с учетом что ты передаёшь 4 параметра, а процедура принимает 1 (в виде функции) остальные пытается получить с консоли.

@BullRush · 24.02.2013, 12:59 **[ТС]**

Сообщение от angstrom

Замечательно, ну и как по-твоему будет исполняться такой код?

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
procedure reshenie(f : func);
var
  a, b, h, r, eps : real;
begin
  write('enter a,b');
  readln(a,b);
  write('enter eps');
  readln(eps);
  H := (-1) * f(a) * (b - a) / (f(b) - F(a));
  r := a + h;
 
  repeat
    writeln(h:8:3);
    if f(a) * f(r) < 0 then 
    begin
      h := (-1) * F(R) * (b - r) / (f(b) - f(r));
      r := r + h
    end;
 
    until abs(f(r)) < eps;
    writeln(r:7:4);
  end;
end.
...
  reshenie(a, b, eps, one);

да ещё с учетом что ты передаёшь 4 параметра, а процедура принимает 1 (в виде функции) остальные пытается получить с консоли.

Ага понятно то есть должно быть так ?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure reshenie(a,b,eps,f:func);
var
  a, b, h, r, eps : real;
begin
 
  H := (-1) * f(a) * (b - a) / (f(b) - F(a));
  r := a + h;
 
  repeat
    writeln(h:8:3);
    if f(a) * f(r) < 0 then 
    begin
      h := (-1) * F(R) * (b - r) / (f(b) - f(r));
      r := r + h
    end;
 
    until abs(f(r)) < eps;
    writeln(r:7:4);
  end;
end.
...
  reshenie(a, b, eps, one);

Добавлено через 7 минут
но в этом случае процедура ругается что ей недостаточно параметров =(

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
rocedure reshenie (a,b,eps,f:func);
  var
  h,r:real;
  begin
    H:=(-1)*f(a)*(b-a)/(f(b)-F(a));
    r:=a+h;
    repeat
    writeln(h:8:3);
      if f(a)*f(r)<0 then begin
        h:=(-1)*F(R)*(b-r)/(f(b)-f(r));
        r:=r+h
      end;
 
    until abs(f(r))<eps;

я что то не понимаю как задать эти параметры через интерфейс...

Добавлено через 4 минуты
вот какой конечный вид unit2 или unit3 , a,b,eps обьявлены в Unit 4 или в этом и есть проблема

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
unit unit2;
 
interface
     uses
  SysUtils;
  type
  func = function(x:real):real;
  Procedure reshenie (a,b,eps,f:func);
  Function one(x:real):real; far;
  Function two(x:real):real; far;
  Function three (x:real):real; far;
  var
  r:real;
 
implementation
 Function one(x:real):real; far;
  begin
    one:=x*x*x-5*x+1
  end;
  Function two(x:real):real; far;
  begin
    Two:=X*X*X-9*X*X+20*x-1;
  end;
 Function three(x:real):real; far;
 begin
    three:=X*x*x-3*x*x-3*x+10
 end;
  Procedure reshenie (a,b,eps,f:func);
  var
  h,r:real;
  begin
    H:=(-1)*f(a)*(b-a)/(f(b)-F(a));
    r:=a+h;
    repeat
    writeln(h:8:3);
      if f(a)*f(r)<0 then begin
        h:=(-1)*F(R)*(b-r)/(f(b)-f(r));
        r:=r+h
      end;
 
    until abs(f(r))<eps;
    writeln(r:7:4);
  end;
end.
.... 
var
  Form4: TForm4;
  a,b,eps:Real;
  d,d1:Byte;
  rez:string;

24.02.2013, 13:04

Для reshenie можно сделать так, для koren аналогично.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function reshenie(a, b, eps : Real; f : func) : Real;
var
  h : real;
begin
  h := (-1) * f(a) * (b - a) / (f(b) - f(a));
  Result := a + h;
 
  repeat
    if f(a) * f(Result) < 0 then
    begin
      h := (-1) * F(Result) * (b - Result) / (f(b) - f(Result));
      Result := Result + h
    end;
 
    until abs(f(Result)) < eps;
  end;
end.

@BullRush · 24.02.2013, 13:11 **[ТС]**

Сообщение от angstrom

Для reshenie можно сделать так, для koren аналогично.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function reshenie(a, b, eps : Real; f : func) : Real;
var
  h : real;
begin
  h := (-1) * f(a) * (b - a) / (f(b) - f(a));
  Result := a + h;
 
  repeat
    if f(a) * f(Result) < 0 then
    begin
      h := (-1) * F(Result) * (b - Result) / (f(b) - f(Result));
      Result := Result + h
    end;
 
    until abs(f(Result)) < eps;
  end;
end.

по прежнему ругается что у него нет a и b eps

[Pascal Error] Unit2.pas(36): E2035 Not enough actual parameters

причем ошибка только во 2 юните или дальше он просто не проверяет...

24.02.2013, 13:14

Ну так и в интерфейсной части нужно поменять

Кликните здесь для просмотра всего текста

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
unit unit2;
 
interface
 
uses
  SysUtils;
 
type
  func = function(x : real) : real;
  function reshenie(a, b, eps : Real; f : func) : Real;
  function one(x : real) : real; far;
  function two(x : real) : real; far;
  function three(x : real) : real; far;
 
var
  r : real;
 
implementation
 
function one(x : real) : real; far;
begin
  Result := x * x * x - 5 * x + 1;
end;
 
function two(x : real) : real; far;
begin
  Result := X * X * X - 9 * X * X + 20 * x - 1;
end;
 
function three(x : real) : real; far;
begin
  Result := X * x * x - 3 * x * x - 3 * x + 10;
end;
 
function reshenie(a, b, eps : Real; f : func) : Real;
var
  h : real;
begin
  h := (-1) * f(a) * (b - a) / (f(b) - f(a));
  Result := a + h;
 
  repeat
    if f(a) * f(Result) < 0 then
    begin
      h := (-1) * f(Result) * (b - Result) / (f(b) - f(Result));
      Result := Result + h
    end;
 
    until abs(f(Result)) < eps;
  end;
end.

вызов

Кликните здесь для просмотра всего текста

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
procedure TForm4.Button1Click(Sender: TObject);
var
  r : Real;
begin
  r := 0;
  a := StrToFloatDef(VA.Text, 0);
  b := StrToFloatDef(Edit2.Text, 0);
  eps := StrToFloatDef(Edit3.Text, 0);
 
  Memo1.Lines.Clear;
  case d1 of
    0 :
    begin
      case d of
        0 : r := reshenie(a, b, eps, one);
        1 : r := reshenie(a, b, eps, two);
        2 : r := reshenie(a, b, eps, three);
      end;
 
      memo1.Lines.Add(FloatToStr(r));
    end;
 
    1 :
    begin
      case d of
        0 : r := koren(a, b, eps, one);
        1 : r := koren(a, b, eps, two);
        2 : r := koren(a, b, eps, three);
     end;
     memo1.Lines.Add(FloatToStr(r));
    end;
  end;
end;

@BullRush · 24.02.2013, 13:35 **[ТС]**

что я запутался с r и result...

Добавлено через 5 минут
у меня получается что в окошко мемо все по очереди выводится a, b , eps

24.02.2013, 13:45

У тебя так и было задано, похоже ты даже не знаешь как должно работать.

@BullRush · 24.02.2013, 13:50 **[ТС]**

Сообщение от angstrom

У тебя так и было задано, похоже ты даже не знаешь как должно работать.

к сожаленью как должно быть мне некто не говорил, если не трудно можете подсказать как unit3 должен выглядеть я так понимаю там вместо r xnew а вместо xold надо result, c остальным я вроде разобрался...

24.02.2013, 13:58

Примерно так

Кликните здесь для просмотра всего текста

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
unit Unit3;
 
interface
 
uses
  SysUtils, math;
 
type
  func = function(x : real) : real;
  function koren(a, b, eps : Real; f : func) : Real;
  function odin(x : Real) : Real; far;
  function dva(x : Real) : Real; far;
  function tri(x : real) : real; far;
 
var
  xnew, xold : Real;
 
implementation
 
function odin(x : real) : real; far;
begin
  Result := x * x - sin(x);
end;
 
function dva(x : real) : real; far;
begin
  Result := x * x * x - sin(x);
end;
 
function tri(x : real) : real; far;
begin
  Result := x - arcsin((x + 1) / 4);
end;
 
function koren(a, b, eps : Real; f : func) : Real;
var
  xold : Real;
begin
  repeat
    xold := (a + b) / 2;
 
    if f(a) * f((a + b) / 2) < 0 then
      b := (a + b) / 2
    else
      a := (a + b) / 2;
 
    Result := (a + b) / 2;
  until Abs(Result - xold) < eps;
end;
 
end.

@BullRush · 24.02.2013, 14:22 **[ТС]**

так вроде все работает, только вот с combobox не могу до конца разобраться

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm4.ComboBox1Change(Sender: TObject);
begin
  d:=combobox1.ItemIndex;
end;
 
procedure TForm4.ComboBox2Change(Sender: TObject);
begin
   d1:=combobox2.ItemIndex;
end;

Этого достаточно для правильной работы? потому что он мне не выдает вариантов почему то =(

24.02.2013, 14:25

Я особо не разбирался в алгоритме, так что это сам.

@BullRush · 24.02.2013, 14:37 **[ТС]**

у меня почему то зависает когда я жму решить =(

24.02.2013, 14:46

Алгоритм функции reshenie построен неверно, идёт бесконечный цикл

Delphi
1
2
3
4
5
6
7
8
9
10
...
  repeat
    if f(a) * f(Result) < 0 then
    begin
      h := (-1) * f(Result) * (b - Result) / (f(b) - f(Result));
      Result := Result + h
    end;
 
    until abs(f(Result)) < eps;
  end;

ищи ошибку.

@BullRush · 24.02.2013, 15:01 **[ТС]**

Хм странно запускаю отдельно в консоле работае но без result вот

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Procedure reshenie (f:func);
  var
  a,b,h,r,eps:real;
  begin
    write('enter a,b');
    readln(a,b);
    write('enter eps');
    readln(eps);
    H:=(-1)*f(a)*(b-a)/(f(b)-F(a));
    r:=a+h;
    repeat
    writeln(h:8:3);
      if f(a)*f(r)<0 then begin
        h:=(-1)*F(R)*(b-r)/(f(b)-f(r));
        r:=r+h
      end;
 
    until abs(f(r))<eps;
    writeln(r:7:4);

24.02.2013, 15:21

Какие значения вводишь?

@BullRush · 24.02.2013, 15:39 **[ТС]**

-10 +10 0.001

24.02.2013, 15:43

С этими числами считает. Результат = -2,32998258885733. Но при других числах возможен вход в бесконечный цикл.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

angstrom
	24.02.2013, 12:22
	Зачем намешан GUI и консольный код в одном проекте?

@BullRush 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 34
	24.02.2013, 13:35 [ТС]
	что я запутался с r и result... Добавлено через 5 минут у меня получается что в окошко мемо все по очереди выводится a, b , eps 0

angstrom
	24.02.2013, 13:45
	У тебя так и было задано, похоже ты даже не знаешь как должно работать.

@BullRush 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 34
	24.02.2013, 14:37 [ТС]
	у меня почему то зависает когда я жму решить =( 0

angstrom
	24.02.2013, 15:21
	Какие значения вводишь?

@BullRush 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 34
	24.02.2013, 15:39 [ТС]
	-10 +10 0.001 0

angstrom
	24.02.2013, 15:43
	С этими числами считает. Результат = -2,32998258885733. Но при других числах возможен вход в бесконечный цикл.