Новичок
Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.11.2015
Репутация: нет
Всего: нет
|
Здраствуйте, есть программа она вычисляет, но есть проблема с окончаниями в программе. Нужно сделать их через цикл, но я не понимаю как выполнить. Вот код программы: | Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, ComCtrls, ImgList, jpeg;
type
TForm1 = class(TForm)
Label3: TLabel;
Edit1: TEdit;
Button1: TButton;
GroupBox1: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
ImageList1: TImageList;
ComboBoxEx1: TComboBoxEx;
Label2: TLabel;
Label7: TLabel;
Label9: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var money,d,e,r,f,c:real; //основные переменные
de,dd,dr,df,dc:real; //курсы валют с доллара
ee,ed,er,ef,ec:real; // с евро
re,rd,rr,rf,rc:real; // с рубля
fe,fd,fr,ff,fc:real; // с фунтов
ce,cd,cr,cf,cc:real; // с юаней
begin
if (edit1.Text='') then ShowMessage('Введите значение валюты!');
if (edit1.text<>'') then
begin
//-----------------------------------
money:=strToFloat(edit1.text);
//----------------[Курсы на 17.11.15]--------
re:= 0.01; rd:=0.02; rr:=1; rf:=0.01; rc:=0.09;
de:=0.94; dd:=1; dr:=66.83; df:=0.66; dc:=6.37;
ee:=1; ed:=1.06; er:=69.03; ef:=0.71; ec:=6.84;
fe:=1.41; fd:=1.52; fr:=100.95; ff:=1; fc:=9.67;
ce:=0.15; cd:=0.16; cr:=10.43; cf:=0.1; cc:=1;
//----------------------------------------------------------------------------------------------------------
if comboboxex1.Text='Рубль' then
begin
r:=money*rr; e:=money*re;
d:=money*rd; f:=money*rf; c:=money*rc;
end;
if comboboxex1.Text='Доллар' then
begin
d:=money*dd; e:=money*de;
r:=money*dr; f:=money*df; c:=money*dc;
end;
if comboboxex1.Text='Евро' then
begin
e:=money*ee; d:=money*ed;
r:=money*er; f:=money*ef; c:=money*ec;
end;
if comboboxex1.Text='Фунт стерлинг' then
begin
f:=money*ff; d:=money*fd;
r:=money*fr; e:=money*fe; c:=money*fc;
end;
if comboboxex1.Text='Юань' then
begin
c:=money*cc; d:=money*cd;
r:=money*cr; f:=money*cf; e:=money*ce;
end;
//-----------------------------------------------------------------------------------------------------------
label4.Caption:=FloatToStr(d)+' долларов';
label5.Caption:=FloatToStr(e)+' евро';
label6.Caption:=FloatToStr®+' рублей/рубля';
label2.Caption:=FloatToStr(f)+' фунт стерлинга';
label7.Caption:=FloatToStr©+' юань';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N2Click(Sender: TObject);
var money,d,e,r,f,c:real; //основные переменные
de,dd,dr,df,dc:real; //курсы валют с доллара
ee,ed,er,ef,ec:real; // с евро
re,rd,rr,rf,rc:real; // с рубля
fe,fd,fr,ff,fc:real; // с фунтов
ce,cd,cr,cf,cc:real; // с юаней
begin
if (edit1.Text='') then ShowMessage('Введите значение валюты!');
if (edit1.text<>'') then
begin
//-----------------------------------
money:=strToFloat(edit1.text);
//----------------[Курсы на 17.11.15]--------
re:= 0.01; rd:=0.02; rr:=1; rf:=0.01; rc:=0.09;
de:=0.94; dd:=1; dr:=66.83; df:=0.66; dc:=6.37;
ee:=1; ed:=1.06; er:=69.03; ef:=0.71; ec:=6.84;
fe:=1.41; fd:=1.52; fr:=100.95; ff:=1; fc:=9.67;
ce:=0.15; cd:=0.16; cr:=10.43; cf:=0.1; cc:=1;
//----------------------------------------------------------------------------------------------------------
if comboboxex1.Text='Рубль' then
begin
r:=money*rr; e:=money*re;
d:=money*rd; f:=money*rf; c:=money*rc;
end;
if comboboxex1.Text='Доллар' then
begin
d:=money*dd; e:=money*de;
r:=money*dr; f:=money*df; c:=money*dc;
end;
if comboboxex1.Text='Евро' then
begin
e:=money*ee; d:=money*ed;
r:=money*er; f:=money*ef; c:=money*ec;
end;
if comboboxex1.Text='Фунт стерлинг' then
begin
f:=money*ff; d:=money*fd;
r:=money*fr; e:=money*fe; c:=money*fc;
end;
if comboboxex1.Text='Юань' then
begin
c:=money*cc; d:=money*cd;
r:=money*cr; f:=money*cf; e:=money*ce;
end;
//-----------------------------------------------------------------------------------------------------------
label4.Caption:=FloatToStr(d)+' долларов';
label5.Caption:=FloatToStr(e)+' евро';
label6.Caption:=FloatToStr®+' рублей/рубля';
label2.Caption:=FloatToStr(f)+' фунт стерлинга';
label7.Caption:=FloatToStr©+' юань';
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Edit1.Clear;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Close;
end;
end.
|
Безымянный.jpg 145,56 Kb |
Конвертер валют, Delphi 
Загрузка ...
