Найти ошибку в коде

@KSUSHA89 · Регистрация: 12.11.2010

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

Delphi
1
2
3
4
5
6
7
Form1.Caption:=inttostr(SG1.Col)+' '+inttostr(SG1.row);
x:=SG1.Col;
y:=SG1.row;
for i:=0 to SG1.ColCount-1 do
  for j:=0 to SG1.rowCount-1 do
   if (i<>x) and (strtofloat(SG1.Cells[x,y])<>0) and (j<>y) then     
      SG1.Cells[i,j]:=FloatToStr(strtofloat(SG1.Cells[i,j])*strtofloat(SG1.Cells[x,y])-strtofloat(SG1.Cells[x,j]*strtofloat(SG1.Cells[i,y]));

ошибка именно в строке

Delphi
1
SG1.Cells[i,j]:=FloatToStr(strtofloat(SG1.Cells[i,j])*strtofloat(SG1.Cells[x,y])-strtofloat(SG1.Cells[x,j]*strtofloat(SG1.Cells[i,y]));

Добавлено через 10 минут
ОЙ ВСЕ НАШЛА)

@Фоат · 13.11.2010, 13:13

молодец Ксюша , не пробывала , стринг Гирдом работать , удобнее, мое лич мнение

Добавлено через 6 минут
можешь исходних сюда вытащить ?

@KSUSHA89 · 13.11.2010, 17:54 **[ТС]**

Фоат,
я еще пока в процессе написания)
или вам исходник конкретно этой процедуры нужно??

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
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,x,y:integer;
begin
   with SG1 do
for i := 0 to ColCount - 1 do
  for j := 0 to RowCount - 1 do
      SG2.Cells[i, j] := Cells[i, j];
Form1.Caption:=inttostr(SG1.Col)+' '+inttostr(SG1.row);
x:=SG1.Col;
y:=SG1.row;
for i:=0 to SG1.ColCount-1 do
   for j:=0 to SG1.rowCount-1 do
      if ((i<>x) or (j<>y)) and (strtofloat(SG1.Cells[x,y])<>0) then
      SG1.Cells[x,y]:='1';          //разрешающий элемент заменяем на единицу
 
begin            //меняем знак строки на противоположный
Form1.Caption:=inttostr(SG1.Col)+' '+inttostr(SG1.row);
x:=SG1.Col;
y:=SG1.row;
for i:=0 to SG1.ColCount-1 do
   if (i<>x) and (strtofloat(SG1.Cells[x,y])<>0) then
      SG1.Cells[i,y]:=FloatToStr((strtofloat(SG1.Cells[i,y])*-1));
      begin            //меняем знак строки на противоположный
Form1.Caption:=inttostr(SG1.Col)+' '+inttostr(SG1.row);
x:=SG1.Col;
y:=SG1.row;
for i:=0 to SG1.ColCount-1 do
  for j:=0 to SG1.rowCount-1 do
   if (i<>x) and (strtofloat(SG1.Cells[x,y])<>0) and (j<>y) then      //заполняю оставшуюся матрицу элементами aij*ars-ars*arj
      SG1.Cells[i,j]:=FloatToStr(strtofloat(SG1.Cells[i,j])-(strtofloat(SG1.Cells[x,j])*strtofloat(SG1.Cells[i,y]))/strtofloat(SG2.Cells[x,y]));
  for i:=0 to SG1.ColCount-1 do
  for j:=0 to SG1.rowCount-1 do
      SG1.Cells[i,j]:=FloatToStr(strtofloat(SG1.Cells[i,j])/strtofloat(SG2.Cells[x,y]));
end;

тут на самом деле еще кучу всего убирать нужно и переделывать.

@Фоат · 14.11.2010, 12:43

ну хорошо давай по другуому, как задание звучало ?

@KSUSHA89 · 14.11.2010, 14:00 **[ТС]**

Сообщение от Фоат

ну хорошо давай по другуому, как задание звучало ?

спасибо, сделала уже это)

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Фоат 165 / 82 / 32 Регистрация: 05.02.2010 Сообщений: 318
	13.11.2010, 13:13
	молодец Ксюша , не пробывала , стринг Гирдом работать , удобнее, мое лич мнение Добавлено через 6 минут можешь исходних сюда вытащить ? 0

@Фоат 165 / 82 / 32 Регистрация: 05.02.2010 Сообщений: 318
	14.11.2010, 12:43
	ну хорошо давай по другуому, как задание звучало ? 0