Многопоточное приложение

@123lexx321 · Регистрация: 22.01.2011

Совсем запарился, помогите.
Задание:
Разработать программу, которая создает в отдельном потоке случайный массив А из N целых чисел в диапазоне от -999 до 999 выводит на экран эти числа. Создание и вывод элементов массива производится через заданное время T, N и T вводятся пользователем до запуска процесса. Массив обрабатывается двумя другими потоками В и С, работающими параллельно с потоком, создающим массив. Все потоки выводят результаты своей работы в текстовые окна, каждый поток в свое окно.
Задание В. Вычисление общего количества цифр всех элементов массива
Задание C. Определение и вывод чисел, являющихся простыми числами.

Создал форму, создал 3 потока. Во втором и третьем потоке написал код для задания В и С(кстати проверьте что не так). В первом потоке написал код массива.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TMemo *Memo1;
        TMemo *Memo2;
        TMemo *Memo3;
        TTimer *Timer1;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TEdit *Edit1;
        TEdit *Edit2;
        TLabel *Label4;
        TLabel *Label5;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
        
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}

Юнит первого потока

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
//---------------------------------------------------------------------------
class MyThr1 : public TThread
{            
private:
protected:
        void __fastcall Execute();
public:
        int i;
        char A[]="";
        __fastcall MyThr1(bool CreateSuspended);
};
//---------------------------------------------------------------------------
#endif

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
#pragma package(smart_init)
 
//---------------------------------------------------------------------------
 
__fastcall MyThr1::MyThr1(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall MyThr1::Execute()
{
    Form1->Memo1->Text=StrToInt(Form1->Edit2->Text)+"случайных значений";
        for(i=0;i<Form1->Edit2->Text;i++)
            {
              A[i]= random(1999)-1000;
              Form1->Memo1->Lines->Add(IntToStr(A[i]));
            }
}

Юнит второго потока

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Unit2.cpp>
 
//---------------------------------------------------------------------------
class MyThr2 : public TThread
{            
private:
protected:
        void __fastcall Execute();
public:
        __fastcall MyThr2(bool CreateSuspended);
};
//---------------------------------------------------------------------------
#endif

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall MyThr2::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall MyThr2::MyThr2(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall MyThr2::Execute()
{
        //---- Place thread code here ----
             while (A[i]>0)
               {
               A[i]/=10;
               count++;
               }
        Form1->Memo3->Text="Вычисление общего количества цифр всех элементов массива"+count;
}

Юнит 3 потока

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#ifndef Unit4H
#define Unit4H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Unit2.cpp>
 
//---------------------------------------------------------------------------
class MyThr3 : public TThread
{            
private:
protected:
        void __fastcall Execute();
public:
        __fastcall MyThr3(bool CreateSuspended);
};
//---------------------------------------------------------------------------
#endif

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
__fastcall MyThr3::MyThr3(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall MyThr3::Execute()
{
        //---- Place thread code here ----
        Form1->Memo3->Text="Опеределение и вывод чисел, являющихся простыми";
        bool flag=1;
        for (int j=2;i<A[i];j++)
            {
            if (A[i]%j==0){flag=0;break;}
            }
        if (flag) Form1->Memo3->Lines->Add(IntToStr(A[i]));
 
}

А дальше начались проблемы.
1.Не знаю точно в правильном ли месте написал код массива, чтоб к нему могли обращаться все потоки?
2.Создал две кнопки START и STOP для запуска и остановки потоков. Подскажите где и как написать код для этих кнопок? И как использовать параметр T?
Заранее спасибо.

@-LeV- · 21.03.2011, 13:13

да ничего, работает?

@123lexx321 · 21.03.2011, 14:02 **[ТС]**

Да.Теперь первый поток работает как надо. Буду разбираться со следующими

Добавлено через 47 минут
а как надо использовать полученный Mas, чё то у меня не получается
например чтобы во втором потоке вывести первый элемент массива из первого потока

@-LeV- · 21.03.2011, 14:14

надо передавать Mas в конструкторе класса в каждый поток, так же как и в первый. Тогда можно в каждом потоке обращаться к нему как A[i]

@123lexx321 · 21.03.2011, 14:25 **[ТС]**

НУ я вроде бы все это делаю. Но получается что Undefined symbol 'A'

Добавлено через 5 минут
extern MyThr3 *Thr3;
extern int*Mas;

__fastcall MyThr3::MyThr3(bool CreateSuspended,int*Mas)
: TThread(CreateSuspended)
{
A=Mas;
}
//---------------------------------------------------------------------------
void __fastcall MyThr3::Execute()
{
Form1->Memo3->Text="Опеределение и вывод чисел, являющихся простыми";
bool flag=1;
int i=0;
for (int j=2;j<A[i];j++)
{
if (A[i]%j==0){flag=0;break;}
}
if (flag) Form1->Memo3->Lines->Add(A[i]);
delete Thr3;
}

@-LeV- · 21.03.2011, 14:28

class MyThr3 : public TThread
{
private:
protected:
void __fastcall Execute();
public:
__fastcall MyThr3(bool CreateSuspended, int* Mas);
int* A;
};

@123lexx321 · 21.03.2011, 14:40 **[ТС]**

Это все так

Добавлено через 1 минуту
void __fastcall MyThr3::Execute()
{
Form1->Memo3->Text="Опеределение и вывод чисел, являющихся простыми";
bool flag=1;
int i=0;
for (int j=2;j<A[i];j++) сюда показывает
{
if (A[i]%j==0){flag=0;break;}
}
if (flag) Form1->Memo3->Lines->Add(A[i]);
delete Thr3;
}

Добавлено через 1 минуту
а точно д.б. A=Mas а не наоборот?

@-LeV- · 21.03.2011, 14:45

да
выложите весь проект в архиве

@123lexx321 · 21.03.2011, 14:49 **[ТС]**

вот архив

@-LeV- · 21.03.2011, 15:13

память под массив надо выделять не в потоке
Mas = new int [StrToInt(Form1->Edit2->Text)];

потому что когда поток завершается вся выделенная им память освобождается

и должно быть A = Mas; а не наоборот

@123lexx321 · 21.03.2011, 20:48 **[ТС]**

Да точно, это я забыл.Вроде ещё один поток заработал. Спасибо.

Но похоже берется только первый элемент массива

Добавлено через 5 часов 11 минут
ВРоде бы все заработало более-менеее... Не могу только разобраться с таймером. Создание и вывод массива должны производится чере время Т
написал такое, но по-видимому чушь, т.к не работает, да и при компиляции is not a valid integer value

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
MyThr1 *Thr1;
MyThr2 *Thr2;
MyThr3 *Thr3;
int*Mas;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
Mas=new int[StrToInt(Form1->Edit2->Text)];
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
Timer1->Interval=StrToInt(Form1->Edit1->Text);
Thr1=new MyThr1(false,Mas);
Thr1->Priority=tpHigher;
Thr1->FreeOnTerminate=false;
Thr2=new MyThr2(false,Mas);
Thr2->Priority=tpNormal;
Thr2->FreeOnTerminate=false;
Thr3=new MyThr3(false,Mas);
Thr3->Priority=tpLower;
Thr3->FreeOnTerminate=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled=false;
}

@-LeV- · 21.03.2011, 21:47

Timer1->Interval = StrToInt(Edit1->Text)

вырубить его не забудь

@123lexx321 · 22.03.2011, 11:50 **[ТС]**

Наконец то я её доделал и сдал. Не без косяков конечно, но все же..Спасибо всем за помощь, особенно благодарен -LeV-.

Новые блоги и статьи Все статьи Все блоги /
Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 13:13
	да ничего, работает? 0

@123lexx321 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 25
	21.03.2011, 14:02 [ТС]
	Да.Теперь первый поток работает как надо. Буду разбираться со следующими Добавлено через 47 минут а как надо использовать полученный Mas, чё то у меня не получается например чтобы во втором потоке вывести первый элемент массива из первого потока 0

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 14:14
	надо передавать Mas в конструкторе класса в каждый поток, так же как и в первый. Тогда можно в каждом потоке обращаться к нему как A[i] 0

@123lexx321 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 25
	21.03.2011, 14:25 [ТС]
	НУ я вроде бы все это делаю. Но получается что Undefined symbol 'A' Добавлено через 5 минут extern MyThr3 Thr3; extern intMas; __fastcall MyThr3::MyThr3(bool CreateSuspended,int*Mas) : TThread(CreateSuspended) { A=Mas; } //--------------------------------------------------------------------------- void __fastcall MyThr3::Execute() { Form1->Memo3->Text="Опеределение и вывод чисел, являющихся простыми"; bool flag=1; int i=0; for (int j=2;j<A[i];j++) { if (A[i]%j==0){flag=0;break;} } if (flag) Form1->Memo3->Lines->Add(A[i]); delete Thr3; } 0

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 14:28
	class MyThr3 : public TThread { private: protected: void __fastcall Execute(); public: __fastcall MyThr3(bool CreateSuspended, int* Mas); int* A; }; 0

@123lexx321 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 25
	21.03.2011, 14:40 [ТС]
	Это все так Добавлено через 1 минуту void __fastcall MyThr3::Execute() { Form1->Memo3->Text="Опеределение и вывод чисел, являющихся простыми"; bool flag=1; int i=0; for (int j=2;j<A[i];j++) сюда показывает { if (A[i]%j==0){flag=0;break;} } if (flag) Form1->Memo3->Lines->Add(A[i]); delete Thr3; } Добавлено через 1 минуту а точно д.б. A=Mas а не наоборот? 0

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 14:45
	да выложите весь проект в архиве 0

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 15:13
	память под массив надо выделять не в потоке Mas = new int [StrToInt(Form1->Edit2->Text)]; потому что когда поток завершается вся выделенная им память освобождается и должно быть A = Mas; а не наоборот 0

@-LeV- 103 / 74 / 10 Регистрация: 29.05.2010 Сообщений: 192
	21.03.2011, 21:47
	Timer1->Interval = StrToInt(Edit1->Text) вырубить его не забудь 0

@123lexx321 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 25
	22.03.2011, 11:50 [ТС]
	Наконец то я её доделал и сдал. Не без косяков конечно, но все же..Спасибо всем за помощь, особенно благодарен -LeV-. 0