Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 11.11.2016, 01:06   #1
вадимич
Новичок
 
Регистрация: 10.11.2016
Сообщений: 2
Репутация: 10
Вопрос возникла ошибка приподсчете матрицы в степени 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 в 18:43.
вадимич вне форума   Ответить с цитированием
Старый 20.11.2016, 10:52   #2
вадимич
Новичок
 
Регистрация: 10.11.2016
Сообщений: 2
Репутация: 10
По умолчанию

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возникла проблема с windows КРИЖ Windows 4 08.06.2015 01: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 16:03




01:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru