![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 10.11.2016
Сообщений: 2
|
![]()
Доброго времени суток. Написал програму, которая должна подсчитывать матрицу в каком-то степени, но програма выводить непонятные числа. Можете посмотреть где ошыбка?
void __fastcall TForm6::Button1Click(TObject *Sender) { int i; float x11, x12, x13, x21, x22, x23, x31, x32, x33; float y11, y12, y13, y21, y22, y23, y31, y32, y33; x11=StrToFloat(Edit1->Text); x12=StrToFloat(Edit2->Text); x13=StrToFloat(Edit3->Text); x21=StrToFloat(Edit4->Text); x22=StrToFloat(Edit5->Text); x23=StrToFloat(Edit6->Text); x31=StrToFloat(Edit7->Text); x32=StrToFloat(Edit8->Text); x33=StrToFloat(Edit9->Text); // считываем матрицу y11=1; y12=0; y13=0; y21=0; y22=1; y23=0; y31=0; y32=0; y33=1; // создаем единичную матрицу i=StrToInt(Edit10->Text); int n=1; if (i<=0) { Form7->Visible=true; Form6->Enabled=false; // выводим форму, что что-то со степенью не так } else { while (n!=i) { y11=y11*x11+y12*y21+y13*x31; y12=y11*x12+y12*x22+y13*x32; y13=y11*x13+y12*x23+y13*x33; y21=y21*x11+y22*x21+y23*x31; y22=y21*x12+y22*x22+y23*x32; y23=y21*x13+y22*x23+y23*x33; y31=y31*x11+y32*x21+y33*x31; y32=y31*x13+y32*x23+y33*x33; y33=y31*x13+y32*x23+y33*x33; // подсчитываем матрицу в степени n n++; } Edit11->Text=FloatToStr(y11); Edit12->Text=FloatToStr(y12); Edit13->Text=FloatToStr(y13); Edit14->Text=FloatToStr(y21); Edit15->Text=FloatToStr(y22); Edit16->Text=FloatToStr(y23); Edit17->Text=FloatToStr(y31); Edit18->Text=FloatToStr(y32); Edit19->Text=FloatToStr(y33); // выводим конечную матрицу } } Последний раз редактировалось вадимич; 11.11.2016 в 17:43. |
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 10.11.2016
Сообщений: 2
|
![]()
Спасибо. Уже нашел сам.
|
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возникла проблема с windows | КРИЖ | Windows | 4 | 08.06.2015 00:15 |
Windows Form | volcka | Помощь студентам | 0 | 17.05.2011 18:52 |
Можно ли подключить к web form windows form? | Manonia | Windows Forms | 0 | 20.10.2010 05:28 |
Возникла непонятная мне ошибка | Baaandit | БД в Delphi | 12 | 14.12.2009 15:03 |