9 / 9 / 1
Регистрация: 20.05.2012
Сообщений: 138
1

Преобразование денежной суммы, заданной в виде дробного числа, в формат «рубли – копейки»

10.04.2013, 08:13. Показов 4720. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Разрабатывается приложение «Lab02_02», которое:
1) имеет интерфейс, разработанный с применением визуальных компонентов Label, Button и Edit;
2) ¬решает задачу преобразования денежной суммы, заданной в виде дробного числа, в формат «рубли – копейки»;
3) иллюстрирует способ обработки исключения EConvertError, возникающего в процессе работы программы в результате неудачной попытки преобразования строки в вещественное число.


Ребят, посмотрите пожалуйста прогу... и как 2 и 3 пункт делать? никак не могу додуматься....
Вложения
Тип файла: rar Архив WinRAR.rar (525.0 Кб, 25 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2013, 08:13
Ответы с готовыми решениями:

Преобразовать дробное число в денежный формат (рубли и копейки) используя int и frac.
Преобразовать дробное число в денежный формат (рубли и копейки) используя int и frac.

Преобразование денежной суммы из численного вида в строковый
Как сделать преобразование, чтобы можно было вводить цифрами, а на выходе было бы строковое...

Перевести копейки в рубли
Есть таблица AACCOUNT(Счета) в нем есть поле SUMMANOW (остаток) в нем приведены остаток денег в...

Меняем местами рубли и копейки (ошибка)
CLS INPUT "Vvedite M (M<51): "; M INPUT "Vvedite R: "; R INPUT "Vvedite K: "; K LET P =...

2
291 / 239 / 102
Регистрация: 07.04.2011
Сообщений: 1,435
10.04.2013, 15:37 2
Лучший ответ Сообщение было отмечено Lucia000 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TFormMain.ButtonConvertClick(Sender: TObject);
Var
 I:Real;
begin
     try
     I:=StrToFloat(EditS.Text);
     Except On EConvertError do
        begin
          ShowMessage('Îøèáêà äàííûõ');
          Exit;
        end;
      end;
 EditR.Text:=FloatToStr(Trunc(i)); //âûäåëÿåì öåëóþ
 EditK.Text:=FloatToStr(Frac(i));//âûäåëÿåì äðîáíóþ
end;
 
procedure TFormMain.EditSKeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['.',','] then Key:=DecimalSeparator;//ставим системный десятичный разделитель
end;
1
9 / 9 / 1
Регистрация: 20.05.2012
Сообщений: 138
17.04.2013, 21:55  [ТС] 3
вот))

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFormMain = class(TForm)
    LabelTitle: TLabel;
    LabelS: TLabel;
    LabelRes: TLabel;
    LabelR: TLabel;
    LabelK: TLabel;
    EditS: TEdit;
    EditR: TEdit;
    EditK: TEdit;
    ButtonConvert: TButton;
    procedure ButtonConvertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormMain: TFormMain;
 
implementation
 
{$R *.dfm}
var
 r,k:Integer;
 s:Real;
 
procedure TFormMain.ButtonConvertClick(Sender: TObject);
begin
 //EditR.Text :='рубли';
 //EditK.Text :='копейки' ;
 
 
try
// операторы, выполнение которых может вызвать ошибку
     //из строки в дробное число
  s:=StrToFloat(EditS.Text);
     //определение количества рублей и копеек
  r:=round(s*100) div 100;
  k:=round(s*100) mod 100;
    //из количества рублей в строку
  EditR.Text := IntToStr(r);
   //из количества копеек в строку
  EditK.Text := IntToStr(k);
except
    //обработка исключений
 on EO: EConvertError do
              ShowMessage('Oшибка преобразования типа!'+ #13 +EO.Message);
 else ShowMessage ('Неизвестная ошибка!')
end;
end;
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
 
end;
 
end.
0
17.04.2013, 21:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.04.2013, 21:55
Помогаю со студенческими работами здесь

Преобразовать цены в рубли и копейки 1998г
В файле хранятся названия товаров и цены в рублях 1997г.Создать новый файл,преоброзовав цены в...

Создать новый файл, преобразовав цены товара в рубли и копейки 1998 г
В файле хранятся названия товаров и цены в рублях 1997 г. Создать новый файл, преобразовав цены...

Создать новый файл, преобразовав цены товара в рубли и копейки 1998 г
В файле хранятся названия товаров и цены в рублях 1997 г. Создать новый файл, преобразовав цены...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru