Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2015, 16:40   #11
AlexandraGrey
Пользователь
 
Регистрация: 19.10.2015
Сообщений: 14
По умолчанию

а как-то так это задание можно решить??
Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin;

type

  { TForm1 }

  TForm1 = class(TForm)
    DoButton: TButton;
    taxCheck: TCheckBox;
    nLabel: TLabel;
    pLabel: TLabel;
    sLabel: TLabel;
    AnsLabel: TLabel;
    numberEdit: TSpinEdit;
    priceEdit: TSpinEdit;
    procedure DoButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.DoButtonClick(Sender: TObject);
var number, price : integer;
    sum : real;
begin
   number := numberEdit.Value;
   price := priceEdit.Value;
   if (taxCheck.Checked) then
   sum := number*price*0.2;
begin
sum := number*price;
  AnsLabel.Caption := FloatToStr(sum);
end;

end;

end.
AlexandraGrey вне форума Ответить с цитированием
Старый 23.11.2015, 17:32   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Как-то так конечно можно. Только для TSpinEdit не забудь min выставить в 0.
И я не оч. уверен что этот компонент позволит тебе крутить число с копейками.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.11.2015, 06:33   #13
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Для Лазаруса есть полно компонентов специализированных Edit'ов - для ввода чисел разных форматов. Формат с копейками вроде тоже есть. То есть он тупо не даст ввести не правильно число. Есть также универсальный TfloatSpinEdit, свойство DecimalPlaces указывает количество знаков после запятой. Свойство Increment - приращение, когда жмете маленькие стрелочки увеличения/уменьшения числа. Есть готовый TLSCurrencyEdit, который сразу получает значения с копейками.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика

Последний раз редактировалось Utkin; 24.11.2015 в 06:42.
Utkin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сделать программу, которая вычисляет функцию... Devon-Idol Помощь студентам 0 03.05.2013 11:27
Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять общую сумму надбавки. Proskurina Помощь студентам 0 04.04.2013 18:00
Написать программу,которая вычисляет длину кривой холодная92 Паскаль, Turbo Pascal, PascalABC.NET 7 15.06.2012 04:01