[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;

[Maiomi]

спс вашему сайту!!!! вы лучшие!!!!!
заработало)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,s,p,pp:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
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;
if RadioButton1.Checked then
begin
p:=a+b+c;
Label1.Caption:='Периметр равен = ' + FloatToStr(p);
end else
if RadioButton2.Checked then
begin
pp:=(a+b+c)/2;
s:=sqrt(abs(pp*(pp-a)*(pp-b)*(pp-c)));
Label1.Caption:='Площадь равна = ' + FloatToStr(s);
end;

Админ: Пользуемся тегами для оформления кода!

хочу для S(площади) прописать ограничение типа S:2:2.. но прога ругается.. что делать??

[poli-smen]

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

хочу для S(площади) прописать ограничение типа S:2:2.. но прога ругается.. что делать??

Это что за ограничение такое? Если нужно отформатировать число при выводе, то так можно делать только в стандартных процедурах Write/Writeln/Str.
Пример:

Код:

var
.....
  s: Real;
  ss: String;
begin
.....
  Str(s:2:2, ss);
  Label1.Caption := 'Площадь равна = ' + ss;

Но лучше использовать обычные функции форматирования Format, FloatToStrF.
Пример:

Код:

Label1.Caption := 'Площадь равна = ' + FloatToStrF(s, ffFixed, 10, 2);

[YVitaliy]

Возможно оффтоп, но суть задачи немного иная: В зависимости от переключателя, три числа будут:
1. Сторона A, сторона B, сторона C, найти площадь.
2. Сторона A, сторона B, площадь, найти периметр.
Просто находить периметр с известными 3 сторонами - еще ничего, но вручную подбирать стороны, чтобы получился треугольник - уже что-то.