Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
161 / 4 / 3
Регистрация: 10.01.2009
Сообщений: 102
1

Отрицательный Extended

18.10.2009, 16:20. Просмотров 695. Ответов 2
Метки нет (Все метки)

Всем привет.
Пишу программу и тут возникла проблема при использовании типа Extended.
Значит так:
Код
A:=StringGrid1;
alpha[1]:=(-1*strtofloat(A.Cells[2,1]))/(strtofloat(A.Cells[1,1])+strtofloat(A.Cells[0,1])*alpha[0-1]);
Всё работает замечательно если во всех ячейках положительные числа, но если хоть в одной ячейке будет отрицательное число, то программа вылетает с сообщением : " '' is not a valid floating point value ".
Помогите решить эту проблему.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2009, 16:20
Ответы с готовыми решениями:

Stringgrid и extended
Привет всем, подскажите пожалуйста, есть переменная типа extended. Если внее записывать значение из...

чётность. Extended
как определить является число чётным или нечётным. тип Extended.

Из string в extended?
StrToInt это все знают а вот как быть с extended, real, longint? Заранее Спс

extended and int
Вот я всяко-разно пытался перевести переменные, даже это не работает: procedure...

2
Модератор
61124 / 45829 / 31638
Регистрация: 18.05.2008
Сообщений: 110,363
18.10.2009, 16:26 2
Может минус с тире путает, у меня как-то было такое. Вводи минус с цифровой клавиатуры.
0
161 / 4 / 3
Регистрация: 10.01.2009
Сообщений: 102
18.10.2009, 16:50  [ТС] 3
Лучший ответ Сообщение было отмечено Floopy2k как решение

Решение

Puporev, не помогает. Всё та же ошибка
Вот весь код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm2.progonka(A, f: TStringGrid);
var
  alpha:array[0..2] of Extended;
  beta:array[0..3] of Extended;
  x:array[0..3] of Extended;
  r,n:integer;
begin
  alpha[0]:=-1*strtofloat(A.Cells[1,0])/strtofloat(A.Cells[0,0]);
  beta[0]:=strtofloat(f.Cells[0,0])/strtofloat(A.Cells[0,0]);
  for r := 1 to 2 do
    begin
      alpha[r]:=(-1*strtofloat(A.Cells[2,r]))/(strtofloat(A.Cells[1,r])+strtofloat(A.Cells[0,r])*alpha[r-1]);
      beta[r]:=(strtofloat(f.Cells[0,r])-strtofloat(A.Cells[0,r])*beta[r-1])/(strtofloat(A.Cells[1,r])+strtofloat(A.Cells[0,r])*alpha[r-1]);
    end;
  beta[3]:=(strtofloat(f.Cells[0,3])-strtofloat(A.Cells[0,3])*beta[3-1])/(strtofloat(A.Cells[1,3])+strtofloat(A.Cells[0,3])*alpha[3-1]);
    for n:=0 to 2 do
        begin
          ListBox1.Items.Add('a'+inttostr(n)+'='+floattostr(alpha[n]));
          ListBox2.Items.Add('b'+inttostr(n)+'='+floattostr(beta[n]));
        end;
      ListBox2.Items.Add('b3='+floattostr(beta[3]));
end;

Добавлено через 12 минут
Всё разобрался. Проблема была вовсе не в этом
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2009, 16:50

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

Incompatible types: 'Integer' and 'Extended'
procedure TForm1.N2Click(Sender: TObject); var a,z: integer; begin...

Imcompatible types integer or extended
Выскакивает ошибка, выделяя красным 77 строку. И помогите закончить программу, нужно ещё сделать,...

Типы Extended, String и Comp
Здравствуйте. Хотел сделать программу, которая спрашивала бы тип тригоном. функции, принимала...

Не соответствие типов Integer и Extended
Подскажите что может быть не так? Table,TableNew:array of array of Integer;...


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

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

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