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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2012, 13:59   #1
elenkarm
Новичок
Джуниор
 
Регистрация: 20.12.2012
Сообщений: 2
По умолчанию Переписать код в Visual c++

Нужно построить гистограмму распределения N случайных чисел на M интервалах. Есть на Builder c++
Код:
void  mas_purp()
{
max_A=0;
for (int i=0; i<n; i++) {
ch_A[i]=rand()%100;
if (ch_A[i]>max_A)
 max_A=ch_A[i];
}
max_B=0;
randomize();
for (int i=0; i<n; i++)
{
ch_B[i]=random(100);
if (ch_B[i]>max_B)
 max_B=ch_B[i];
}
for (int i=0; i<k; i++) {
sort_A[i]=0;
sort_B[i]=0;
}
int niz, verh,dva;
for (int i=0; i<n; i++)
  {
  niz=0;
  verh=100/k;
  dva=0;
  for (int j=0; j<k; j++)
	{
	if ((ch_A[i]>niz) && (ch_A[i]<=verh))
	  {
	  sort_A[j]++;
	  dva++;
	  if (dva==2) {break;}
	  }
	if ((ch_B[i]>niz) && (ch_B[i]<=verh))
	  {
	  sort_B[j]++;
	  dva++;
	  if (dva==2) {break;}
	  }
	  verh+=100/k;
	  niz+=100/k;
	 }
  }
}
//---------------------------------------------------------------------------

void graph()
{
int mash_A,mash_B;
mash_A=400/n;
mash_B=400/n;
Form1->Image1->Canvas->Pen->Width=1;
Form1->Image2->Canvas->Pen->Width=1;
int x1,y2;
x1=i_sp;
y2=401;
for (int i = 0; i < k; i++)
{
Form1->Image1->Canvas->Brush->Color=random(16000000);
Form1->Image2->Canvas->Brush->Color=Form1->Image1->Canvas->Brush->Color;
Form1->Image1->Canvas->Rectangle(x1,y2-sort_A[i]*mash_A,x1+i_w/k,y2);
Form1->Image2->Canvas->Rectangle(x1,y2-sort_B[i]*mash_B,x1+i_w/k,y2);
x1+=i_w/k;
}
}
Пробовала на visual c++, не получается.можете подсказать что здесь не так
elenkarm вне форума Ответить с цитированием
Старый 20.12.2012, 14:01   #2
elenkarm
Новичок
Джуниор
 
Регистрация: 20.12.2012
Сообщений: 2
По умолчанию

Код:
#pragma once
#include <stdlib.h>
namespace test3 {
#pragma endregion
		static System::Drawing::Graphics^ g = nullptr;
		static System::Drawing::Pen^ pen = nullptr;
		static System::Drawing::Brush^ brush = nullptr;
	private: System::Void button1_Click(System::Object^  sender, System::EventArgs^  e) {
				 int x=0,y,s,y1;
				 int n,m,k,l,a,b,verh,niz,Amax;
				 int mas[100];
				 mas[100]=0;
				 g = System::Drawing::Graphics::FromImage(pictureBox1->Image);
				 g->CompositingMode =  System::Drawing::Drawing2D::CompositingMode::SourceCopy;
				 pen = gcnew System::Drawing::Pen(colorDialog1->Color);
			 brush = gcnew System::Drawing::SolidBrush(colorDialog2->Color);
				//pen->Color::set(System::Drawing::Color::Green);
				 pen->Color::set(System::Drawing::Color::Aqua);
			     n = Convert::ToInt32(textBox1->Text);
			 m=Convert::ToInt32(textBox2->Text);
				 //g->DrawLine(pen,0,200,n*10,200);
			 Amax=0;
			     k=100/m;
                 for(int i=0;i<n;i++)
				 { 
				 y1=rand()%2;
				 int l=y1/k; mas[l]++;}
				 Amax=mas[0];
                 for (int l=1;l<m;l++)
				 {
				 if ( mas[l]>Amax)
					 Amax=mas[l];
				 }
				 a=400/n; 
				 b=400/m;
				 int x1;
				 x1=0;
				 
				 for (int l=0; l < k; l++)
				 {
				 g->DrawRectangle(pen,x1,400-Amax*a,x1+b/k,400);
				
                 pictureBox1->Invalidate();
				 x1+=400/k;
				
				  }
				  }
	private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) {
				 pictureBox1->Image =  gcnew System::Drawing::Bitmap(pictureBox1->Size.Width,pictureBox1->Size.Height);
					 Text = "Безымянный"; 
			 }
};
}
вот код на Visual c++
elenkarm вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Переписать код с Delphi на С++ saifullina Помощь студентам 0 30.10.2012 00:34
переписать код с delphi на c++ lirikoff Помощь студентам 1 12.06.2011 17:12
переписать код на паскаль hunter03 Паскаль, Turbo Pascal, PascalABC.NET 0 13.12.2010 15:46
Код игры на Паскале и на Делфи сильно отличается? Как переписать код с Паскаля в Делфи? Mclaren Помощь студентам 2 27.04.2009 22:37