[Maiomi]

Введите три положительных числа, вычислите периметр или площадь треугольника с такими сторонами (в зависимости от выбранного переключателя). Добавить защиту от некорректных чисел.

что использовать для переключателя радиобатон или чекбокс?
как прописать переключатель?
защита от некоректных всмысле чтоб отрицательные не вводили числа?

Помогите плз)

[poli-smen]

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

Введите три положительных числа, вычислите периметр или площадь треугольника с такими сторонами (в зависимости от выбранного переключателя). Добавить защиту от некорректных чисел.

что использовать для переключателя радиобатон или чекбокс?

Раз будет на выбор одно из двух, то очевидно что нужно использовать 2 RadioButton или же 1 RadioGroup с двумя элементами

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

как прописать переключатель?

При использовании двух RadioButton примерно так:

Код:

  if RadioButton1.Checked then
  begin
    // Вычисляем периметр треугольника
  end else
  if RadioButton2.Checked then
  begin
    // Вычисляем площадь треугольника
  end;

При использовании RadioGroup примерно так:

Код:

  case RadioGroup1.ItemIndex of
    0: ; // Вычисляем периметр треугольника
    1: ; // Вычисляем площадь треугольника
  end;

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

защита от некоректных всмысле чтоб отрицательные не вводили числа?

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

[Maiomi]

а еще если не получается трегольник.. всмысле что если ввести стороны 1 1 и 20 то треугольник не получится)

а еще если не получается трегольник.. всмысле что если ввести стороны 1 1 и 20 то треугольник не получится)

забыла как считывать в переменную с эдита.. ониж в разных категориях.. всмысле текст и число..

floatToStr Не пашет(

[poli-smen]

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

а еще если не получается трегольник.. всмысле что если ввести стороны 1 1 и 20 то треугольник не получится)

Ну и это тоже можно. Впрочем если вычислять площадь треугольника по формуле Герона, то для таких (невозможных) треугольников под корнем получится отрицательное число и попытка вычислить от отрицательного числа квадратный корень выдаст ошибку, что конечно же можно использовать для проверки невозможности треугольника.

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

забыла как считывать в переменную с эдита.. ониж в разных категориях.. всмысле текст и число..

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

floatToStr Не пашет(

Нужно наоборот - StrToFloat - так как преобразуется строка в число.

[Maiomi]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,s,p:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
if RadioButton1.Checked then
begin
p:=a+b+c;
Label1:=FloatToStr(p);
end else
if RadioButton2.Checked then
begin
s:=1/2*(a*b*c)
Label1:=s;
end;
end;

меня для Label1 интересует.. как тут вывести..

[poli-smen]

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

....
s:=1/2*(a*b*c)
Label1:=s;
end;
end;

меня для Label1 интересует.. как тут вывести..

Через свойство Caption:

Код:

Label1.Caption := FloatToStr(s);

[angvelem]

После каких проверок?
Здесь что ли?

Код:

if (a<0) or (b<0) or (c<0) then
begin
  Label1.Caption:=' Îäíà èç ñòîðîí îòðèöàòåëüíà!!!';
  Exit;
end;
if (a+b<c) or (b+c<a) or (a+c<b) then
begin
  Label1.Caption:='Íåëüçÿ ïîñòðîèòü òðåóãîëüíèê!!!!';
  Exit;
end;