Додаток а. Код програми

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit7.h"

#include "Unit5.h"

#include "Unit8.h"

#include "Unit6.h"

#include "Unit9.h"

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

#pragma package(smart_init)

#pragma link "Word_2K_SRVR"

#pragma resource "*.dfm"

TForm1 *Form1;

int n=0,t1=0, t=0, v=0, r=0,k=0,yzl=0, km=0,n1=0,n2=0,n3=0;

AnsiString rs;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if(ComboBox1->Text=="Порт Одеса" && ComboBox2->Text=="Порт Самсун")

{

Image2->Picture->Bitmap->LoadFromFile("ship.bmp");

Canvas->Pen->Color=clRed;

Canvas->Pen->Width=2;

Form1->Canvas->MoveTo(160,104);

Form1->Canvas->LineTo(192,176);

Form1->Canvas->LineTo(328,328);

Form1->Canvas->LineTo(424,376);

Form1->Canvas->LineTo(416,408);

Button1->Visible=true;

km=820;

n1=0;

Image2->Visible=True;

rs="Курс порт Одеса - порт Самсун." + Memo1->Text + " " + Memo2->Text ;

}

if(ComboBox1->Text=="Порт Одеса" && ComboBox2->Text=="Порт Мариуполь ")

{

Image2->Picture->Bitmap->LoadFromFile("ship.bmp");

Canvas->Pen->Color=clRed;

Canvas->Pen->Width=2;

Form1->Canvas->MoveTo(432,80);

Form1->Canvas->LineTo(432,136);

Form1->Canvas->LineTo(432,168);