Прошу необходимо составить программу с подпрограммами в window form

Omega24rus

Подпрограмма Найти y=(cos^2(abc(x))-e^z)/(sin(x^3)+ln(sqrt(abc(z))) Где x , z - значения минимального элемента массивов A[N] и B[M] соответственно Оформление типа на 2008 версе вижака желательно =( вот пример который есть Найти значение последнего положительного элемента каждой строки матрицы.
#pragma endregion
void zpp(const int n, int b[3])
{ int k= -1;
for (int i=0;i<n;i++)
if (b[i]>0) k = b[i];
if (k==-1) textBox1->Text+= "Положительных элементов нет";
else textBox1->Text+= Convert::ToString(k+"   ");
}
private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) 
    {const int x=4,y=3;
int a[x][y], c[y];
Random^ rand =gcnew Random;
for (int i=0;i<x;i++)
for (int j=0;j<y;j++)
a[i][j]=rand->Next(-50,50);
for (int i=0;i<x;i++)
{ for (int j=0;j<y;j++)
richTextBox1->Text+=Convert::ToString(a[i][j]+"   ");
richTextBox1->Text+=Environment::NewLine;}
for (int i=0;i<x;i++)
{ for (int j=0;j<y;j++)
c[j]=a[i][j]; 
zpp(y,c);} }}}
иПример . Найти произведение положительных элементов каждого столбца матрицы.
#pragma endregion
 
    void pp(const int n, int b[4])
{ int p=1;
for (int i=0;i<n;i++)
if (b[i]>0) p*=b[i];
textBox1->Text+=Convert::ToString(p)+"   ";}
    private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) 
     {
const int n=4,m=3;
int a[n][m], c[n];
Random^ rrrr =gcnew Random;
for (int i=0;i<n;i++)
for (int j=0;j<m;j++)
a[i][j]=rrrr->Next(-50,50);
for (int i=0;i<n;i++)
{ for (int j=0;j<m;j++)
richTextBox1->Text+=Convert::ToString(a[i][j])+"   ";
richTextBox1->Text+=Environment::NewLine;}
for (int j=0;j<m;j++)
{ for (int i=0;i<n;i++)
c[i]=a[i][j];
pp(n,c);}
}}}
Прошу помочь =( пичаль беда приперся с армии и восстановился и за месяц до сессии всучили долги =( помогите сделать прогу плиз . до 29 срок...спасите отчислят демоны =(
1 ответ

Omega24rus

создано во фрилансе ,здесь закрыто