Скачать: CL | DM;

Heeelp!   Найти похожие ветки 

← →
Titanik   (2006-03-30 14:00) [0]

Всем привет! Мастера, как, бы мне реализовать такое: сумма(sqr(Xi-3,7)). Xi - это данные из таблицы.

---

← →
Kolan ©   (2006-03-30 14:10) [1]

var
 S: Double;

S := 0;
for I  := 1 to N do
begin
   S := S + Sqr(Xi - 3.7);
end;

---

← →
Titanik   (2006-03-30 14:15) [2]

Уже пробовал, неправильный результат!

---

← →
Плохиш ©   (2006-03-30 14:17) [3]

Хм, у всех правильный, а у тебя неправильный. Ни на какие мысли не наводит?

---

← →
Kolan ©   (2006-03-30 14:23) [4]

Врать не надо....

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 S: Double;
 I: Integer;
begin
 S := 0;
 for I := 1 to 2 do
 begin
   S := S + Sqr(0 - 3.7);
 end;
 ShowMessage(FloatToStr(S));
end;

Ответ:
27,38

Если не веришь проверь на калькуляторе...

---

← →
Titanik   (2006-03-30 14:28) [5]

>  for I := 1 to 2 do
>  begin
>    S := S + Sqr(0 - 3.7);
>  end;

А с какого перепуга здесь0?

---

← →
Kolan ©   (2006-03-30 14:30) [6]

А я знаю что такое ТВОЙ Xi?

---

← →
Titanik   (2006-03-30 14:39) [7]

Xi - это 50 разных цифр в одной строке таблицы! Запускаю этот цикл, ответ:2236,17. А должен быть 131,33. Чувствуется разница?

---

← →
Сергей М. ©   (2006-03-30 14:44) [8]

> 50 разных цифр



> Чувствуется разница?


50-ричная система счисления ?

Или ты не чувствуешь разницу между "цифра" и "число" ?

---

← →
Kolan ©   (2006-03-30 14:44) [9]

Titanik   (30.03.06 14:39) [7]
В
Kolan ©   (30.03.06 14:23) [4]
Тебе было доказано, что этот метод подсчета суммы работает верно.

Что и как ты запускаещь у себя никто не знает. Почему икому он должне быть 131,33 тоже никто, кроме тебя незнает.

Поэтому приведи свваой код. Может тогда можно будет сказать где у тебя ошибка....

---

← →
Titanik   (2006-03-30 14:50) [10]

procedure TForm1.FormCreate(Sender: TObject);
Var i:integer;
begin
StringGrid1.Cells[0,0]:="Ni";
StringGrid1.Cells[0,1]:="Xi";
For i:= 1 to 50 do
StringGrid1.Cells[i,0]:=inttostr(i);
StringGrid1.Cells[i,1]:=floattostr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
B:real;
begin
B:=0;

for i:=1 to 50 do
B:=B+(sqr(StringGrid1.Cells[i,1]-3.7));
 Edit4.Text:= FloatToStr(B);

   end;

---

← →
Kolan ©   (2006-03-30 14:54) [11]

Вот специально проверил:
   S:=S+(sqr(StringGrid1.Cells[i,1]-3.7));

[Error] Unit1.pas(40): Incompatible types: "String" and "Extended"
Ну и что дальше...

---

← →
Titanik   (2006-03-30 14:56) [12]

хм...у меня нет такой ошибки! все считается, только результат неверный

---

← →
Kolan ©   (2006-03-30 14:57) [13]

И даже так:
 for i:=1 to 50 do
   S:=S+ (Sqr( StrToFloat(StringGrid1.Cells[I,1])-3.7)) ;
 ShowMessage(FloatToStr(S));
Неправильно.

Да и вообще у тебя что F7, F8 не работает? Элементарная задача. Задана в основную конф.

Для отладики нода 1 мин.

---

← →
balepa ©   (2006-03-30 14:57) [14]

> Kolan ©   (30.03.06 14:54) [11]

Во, во. Думать немогут, А сами на дельфи все валят

---

← →
Romkin ©   (2006-03-30 14:57) [15]

1.
For i:= 1 to 50 do
StringGrid1.Cells[i,0]:=inttostr(i);
StringGrid1.Cells[i,1]:=floattostr(i);

Ты уверен?

2.
B:=B+(sqr(StringGrid1.Cells[i,1]-3.7));
Не может быть! Это не может пропустить компилятор!

Приведи реальный код

---

← →
Kolan ©   (2006-03-30 14:58) [16]

Titanik   (30.03.06 14:56) [12]

Ну не может быть :). Даже компилятор не пустил... :)
Как можно от строки отнять ЧИСЛО?

---

← →
Titanik   (2006-03-30 15:08) [17]

Клянусь такой и есть код!Сам Нихрена не пойму! Делаю все как надо - ругается!

---

← →
Сергей М. ©   (2006-03-30 15:14) [18]

> Titanik   (30.03.06 15:08) [17]


Когда врешь, прищуривайся)

---

← →
Titanik   (2006-03-30 15:17) [19]

Блин, по человечески объясняю - все так и есть...

---

← →
Сергей М. ©   (2006-03-30 15:21) [20]

> Titanik   (30.03.06 15:17) [19]
> Блин, по человечески объясняю - все так и есть


Врать своей бабушке будешь.

Вот цитата из станд.справки, если тебе иные аргументы побоку:

Lists the strings for each cell in the grid.

Delphi syntax:

property Cells[ACol, ARow: Integer]: string;

Выделенное жинрым тебе о чем-то говорит ?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.025 c