Где ошибка? треугольное число

[Juster]

Нашёл задачу:
"Вводится число. Задача определить, является ли введенное число треугольным."

Формула треугольного числа T=n(n+1)/2 (это числа 1,3,6,10,15....)
Где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
 var x, n, i: real;
begin
 i:=StrToFloat(Edit1.Text);
 n:=0;
 x:=(n*(n+1)/2);
while x <= i do  n:=n+1;

if x=i then ShowMessage('Yes') else
 ShowMessage('No');
end;

end.

Благодарю за подсказку.

[Disel]

Так наверно надо:

procedure TForm1.Button1Click(Sender: TObject);
var x, n, i: real;
begin

i:=StrToFloat(Edit1.Text);
n:=0;

while x <= i do 

 n:=n+1;
 x:=(n*(n+1)/2);


if x=i then ShowMessage('Yes') else
ShowMessage('No');
end;

end.

[Juster]

Спасибо, но при вводе любого числа пишет 'No'. Ввожу число 2(не треугольное)- выводит 'No', число 3(треугольное)- выводит 'No'.

[Juster]

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

[evg_m]

procedure TForm1.Button1Click(Sender: TObject);
var x, n, i: real;
begin

i:=StrToFloat(Edit1.Text);
n:=0;

while x <= i do 
 begin////////////
 n:=n+1;
 x:=(n*(n+1)/2);


if x=i then ShowMessage('Yes') else
ShowMessage('No');
end;//////////////////
end;

end.

[Sweta]

Программа я так понимаю в Делфи, поэтому могу помочь только подсказкой. нужно проверить делиться ли i на Т без остатка. Если делится , то ответ Да, иначе -нет.

[DomiNick]

OMG... "Треугольное число"..... О_О

Треугольное число — это число кружков, которые могут быть расставлены в форме равностороннего треугольника, см. рисунок.



Последовательность треугольных чисел Tn для n = 0, 1, 2, … начинается так: 0, 1, 3, 6, 10, 15, 21, 28, 36, 45, 55, …

Формулы для n-го треугольного числа:

Зря вы задачу перебором пытаетесь сделать..... Ща сделаю как надо...

[Sweta]

Попробуйте так

procedure TForm1.Button1Click(Sender: TObject);
var x, n, i: real;
begin

i:=StrToFloat(Edit1.Text);
n:=0;

while x <= i do 

 n:=n+1;
 x:=(n*(n+1)/2);


 if (i mod x) = 0 then ShowMessage('Yes') else
ShowMessage('No');
end;

end.

[DomiNick]

Перебором можно делать, когда числа небольшие, да и то это всё-таки не есть хорошо...
А если понадобится проверить 5-тизначное число? Или что-то ещё похуже..? Тогда Ваша программа будет очень-очень долго "висеть"...

Вот, обычное квадратное уравнение:

Остаётся просто проверить, целое ли это число:

Procedure TForm1.Button1Click(Sender: TObject);
Var x: Integer; n: Real;
Begin
x:=StrToInt(Edit1.Text);
n:=(SQRT(1+8*x)-1)/2;
If n=Trunc(n) Then
      ShowMessage('Yes')
Else
      ShowMessage('No');
End;

[Juster]

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

Вот, обычное квадратное уравнение:

Остаётся просто проверить, целое ли это число:

Procedure TForm1.Button1Click(Sender: TObject);
Var x: Integer; n: Real;
Begin
x:=StrToInt(Edit1.Text);
n:=(SQRT(1+8*x)-1)/2;
If n=Trunc(n) Then
      ShowMessage('Yes')
Else
      ShowMessage('No');
End;

ух, ты! Отличная формула! Спасибо. Работает!