|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.02.2011, 12:35 | #1 |
Пользователь
Регистрация: 04.02.2011
Сообщений: 18
|
Ребят не могу разобраться с кодом!
Ребят помогите...прога запускается но считает неправильно...где может быть ошибка?
procedure TForm1.Button1Click(Sender: TObject); var j: integer; s1,s2,s3,n,m,l,b1,b2,b3,s4,s5,s6,s7 :real; begin s1 := 0; s2 := 0; s3 := 0; s4 := 0; s5 := 0; s6 := 0; s7 := 0; with stringgrid1 do for j := 1 to RowCount - 1 do begin if cells[1,j]='' then cells[1,j]:='0'; if cells[6,j]='' then cells[6,j]:='0'; if cells[7,j]='' then cells[7,j]:='0'; s3:=s3+StrToFloat(Cells[6,j]); if s3<=1 then begin s1:=s1+StrToFloat(Cells[1,j])*StrToFloat(Cells[6,j]); s2:=s2+StrToFloat(Cells[2,j])*StrToFloat(Cells[6,j]); edit1.text:=Floattostr(s1); edit2.text:=Floattostr(s2); end else begin edit1.text:=''; edit2.text:=''; label2.visible:=true; label2.caption:='Íåâåðíîå çíà÷åíèå r(i)'; end; begin if s2<>0 then s4:=(strtofloat(cells[2,j])*strtofloat(cells[6,j]))/s2; stringgrid1.cells[7,j]:=floattostr(s4); end; n:=StrToFloat(Cells[3,j]); m:=StrToFloat(Cells[4,j]); l:=StrToFloat(Cells[5,j]); if 12*n+m+16*l<>0 then begin b1:=12*n/(12*n+m+16*l); b2:=m/(12*n+m+16*l); b3:=16*l/(12*n+m+16*l); s5:=s5+s4*b1; s6:=s6+s4*b2; s7:=s7+s4*b3; edit3.Text:=floattostr(s5); edit4.Text:=floattostr(s6); edit5.Text:=floattostr(s7); end; end; end; |
11.02.2011, 12:57 | #2 |
Форумчанин
Регистрация: 08.01.2011
Сообщений: 226
|
Эх, еще бы знать, что она должна посчитать и что должно получиться....
|
11.02.2011, 13:27 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
тема названа неверно.
код не оформлен тегами. задача не сформулирована. закрыто! Модератор |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разобраться с кодом. | Vlero | PHP | 2 | 20.01.2011 12:46 |
Не могу разобраться с кодом в дизассемблере. | Yagamy Liet | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 7 | 27.09.2010 06:41 |
Не могу разобраться с кодом | jey7 | JavaScript, Ajax | 1 | 17.06.2010 09:38 |
C++ ребят выручайте не успею разобраться с классами... | Azgor | Помощь студентам | 0 | 14.05.2010 01:17 |
не могу разобраться с кодом | morocko | HTML и CSS | 1 | 10.02.2010 21:23 |