Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
Гродненский Форум
21 Июль 2025, 00:48:00
Новости, реклама:
   Главная   Новости Гродно Помощь Игры Календарь Войти Регистрация   Меню
Гродненский Форум > Компьютеры > Программирование
(Модераторы: Админ, barmalei) > Тема:

перевести из делфи на C++Builder 6( код)

Страниц  :   Вниз
  Печать  
Автор Тема: перевести из делфи на C++Builder 6( код)  (Прочитано 1436 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Kot_dg
Не мы такие - жизнь такая
Молодой Гродненец
*

Репутация: +0/-0
Offline Offline

Пол: Мужской
Сообщений: 22


Просмотр профиля WWW
« : 04 Сентябрь 2010, 20:18:44 »

помогите плиз.. заранее спасибо!!!



var
id,i2,n2,m2:integer;
mas:array[1..10] of integer;
maso:array[1..4] of integer;

-//-


for i2:=1 to 4 do
begin
maso[i2]:=i2;
end;
for i2:=1 to 4 do
begin
N2:=Random(4)+1;
M2:=Random(4)+1;
so:=maso[n2];
maso[n2]:=maso[m2];
maso[m2]:=so;
end;
« Последнее редактирование: 04 Сентябрь 2010, 20:35:34 от Kot_dg » Записан

Sven4uk
Почетный гродненец
*****

Репутация: +231/-0
Offline Offline

Сообщений: 2367

Просмотр профиля
« Ответ #1 : 04 Сентябрь 2010, 23:06:44 »

#include <cstdlib>
#include <ctime>

int main() {
   int id, i2, n2, m2;
   int mas[10], maso[4];
   
   for (i2 = 0; i2 < 4; ++i2) {
      maso[i2] = i2;
   }
   srand(time(0));
   for (i2 = 0; i2 < 4; ++i2) {
      n2 = rand() % 4;
      m2 = rand() % 4;
      
      int so = maso[n2];
      maso[n2] = maso[m2];
      maso[m2] = so;      
   }
}


а вообще, бред какой-то..
Записан
Kot_dg
Не мы такие - жизнь такая
Молодой Гродненец
*

Репутация: +0/-0
Offline Offline

Пол: Мужской
Сообщений: 22


Просмотр профиля WWW
« Ответ #2 : 05 Сентябрь 2010, 21:18:32 »

сортировка рандомом  и последующий вывод

только не пойму через раз работает((((

Добавлено: [time]Sun Sep  5 20:21:36 2010[/time]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int id, i2, n2, m2;
   int mas[10], maso[4];
   for (i2 = 1; i2 <= 4; ++i2) {
      maso[i2] = i2;
   }
 // srand(time(0));
  for (i2 = 1; i2 <= 4; ++i2) {
      n2 = rand() % 4;
      m2 = rand() % 4;
      int so = maso[n2];
      maso[n2] = maso[m2];
      maso[m2] = so;

ShowMessage(maso[i2]);  // нужно чтобы было например (4,1,3,2   или 1, 4, 2,3   и, т, д)


}
}



Записан

Sven4uk
Почетный гродненец
*****

Репутация: +231/-0
Offline Offline

Сообщений: 2367

Просмотр профиля
« Ответ #3 : 05 Сентябрь 2010, 22:23:58 »

чтобы от 1 до 4 получалось в первом форе:

for (i2 = 0; i2 < 4; ++i2) {
   maso[i2] = i2 + 1;
}
Записан
Kot_dg
Не мы такие - жизнь такая
Молодой Гродненец
*

Репутация: +0/-0
Offline Offline

Пол: Мужской
Сообщений: 22


Просмотр профиля WWW
« Ответ #4 : 05 Сентябрь 2010, 23:11:07 »

Нужно чтобы не повторялись числа((((
Записан

Sven4uk
Почетный гродненец
*****

Репутация: +231/-0
Offline Offline

Сообщений: 2367

Просмотр профиля
« Ответ #5 : 06 Сентябрь 2010, 08:43:10 »

Код:
#include <cstdlib>
#include <ctime>
#include <iostream>

int main() {
        const int N(4);
        int arr[N];

        for (int i(0); i < N; ++i) {
                arr[i] = i + 1;
        }

        srand(time(0));
        for (int i(0); i < N; ++i) {
                int randomIndex = rand() % 4;

                int temp = arr[i];
                arr[i] = arr[randomIndex];
                arr[randomIndex] = temp;
        }

        for (int i(0); i < N; ++i) {
                std::cout << arr[i] << std::endl;
        }
}

один и тот же вектор получается, потому что ты закомментил srand(time(0));
Записан
Kot_dg
Не мы такие - жизнь такая
Молодой Гродненец
*

Репутация: +0/-0
Offline Offline

Пол: Мужской
Сообщений: 22


Просмотр профиля WWW
« Ответ #6 : 08 Сентябрь 2010, 01:11:41 »

{
  int mas [4], i,temp,r1;
 mas[0]=4;
 mas[1]=3;
 mas[2]=2;
 mas[3]=1;
 randomize();
 for (i = 0; i <= 3; i++)
  {
   r1=random(3);
   temp=mas;
   mas=mas[r1];
   mas[r1]=temp;
  }
  ShowMessage(IntToStr(mas[0])+IntToStr(mas[1])+IntToStr(mas[2])+IntToStr(mas[3]));
  }


Тема закрыта... СПАСИБО!!
Записан

Страниц  :   Вверх
  Печать  
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий

Войдите через социальную сеть

Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?

Контакт
Powered by MySQL Powered by PHP Мобильная версия
Powered by SMF 1.1.20
SMF © 2006-2025, Simple Machines
Simple Audio Video Embedder
| Sitemap
Valid XHTML 1.0! Valid CSS!
Страница сгенерирована за 0,108 секунд. Запросов: 20.