Miscellany

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Bukauskas_Ind_2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{
Memo1->Clear();         // Isvalomas Memo laukas 
FILE *FR; 
FR = fopen(CRez, "w");  // Sukuriamas tuscias tekstinis rezultatu failas 
fclose(FR);
n = m = 0; 
Skaityti(); 
Memo1->Lines->Add("Duomenys ivesti is failo: " + AnsiString(CDuom));
Rodyti1();
MatricaIfaila("Matrica A pries pakeitima"); 
Memo1->Lines->Add("Pradine matrica isiminta faile: " + AnsiString(CRez));
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Bmas();
Label2->Visible = true;
ListBox1->Visible = true;
Rodyti2();
Memo1->Lines->Add("Matrica pakeista");
Button1->Enabled = false;     // Mygtukas neveikia
Button2->Enabled = true;      // Mygtukas veikia

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
MatricaIfaila("Matrica A po pakeitimo");
Memo1->Lines->Add("Pakeista matrica isiminta faile: " + AnsiString(CRez));
Button2->Enabled = false;
}
//---------------------------------------------------------------------------
void TForm1::Skaityti()
{
  ifstream fd(CDuom);
  fd >> n >> m;
  for (int i = 0; i < n; i++)
    for (int j = 0; j < m; j++)
      fd>>A[i][j];
  fd.close();
}
void TForm1::Rodyti1()
{
int i, j;
StringGrid1->ColCount = m+1;  // Stulpeliu kiekis 
StringGrid1->RowCount = n+1;  // Eiluciu kiekis
for (j = 0; j < m; j++)       // Stulpeliu numeracija
  StringGrid1->Cells[j+1][0] = "Stulp. " + IntToStr(j); 
for (i = 0; i < n; i++)       // Eiluciu numeracija
  StringGrid1->Cells[0][i+1] = "Eil. " + IntToStr(i); 
for (i = 0; i < n; i++) 
  for (j = 0; j < m; j++) 
    StringGrid1->Cells[j+1][i+1] = 
      FloatToStrF(A[i][j], ffFixed, 6, 2); 
} 

void TForm1::MatricaIfaila(char *pav)
{
int i, j;
FILE *FR;
FR = fopen(CRez, "a");
fprintf(FR, "     %s\n", pav); 
fprintf(FR, "     "); 
for (j = 0; j < m; j++) 
   fprintf(FR, "%7d",j); 
fprintf(FR, "\n"); 
fprintf(FR, "     -"); 
for (j = 0; j < m; j++) 
   fprintf(FR, "-------"); 
fprintf(FR, "--\n"); 
for (i = 0; i < n; i++) 
  { 
  fprintf(FR, "%4d |", i); 
  for (j = 0; j < m; j++) 
    fprintf(FR, "%7.2f", A[i][j]); 
  fprintf(FR, " |\n"); 
  } 
fprintf(FR, "     -"); 
for (j = 0; j < m; j++) 
  fprintf(FR, "-------");
}
void TForm1::Rodyti2()
{
ListBox1->Items->Clear();
for (int k=0; k<n; k++)
 ListBox1->Items->Add(FloatToStr(*(B+k)));
}
void TForm1::SaugotiB(char * masv, char * rr)
{
FILE *FR;
FR=fopen(CRez, rr);
fprintf(FR, "%s masyvas\n", masv);
for (int i=0; i<n; i++)
  fprintf(FR, " %d", B[i]);
  fclose(FR);
}

void TForm1::Bmas()
{
k=0;
for (int i=0; i<n; i++)
 for (int j=0; j<m; j++)
       {
    if (A[i][j]<0)
    B[k]=A[i][j];
    continue;
   }


 }