09.10.2015, 10:21
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
f: Real;
f1, f2: Real;
n: Integer;
begin
DecimalSeparator:='.';
f1:=StrToFloat(Edit2.Text);
f2:=StrToFloat(Edit3.Text);
n:=0;
s:=Edit1.Text;
while s<>'' do
begin
i:=Pos(' ', s);
if i>0 then
begin
f:=StrToFloat(Trim(Copy(s, 1, i)));
s:=Trim(Copy(s, i, Length(s)));
end else
begin
f:=StrToFloat(s);
s:='';
end;
if (f>=f1) and (f<=f2) then Inc(n);
end;
Edit4.Text:=IntToStr(n);
end;
end.
изначально:
Edit1 = 9.72 11.68 7.57 6.28 4.91 5.50
Edit2 = 4.90
Edit3 = 5.90
Edit4 = пятница
__________________
Пишу программы за еду.
__________________
|