Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2016, 00:06   #1
вадимич
Новичок
Джуниор
 
Регистрация: 10.11.2016
Сообщений: 2
Вопрос возникла ошибка приподсчете матрицы в степени Windows Form C++

Доброго времени суток. Написал програму, которая должна подсчитывать матрицу в каком-то степени, но програма выводить непонятные числа. Можете посмотреть где ошыбка?

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.
вадимич вне форума Ответить с цитированием
Старый 20.11.2016, 09:52   #2
вадимич
Новичок
Джуниор
 
Регистрация: 10.11.2016
Сообщений: 2
По умолчанию

Спасибо. Уже нашел сам.
вадимич вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возникла проблема с 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