• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Добавить знак "+" "-"

  • Автор темы Gazellea
  • Дата начала
G

Gazellea

Здраствуйте!

Прошу помощи!

у меня есть уровнение типа

procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Button1.Caption:='Good';
begin
if x<y then
Edit2.Text:=FloatToStr(y-x);
end;
end;
end.

Мне нужно чтобы при выполнений условия (x<y), перед ответом ставился знак "+" или знак "-"?!

Пожалуста помогите! Очень нужна помощь!

Пы.Сы. в программирований не давно((

:sorry:
 
N

nayke

Здраствуйте!

Прошу помощи!

у меня есть уровнение типа

procedure TForm1.Button1Click(Sender: TObject);
var x,y: integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Button1.Caption:='Good';
begin
if x<y then
Edit2.Text:=FloatToStr(y-x);
end;
end;
end.

Мне нужно чтобы при выполнений условия (x<y), перед ответом ставился знак "+" или знак "-"?!

Пожалуста помогите! Очень нужна помощь!

Пы.Сы. в программирований не давно((

:sorry:


Я может чего - то не понимаю, но по какому принципу должен ставится + или -
if x<y then Edit2.Text:=FloatToStr(y-x);
(y-x) - число всегда положительное
 
G

Gazellea

Я может чего - то не понимаю, но по какому принципу должен ставится + или -
if x<y then Edit2.Text:=FloatToStr(y-x);
(y-x) - число всегда положительное

C++:
Мне просто нужно узнать как программно добавить знак "+" или "-" перед ответом в Edit

Добавлено:
Потому что судя по листингу, вам должно хватать знаний, что бы определить больше переменная 0 или меньше.

Данный пример писался с школьным знанием математики и инстетутским курсом информатики(почти утеряными в кладовках мозга) :)
 
G

Gazellea

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then
Edit2.Text:='Good buy';
begin
if x<y then
Edit2.Text:='+'+FloatToStr(y-x);
Label1.Font.Color:=clgreen;
end;
begin
if x>y then
Edit2.Text:='-'+FloatToStr(x-y);
Label1.Font.Color:=clred;
end;
end;
end.

Если не трудно, подскажите пожалуста, почему программа считвает только последнее значение Label1 ?

Ведь для каждого варианта она должна считывать свой вариант настройки Label1, а она почему то считывает только последнюю настройку, а первую игнорирует!

:unsure: :unsure:
 
V

vital

Разберитесь с бегинами и ендами, у вас там есть лишние. И кто так писать учит..
 
N

nayke

Код:
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=100;
y:=StrToInt(Edit1.Text);
if x=y then Edit2.Text:='Good buy';
if x<y then
begin 
Edit2.Text:='+'+FloatToStr(y-x);
Label1.Font.Color:=clgreen; 
end;
if x>y then
begin
Edit2.Text:='-'+FloatToStr(x-y);
Label1.Font.Color:=clred;
end;
end;
помоему ты хотел сделать это.. begin ставиться после then дабы выполнить необходимое количество строк а не одну.. перед then смысла в нем нет.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!