С++ Builder програми "Формування суми прописом"

Автор работы: Пользователь скрыл имя, 06 Марта 2013 в 19:08, курсовая работа

Описание

Метою даного курсового проекту є створення на високорівневій мові програмування С++ Builder програми «Формування суми прописом».
Основною задачею, яку необхідно вирішити в даному проекті це створення програми яка формує суму виразу прописом.
Бажано використати у програмному коді тільки ті функції та бібліотеки, які ми вивчали у даному розділі.
Інтерес до персональних комп'ютерів постійно зростає, а коло їх користувачів безперервно розширюється.

Содержание

ВСТУП . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
1 ПостановКа задачі . . . . . . . . . . . . . . …. . . . . . . . . . . . . . . . . . . 4
2 Актуальність задачі . . . . . . . . . . . . . . ... . . . . . . . . . . . . . . . . . .5
3 Аналіз предметної області . . . . . . . . . . . . . . . . . . . . . . . . . . 6
3.1 Огляд технічних проблем . . . . . . . . . . . . ... . . . . . . . . . . . . . . . . . 6
3.2 Стан навколишнього середовища . . . . . .. . . . . . . . . . . . . . . . . . . 6
4 Опис системи . . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . .7
5 Вибір засобів реалізацїї . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 9
5.1 Операційна система . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .9
5.2 Мова програмування і середовище розробки . . . . . . . . . . . . . 10
5.3 Система керування базами даних . . . . . . . . . . . . . . . . . . . . . . 10
5.4 Необхідні вимоги до конфігурації ЕОМ . . . . . . . . . . . . . . . . 11
Висновки . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 12
СПИСОК ЛІТЕРАТУРИ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 13
Додаток А Специфікація . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 14
Додаток Б Текст програми . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 16
Додаток В Інструкція користувачеві. . . . . . . . . . . . . . . . . . . . . . . . . . . 25

Работа состоит из  1 файл

1.docx

— 1.37 Мб (Скачать документ)

   case 5: res="пять"; break;

   case 6: res="шість"; break;

   case 7: res="сім"; break;

   case 8: res="вісім"; break;

   case 9: res="девять"; break;

  }

}

else

 res="";

return (res);

}

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

AnsiString sot (int bvr)

{

AnsiString res="";

int q=div(bvr, 100).quot;

if (q!=0)

{

  switch (q)

   {

    case 1: res="сто"; break;

    case 2: res="двісті"; break;

    case 3: res="триста"; break;

    case 4: res="чотириста"; break;

    case 5: res="пятсот"; break;

    case 6: res="шістсот"; break;

    case 7: res="сімсот"; break;

    case 8: res="вісімсот"; break;

482.ТБЕК.13.107/10-03 1201

  case 9: res="девятсот"; break;

   }

  return (res+" ");

}

else

 return ("");

}

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

AnsiString tis (int bvr)

{

AnsiString res=sot((bvr%1000000)/1000)+des((bvr%100000)/1000)+" "+edk((bvr%100000)/1000);

if (res==" ")

 return("");

else

 return (res+" тис.");

}

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

AnsiString rub (int bvr)

{

AnsiString res=tis(bvr)+" "+sot(bvr%1000)+des(bvr%100)+" "+edr(bvr%100);

if (res==" нуль цілих ")

 return("");

else

 return (res+" ціл. ");

}

 

 

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

482.ТБЕК.13.107/10-03 1201

void __fastcall TForm1::Button1Click(TObject *Sender)

{

AnsiString r, k;

r=k=0;

double bv=(Edit1->Text).ToDouble();//вихідне число

int bvr, bvk;

bvr=bvk=0;

bvr=int(bv);

double h=0;

h=(bv-int(bv))*100;

bvk=myround(h);

k="";

r=rub(bvr);

k=kop(bvk);

Edit2->Text=r+" "+k;

k="";

}

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

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)

{

if ((Key>='0') && (Key<='9'))

 return;

if (Key==DecimalSeparator)

{

  if ((Edit1->Text).Pos(DecimalSeparator)!=0)

   Key=0;

  return;

}

if (Key==VK_BACK)

482.ТБЕК.13.107/10-03 1201

 return;

if (Key==VK_RETURN)

{

  Button1->SetFocus();

  return;

}

Key=0;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

float Item1, Item2;

Item1=StrToFloat ( Form1->Edit3->Text);

Item2=StrToFloat (Form1->Edit4->Text);

Form1->Edit1->Text=FormatFloat("0.00",Item1+Item2);

}

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

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)

{

  if (Key=='e' || Key=='e' || Key=='+' || Key=='-' || Key==',' || (Key>='0' &&

Key<='9'))

return;

else Key=0;          

}

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

void __fastcall TForm1::Edit4KeyPress(TObject *Sender, char &Key)

{

 if (Key=='e' || Key=='e' || Key=='+' || Key=='-' || Key==',' || (Key>='0' &&

Key<='9'))

482.ТБЕК.13.107/10-03 1201

return;

else Key=0;              

}

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

void __fastcall TForm1::Edit3Exit(TObject *Sender)

{

if(Form1->Edit3->Text=="")

Form1->Edit3->Text=="0";

}

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

void __fastcall TForm1::Edit4Exit(TObject *Sender)

{

 if(Form1->Edit4->Text=="")

Form1->Edit4->Text=="0";

}

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

void __fastcall TForm1::N1Click(TObject *Sender)

{

Form2->Show();

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

Close();

}

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

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

Close();

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

482.ТБЕК. 13.232/09-01 3401

Додаток В Інструкція користувачеві

Дана  програма не доставить користувачеві  важкої роботи з нею.

У програмі зрозумілий інтерфейс, для всіх компонентів описана їхня  дія.

Після запуску  програми починаємо введення чисел, суму яких потрібно знайти. Вгорі знаходяться місця для введення чисел, потім натискаємо знак «+» і виводиться сума в числах. Після натискання на кнопку «Перевести», сума переводиться в суму прописом. Для виведення даних про розробника, натискаємо меню «Розробник». Для виходу з програми натискаємо кнопку «Вихід», або хрестик в правій верхній частині вікна програми.

 

 

 

 

 

 

 

 


Информация о работе С++ Builder програми "Формування суми прописом"