|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2010, 21:42 | #1 |
Регистрация: 17.05.2010
Сообщений: 4
|
Функция зависает
#include <vcl.h>
#pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; int GetRnd(int max) { srand(GetTickCount()); return rand()%max+1; } void GetArrRnd(int* arr,int len) { int a = 0 ; int i = 0 ; while(i<len) { a = GetRnd(len); for(int j=i; j>=0; --j) { if(arr[j] == a) break; else if (j==0) { arr[i] = a; ++i; } } } } const int len = 4; int arr1[len]; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { GetArrRnd(arr1, len); Edit1->Text=arr1[0]; Edit2->Text=arr1[1]; Edit3->Text=arr1[2]; Edit4->Text=arr1[3]; } //------------------------------------------------------------------------- Бывает зависает. Не могу понять почему. |
18.05.2010, 05:05 | #2 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
Включайте теги кода. Помогает.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Компютер сильно зависает в интернете! | arturragimov | Помощь студентам | 16 | 17.05.2010 18:13 |
Зависает комп | Voda | Компьютерное железо | 3 | 27.08.2009 22:31 |
Изза потока зависает программа | RNT | Общие вопросы Delphi | 9 | 10.07.2009 19:15 |
Мышь зависает(вирусы!!!) | OPEOP | Безопасность, Шифрование | 3 | 28.12.2008 16:56 |