Сложение в StringGrid

[DomiNick]

Да просто будет не "SG3.Cells[0, 0]", а "Edit1.Text"...

Я так вижу должно получаться как-то так:

В первой ячейке - сумма всех 4-х цифр заданного числа; (или всё-таки всех цифр?)
Во второй - сумма первых 2-х цифр числа из первой ячейки; (или всё-таки всех цифр?)
В третьей - сумма первых 2-х цифр из второй ячейки; (или всё-таки всех цифр?)

Это так в проекте... А судя по примеру из 3-го поста надо немного не так...

Можно общее задание?


UpDate

Что-то вроде такого?

[artemavd]

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

Да просто будет не "SG3.Cells[0, 0]", а "Edit1.Text"...

Так чтоли, например, Edit1.Text[1] - это означает первый символ в Edit-e?
Общая идея задания: пусть в Edit(или одну ячейку StringGrid-a) вводится четырехзначное число, например, 1999. Требуется: в конечном итоге должно получиться число, состоящее из одной цифры.
Например, пусть в ячейке число 1999. Складывая эти цифры 1+9+9+9 получаем 28. Т.к. получилось двухзначное число, то складываем дальше, т.е. 2+8 получается 10. Опять получилось двухзначное. Снова складываем, т.е. 1+0 получается 1. Все. На этом останавливаемся. Короче говоря мы останавливаемся на том месте, в котором у нас в результате сложения получилось однозначное число. )). Ну как, понятнее стало.

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

Что-то вроде такого?

Совершенно верно .Конечная цель - однозначное число)
DomiNick, можешь чем нибудь помочь?)

[DomiNick]

Хм... Вот как...

А обязательно выводить в таблицу промежуточные значения? Может просто сразу ответ выдавать?

Procedure TForm1.Button1Click(Sender: TObject);
Var i, L, N: Integer; A: String;
Begin
A:=Edit1.Text; // берём заданное число из Edit1 (можно добавить проверку, число ли вообще ввели или запретить ввод в Edit посторонних символов)
While Length(A)>1 Do // пока от числа не останется одна цифра
      Begin
      L:=Length(A); // меряем длину числа
      N:=0;
      For i:=1 To L Do
            N:=N+StrToInt(A[i]); // складываем все цифры числа
      A:=IntToStr(N);
      End;
Form1.Caption:=A; // выводим получившееся число (например в заголовок окна)
End;

Оно будет работать для чисел любой длинны...


P.S. в 4-м столбике у меня ачипятка... "18+18=36; 3+6=9"

[artemavd]

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

А обязательно выводить в таблицу промежуточные значения? Может просто сразу ответ выдавать?

Конечно! Можно и в ответ сразу: )

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

P.S. в 4-м столбике у меня ачипятка... "18+18=36; 3+6=9"

Математика...бывает )). Спасибо большое за помощь, DomiNick.