|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
18.11.2010, 18:01 | #1 | |
Пользователь
Регистрация: 07.05.2010
Сообщений: 13
|
Ошибка при выполнении программы
Программа решения СЛАУ методом итерации.
При выполнении программы выдает ошибку: Цитата:
procedure TForm1.Button2Click(Sender: TObject); var a: array[1..10,1..10] of real; x,z,b:array[1..10] of real; i,j,k,n,s:integer; k1,k2,k3,r1,r2,r3,r4,r5,r0,e,i1,i2, i3,i4,i5,i0,u:real; begin n:=3; //p:=200; r0:=12/100; r1:=strtofloat(Edit1.Text); r2:=StrToFloat(Edit2.Text); r3:=strtofloat(Edit3.Text); r4:=strtofloat(Edit4.Text); r5:=strtofloat(Edit5.Text); e:=strtofloat(Edit6.Text); k1:=r1+r4+r0; k2:=r2+r3-r1; k3:=r3+r4-r5; StringGrid1.Cells[0,0]:=floattostr(k1); StringGrid1.Cells[1,0]:=floattostr((-1)*r1); StringGrid1.Cells[2,0]:=floattostr((-1)*r4); StringGrid1.Cells[0,1]:=floattostr((-1)*r1); StringGrid1.Cells[1,1]:=floattostr(k2); StringGrid1.Cells[2,1]:=floattostr((-1)*r3); StringGrid1.Cells[0,2]:=floattostr((-1)*r4); StringGrid1.Cells[1,2]:=floattostr((-1)*r3); StringGrid1.Cells[2,2]:=floattostr(k3); StringGrid2.Cells[0,0]:=floattostr(e); StringGrid2.Cells[0,1]:=floattostr(0); StringGrid2.Cells[0,2]:=floattostr(0); StringGrid4.Cells[0,0]:=floattostr(0); StringGrid4.Cells[0,1]:=floattostr(1); StringGrid4.Cells[0,2]:=floattostr(2); for i:=1 to n do for j:=1 to n do a[i,j]:= strtofloat(StringGrid1.Cells[j-1,i-1]); for i := 0 to n - 1 do b[i + 1] := StrToFloatDef(StringGrid2.Cells[0, i], 0); u:=0.00001; s:=0; for i := 0 to n - 1 do x[i + 1] := StrToFloatDef(StringGrid4.Cells[0, i], 0); for i:=1 to n do z[i]:=x[i]; k:=0; repeat begin for i:=1 to n do begin x[i]:=-b[i]; for j:=1 to n do begin x[i]:= x[i] + a[i,j]*z[j]; end; if abs(x[i]/a[i,i])>u then k:=1; x[i]:=z[i]-x[i]/a[i,i]; end; for i:=1 to n do z[i]:=x[i]; s:=s+1; end; until k<1; for i:=1 to n do StringGrid3.Cells[0,i-1]:=floattostrf(x[i],fffixed,5,3); StringGrid3.Visible:=true; end; Останавливается на строчке x[i]:=z[i]-x[i]/a[i,i]; Что делать? Последний раз редактировалось Гурам; 18.11.2010 в 18:20. |
|
18.11.2010, 18:53 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Бегом читать правила раздела !
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
При выполнении программы ошибка. | Cyber | Помощь студентам | 12 | 02.10.2010 17:16 |
Ошибки при выполнении программы | grustniy | Общие вопросы Delphi | 2 | 04.09.2010 07:19 |
Ошибка при выполнении процедуры. | segail | Microsoft Office Excel | 16 | 17.02.2010 17:53 |
критическая ошибка при выполнении программы | Познающий | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 18.11.2009 16:51 |
Ошибка и падение (выход) Excel при выполнении сложной программы на VBA | Serge_Bliznykov | Microsoft Office Excel | 6 | 13.08.2008 16:50 |