Daniel D Daniel Регистрация 13 Июл 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 1 Дек 2016 #1 Помогите решить проблему пожалуйста. Листинг: private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) { int ran; Random^ randObj = gcnew Random(1000); double log ; double lyambda=0; double mu=0; double time; double Tobsl=0; double t=0; double Po; double A; double KolKan; double Potk; double Q; int i; int Cz=0; int Co=0; int Cobsl=0; int S=0; IntVhodPot = Convert::ToInt32(textBox1->Text); IntPotObsl = Convert::ToInt32(textBox2->Text); kolprog = Convert::ToInt32(textBox3->Text); textBox4->Text = "Интенсивность входного потока: " + IntVhodPot; textBox4->Text += Environment::NewLine + "Интенсивность потока обслуживания: " + IntPotObsl; textBox4->Text += Environment::NewLine + "Количество прогонов: " + kolprog; textBox4->Text += Environment::NewLine + "Время работы системы: " + time; for(int i=1; i<=kolprog; i++) { textBox4->Text += Environment::NewLine + "Прогон: " + i; do { if(S==0) { ran=randObj->Next(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; S=1; t+=lyambda; Cz++; Cobsl++; } if(S==1) { ran=randObj->Next(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; ran=randObj->Next(1000); mu=(-1)*log(ran/1000.0+0.001)/IntPotObsl; if(lyambdaNext(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; ran=randObj->Next(1000); mu=(-1)*log(ran/1000.0+0.001)/IntPotObsl; if(lyambda<mu) { S=2; t+=lyambda; Cz++; Co++; Tobsl+=lyambda; } else { S=1; t+=mu; Tobsl+=mu; } } } while(t<time); Po=(time -Tobsl)/2/time; Potk=(double)Co/(double)Cz; Q=(double)Cobsl/(double)Cz; A=(double)Cobsl/time; KolKan=(time-Tobsl)/time; } }
Помогите решить проблему пожалуйста. Листинг: private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) { int ran; Random^ randObj = gcnew Random(1000); double log ; double lyambda=0; double mu=0; double time; double Tobsl=0; double t=0; double Po; double A; double KolKan; double Potk; double Q; int i; int Cz=0; int Co=0; int Cobsl=0; int S=0; IntVhodPot = Convert::ToInt32(textBox1->Text); IntPotObsl = Convert::ToInt32(textBox2->Text); kolprog = Convert::ToInt32(textBox3->Text); textBox4->Text = "Интенсивность входного потока: " + IntVhodPot; textBox4->Text += Environment::NewLine + "Интенсивность потока обслуживания: " + IntPotObsl; textBox4->Text += Environment::NewLine + "Количество прогонов: " + kolprog; textBox4->Text += Environment::NewLine + "Время работы системы: " + time; for(int i=1; i<=kolprog; i++) { textBox4->Text += Environment::NewLine + "Прогон: " + i; do { if(S==0) { ran=randObj->Next(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; S=1; t+=lyambda; Cz++; Cobsl++; } if(S==1) { ran=randObj->Next(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; ran=randObj->Next(1000); mu=(-1)*log(ran/1000.0+0.001)/IntPotObsl; if(lyambdaNext(1000); lyambda=(-1)*log(ran/1000.0+0.001)/IntVhodPot; ran=randObj->Next(1000); mu=(-1)*log(ran/1000.0+0.001)/IntPotObsl; if(lyambda<mu) { S=2; t+=lyambda; Cz++; Co++; Tobsl+=lyambda; } else { S=1; t+=mu; Tobsl+=mu; } } } while(t<time); Po=(time -Tobsl)/2/time; Potk=(double)Co/(double)Cz; Q=(double)Cobsl/(double)Cz; A=(double)Cobsl/time; KolKan=(time-Tobsl)/time; } }
upwhite U upwhite Регистрация 7 Дек 2013 Сообщения 79 Репутация 0 Спасибо 0 Монет 0 1 Дек 2016 #2 Скорей всего Вы вызываете функцию с неверным количеством параметеров Позитивный голос 0
Лешка Л Лешка Регистрация 25 Май 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 1 Дек 2016 #3 Не практикую на С++, но не может быть проблемы в переменной IntVhodPot или IntPotObsl из-за того, что они другого типа? Позитивный голос 0
Не практикую на С++, но не может быть проблемы в переменной IntVhodPot или IntPotObsl из-за того, что они другого типа?