[chrisss]

Даны действительные числа х и у, не равные друг другу. Меньшее из этих
двух чисел заменить половиной их суммы, а большее – их удвоенным
произведением.

Помогите, пожалуйста, разобраться, как составить программу

[madMonia]

(пусть числа а и b)
ну если в лоб то:
1) c := половину суммы
2) d := удвоенное произведение
3) если а > b, то a := d, b := c
иначе наоборот

[chrisss]

Сообщение от madMonia

(пусть числа а и b)
ну если в лоб то:
1) c := половину суммы
2) d := удвоенное произведение
3) если а > b, то a := d, b := c
иначе наоборот

мне надо с самого начала, прям с создания Label, Edit, Button. Я пыталась сама, у меня программа запускалась без ошибок, но расчетов никаких не было(

[madMonia]

1) Добавте на форму два Edit'а, один Button
2) Перед Edit'ами добавьте по лабелу, в одном напишите "введите А", в другом "введите B"
3) На кнопку челкните два раза - курсор переместится на код, типо такого:

Код:

TForm1.OnButton1Click(Sender: TObject);
begin
end;

TForm1.OnButton1Click(Sender: TObject); - это процедура, которая будет срабатывать при нажатии на клавишу. Дальше сделайте по алгоритму Отдельно могу сказать, что придется переводить текст из едитов в число и наоборот. Это можно сделать так:

Код:

TForm1.OnButton1Click(Sender: TObject);
var
  a, b: float;
begin
  if not TryStrToFloat(Edit1.Text, a) then
  begin
     ShowMessage('неверный формат числа указан в качестве а');
     exit;
  end;

   if not TryStrToFloat(Edit2.Text, b) then
  begin
     ShowMessage('неверный формат числа указан в качестве b');
     exit;
  end;

  // тут нужно вставить вычисления

 Edit1.Text := FloatToStr(a);
 Edit2.Text := FloatToStr(b);
end;

[poli-smen]

Сообщение от madMonia

2) Перед Edit'ами добавьте по лабелу,

Или лучше использовать TLabeledEdit

[chrisss]

float, text(где есть) подчеркивает красным(

[poli-smen]

Сообщение от madMonia

Код:

.....
TForm1.OnButton1Click(Sender: TObject);
.....

Перед этим должно быть слово procedure, вот так:

Код:

procedure TForm1.OnButton1Click(Sender: TObject);

[chrisss]

Сообщение от poli-smen

Перед этим должно быть слово procedure, вот так:

Код:

procedure TForm1.OnButton1Click(Sender: TObject);

это слово я написала