Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 4
1

Ошибка: '' is not a valid integer value

08.05.2016, 09:51. Показов 1931. Ответов 6
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Доброго времени суток!
Имеется задание написать программу по вычислению корня через итерационную формулу.
Вот, что я пока написала:
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
53
54
55

unit Unit18;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm18 = class(TForm)
    Label2: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form18: TForm18;
  Edit1: TEdit;
    Edit2: TEdit;
  m: integer;
  x, pribl, f: real;
 
implementation
{$R *.dfm}
 
function koren (m: integer; x, pribl: real): real;
begin
  m:= StrToInt (Edit1.Text);
x:= StrToFloat (Edit2.Text);
pribl:=1;
  koren:= ((m-1)*pribl+x/(exp((m-1)*ln(pribl))))/m;
  repeat
  begin
   pribl:= koren (m,x,pribl);
   koren (m,x,pribl);
  end;
until (abs(koren (m,x,pribl)-pribl)<0.001);
 
end;
procedure TForm18.Button1Click(Sender: TObject);
begin
 
Edit3.Text:= FloatToStr (koren (m,x,pribl));
end;
 
end.
Так вот, при запуске программы выдает ошибку '' is not a valid integer value. Смысл ошибки в целом понимаю, не могу ее устранить.
Помогите, пожалуйста
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 08.05.2016, 09:51
Ответы с готовыми решениями:

Ошибка is not a valid integer value
Добрый вечер всем! Ошибка такая: is not a valid integer value ниже код программы, проблема в...

Ошибка: '' Is not valid integer value
Программа меняет все значения, со знаком (=), в порядке убывания. А когда ввожу без знака ( = ) то...

Ошибка: ''is not a valid integer value
Помогите пожалуйста. Мне надо было создать программу, которая находит индекс числа в массиве...

Ошибка . is not a valid integer value
var Form17: TForm17; var A:array of integer; N,i: integer; implementation {$R...

6
958 / 577 / 136
Регистрация: 23.05.2012
Сообщений: 7,364
08.05.2016, 10:02 2
В какой строке ошибка?
В Edit1.Text введено число?
0
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 4
08.05.2016, 10:08  [ТС] 3
JIeIIIa, строчку не показывает. Выглядит это так:
Миниатюры
Ошибка: '' is not a valid integer value  
0
958 / 577 / 136
Регистрация: 23.05.2012
Сообщений: 7,364
08.05.2016, 10:20 4
var
Form18: TForm18;
Edit1: TEdit;
Edit2: TEdit;

А в процедуре
Delphi
1
2

m:= StrToInt (Form18.Edit1.Text);
x:= StrToFloat (Form18.Edit2.Text);
Добавлено через 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
51
52
53

unit Unit18;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm18 = class(TForm)
    Label2: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form18: TForm18;
  m: integer;
  x, pribl, f: real;
 
implementation
{$R *.dfm}
 
function koren (m: integer; x, pribl: real): real;
begin
 
pribl:=1;
  koren:= ((m-1)*pribl+x/(exp((m-1)*ln(pribl))))/m;
  repeat
  begin
   pribl:= koren (m,x,pribl);
   koren (m,x,pribl);
  end;
until (abs(koren (m,x,pribl)-pribl)<0.001);
 
end;
procedure TForm18.Button1Click(Sender: TObject);
begin 
   //начальное значение pribl определите
   //pribl := ...
   Edit3.Text:= FloatToStr (koren (StrToInt (Edit1.Text), StrToFloat (Edit2.Text), pribl));  //правильно так вызывать
end;
 
end.
0
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 4
08.05.2016, 10:31  [ТС] 5
JIeIIIa, я попыталась сделать, как Вы подсказали:
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 Unit18;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Unit1;
 
type
  TForm18 = class(TForm)
    Label2: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form18: TForm18;
  m: integer;
  x, pribl, f: real;
 
implementation
 
{$R *.dfm}
function koren (m: integer; x, pribl: real): real;
begin
pribl:=1;
  koren:= ((m-1)*pribl+x/(exp((m-1)*ln(pribl))))/m;
  repeat
    begin
    pribl:= koren (m,x,pribl);
    koren (m,x,pribl);
    end;
  until (abs(koren (m,x,pribl)-pribl)<0.001);
end;
 
procedure TForm18.Button1Click(Sender: TObject);
begin
Edit3.Text:= FloatToStr (koren (StrToInt (Edit1.Text), StrToFloat (Edit2.Text), pribl));
end;
 
end.
Но:
1. почему-то все равно не работает - выскакивает окно, как на картинке
2. а почему вы убрали следующие строки?
m:= StrToInt (Edit1.Text);
x:= StrToFloat (Edit2.Text);
Миниатюры
Ошибка: '' is not a valid integer value  
0
958 / 577 / 136
Регистрация: 23.05.2012
Сообщений: 7,364
08.05.2016, 10:35 6
Потому что данные Вы вводите в Edit'ы на форме, а обращаетесь к глобальным переменным. Посмотрите внимательно строки 15-16 и 27-28 кода из первого поста.
0
0 / 0 / 0
Регистрация: 24.04.2016
Сообщений: 4
08.05.2016, 22:43  [ТС] 7
JIeIIIa, эм, я, конечно, не очень поняла..... + и зачем мы два раза pribl объявляем?
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

unit Unit100;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Unit1;
 
type
  TForm18 = class(TForm)
    Label2: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form18: TForm18;
 
implementation
 
{$R *.dfm}
function koren (m: integer; x, pribl: real): real;
begin
   pribl:=1;
  koren:= ((m-1)*pribl+x/(exp((m-1)*ln(pribl))))/m;
  repeat
    begin
    pribl:= koren (m,x,pribl);
    koren (m,x,pribl);
    end;
  until (abs(koren (m,x,pribl)-pribl)<0.001);
end;
 
procedure TForm18.Button1Click(Sender: TObject);
var
  m: integer;
  x, pribl: real;
begin
 pribl:=1;
Edit3.Text:= FloatToStr (koren (StrToInt (Edit1.Text), StrToFloat (Edit2.Text), pribl));
end;
 
end.
Добавлено через 11 часов 56 минут
Помогите, пожаааалуйста, кто-нибудь
0
08.05.2016, 22:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 08.05.2016, 22:43
Помогаю со студенческими работами здесь

Ошибка '' is not valid integer value
Што делать если ошибка '' is not valid integer value. Помогите. unit Unit4; interface ...

Ошибка: '[' is not a valid integer value
При отправки с клиента на сервер на серверной стороне вылетает ошибка: 'http://pblog.ru/?p=100 ...

ошибка is not valid integer value
procedure TForm3.FormShow(Sender: TObject); begin lbl1.Caption:=Form2.Label2.Caption;...

Ошибка: '' is not a valid integer value
Вот какая ошибка First chance exception at $753FD36F. Exception class EConvertError with message...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru