|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
10.04.2012, 10:42 | #1 (permalink) |
Новичок
Регистрация: 10.04.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, две недели мучаюсь
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1mass.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } const Nmax=10; typedef double mas2[Nmax][Nmax]; typedef double mas1[Nmax]; int n; //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Edit1->Text=FloatToStr(n); StringGrid1->ColCount=n+1; StringGrid1->RowCount=n+1; StringGrid2->RowCount=n+1; StringGrid1->Cells[0][0]="Массив А"; StringGrid2->Cells[0][0]="Массив Б"; for(int i=1; i<=n; i++) { StringGrid1->Cells[0][i]="i="+IntToStr(i); StringGrid1->Cells[i][0]="k="+IntToStr(i); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { n=StrToInt(Edit1->Text); StringGrid1->ColCount=n+1; StringGrid1->RowCount=n+1; StringGrid2->RowCount=n+1; StringGrid1->Cells[0][0]="Массив А"; StringGrid2->Cells[0][0]="Массив Б"; for(int i=1; i<=n; i++) { StringGrid1->Cells[0][i]="i="+IntToStr(i); StringGrid1->Cells[i][0]="k="+IntToStr(i); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { mas2 a; mas1 b; int i,k; for(i=0;i<n;i++) for(k=0;k<n;k++) a[i][k]=StrToFloat(StringGrid1->Cells[i+1][k+1]); int s=0,p=1; for(k=0;k<n;k++) for(i=0;i<n;i++) { s=s+a[i][k]; p*=a[i][k]; } if(p*=0) b[i]=0; else b[i]=1; for(i=0;i<n;i++) StringGrid2->Cells[0][k+1]=FloatToStr(b[i]); } //--------------------------------------------------------------------------- |
10.04.2012, 10:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблемы часто повторяются и ваша не исключение, вот схожие темы Изменение дня недели |
11.04.2012, 00:02 | #3 (permalink) |
Новичок
Регистрация: 10.04.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
если честно, то нет .
капилятор Builder 6. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|