Anonymous

//---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;int xs=6,ys=7,xn=10,yn=10,tab[6][7], tab2[100],px,py,tx1,tx2,ty1,ty2,P1,P2,P3,P4,S;float wsp_x, wsp_y, qx, qy, dx, dy ,S1,S2;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)        : TForm(Owner){ Form1->Memo1->Clear(); Form1->Memo2->Clear(); tab[0][0]= 10; tab[0][1]= 2; tab[0][2]= 1;tab[0][3]= 0; tab[0][4]= 0; tab[0][5]= 0; tab[1][0]= 3; tab[1][1]= 4;  tab[1][2]= 5;  tab[1][3]= 8;  tab[1][4]= 10; tab[1][5]= 12; tab[2][0]= 13; tab[2][1]= 14; tab[2][2]= 9; tab[2][3]= 16; tab[2][4]= 18; tab[2][5]= 0; tab[3][0]= 1;  tab[3][1]= 1;  tab[3][2]= 1; tab[3][3]= 1;  tab[3][4]= 0; tab[3][5]= 0; tab[4][0]= 8;  tab[4][1]= 5;  tab[4][2]= 6;  tab[4][3]= 7; tab[4][4]= 9; tab[4][5]= 11; tab[5][0]= 13; tab[5][1]= 0; tab[5][2]= 0;  tab[5][3]= 1; tab[5][4]= 2; tab[5][5]= 2; tab[6][0]= 3;  tab[6][1]= 3; tab[6][2]= 4; tab[6][3]= 4; tab[6][4]= 4;  tab[6][5]= 4; wsp_x = float(xn)/float(xs); wsp_y = float(yn)/float(ys); Memo2->Lines->Add(("wsp_x = ")+FloatToStr(wsp_x)); Memo2->Lines->Add(("wsp_y = ")+FloatToStr(wsp_y));}//----------------------------------  -----------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){ for(int i=0; i<7; i++) {  for(int j=0; j<6;j++)  Memo1->Lines->Add(IntToStr(tab[i][j]));   }}//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ px = StrToInt(Edit1->Text); py = StrToInt(Edit2->Text); qx = float(px)/float(wsp_x); qy = float(py)/float(wsp_y); tx1 = qx;                     // ty1 = qy; P1 = tab[tx1][ty1]; P2 = tab[tx1][ty1+1]; P3 = tab[tx1+1][ty1]; P4 = tab[tx1+1][ty1+1]; dx = qx - tx1; dy = qy - ty1; S1 = P1 + (P2-P1)*dx; S2 = P3 + (P4-P3)*dx; S = S1 + (S2-S1)*dy; Memo2->Lines->Add(("px = ")+IntToStr(px)); Memo2->Lines->Add(("py = ")+IntToStr(py)); Memo2->Lines->Add(("qx = ")+FloatToStr(qx)); Memo2->Lines->Add(("qy = ")+FloatToStr(qy)); Memo2->Lines->Add(("tx = ")+IntToStr(tx1)); Memo2->Lines->Add(("ty = ")+IntToStr(ty1)); Memo2->Lines->Add(("P1 = ")+FloatToStr(P1)); Memo2->Lines->Add(("P2 = ")+FloatToStr(P2)); Memo2->Lines->Add(("P3 = ")+FloatToStr(P3)); Memo2->Lines->Add(("P4 = ")+FloatToStr(P4)); Memo2->Lines->Add(("dx = ")+FloatToStr(dx)); Memo2->Lines->Add(("dy = ")+FloatToStr(dy)); Memo2->Lines->Add(("S1 = ")+FloatToStr(S1)); Memo2->Lines->Add(("S2 = ")+FloatToStr(S2)); Memo2->Lines->Add(("S = ")+IntToStr(S));}//---------------------------------------------------------------------------void __fastcall TForm1::Button3Click(TObject *Sender){Application->Terminate();}//---------------------------------------------------------------------------