Помогите за вознагрождение.

← →
XSasha (2005-11-17 18:12) [0]

Привет всем!!!
Помогите мне пожалуйста разобраться с двумя задачами.
Первая.
Как вывести поместить текст из Edit1 в Edit2 задам наперёд.
Пример.
Edit1.text:="Hellow World"
Edit2.Text:="dlrow wolleh"
Вторая.
Известно что любое натурально число до 1001 можно представить в виде суммы квадратов не более чем 4 чисел, как написать программу которая разлагала бы числа.
Пример.
Edit1.text:="16"
Edit2.Text:="4+4+4+4"
////
Edit1.text:="13"
Edit2.Text:="4+4+4+1"
Первому кто поможет решить эти две задачи обещаю переслать на счёт WebMoney 3$!

← →
Tonich © (2005-11-17 18:23) [1]

> на счёт WebMoney 3$!
не поскупился , молодец !!! ))

← →
Antonn © (2005-11-17 18:30) [2]

var i:integer;
begin
for i:=length(edit1.text) to 1 do
edit2.text:=edit2.text+edit1.text[i];

PS бонус оставь тому, кто второе решит.

← →
Antonn © (2005-11-17 18:32) [3]

Antonn © (17.11.05 18:30) [2]
for i:=length(edit1.text) to 1 do
for i:=length(edit1.text) downto 1 do

← →
XSasha (2005-11-17 18:33) [4]

var i:integer;
begin
for i:=length(edit1.text) to 1 do
edit2.text:=edit2.text+edit1.text[i];

Этот код не работает ничего не праисходит

← →
XSasha (2005-11-17 18:47) [5]

Прости не прочитал исправление, щас всё супер вот только второе как решитоь я не знаю

← →
Плохиш © (2005-11-17 19:01) [6]

1001 = 31^2 + 6^2 + 2^2 пойдёт?

← →
Manufel © (2005-11-17 19:13) [7]

function NumToNums(x:word):string;
var I,a:word;
begin
if x=1 then
begin
result:="1";
exit;
end
else
if x=0 then
begin
result:="";
exit;
end;
result:="";
repeat
a:=trunc(sqrt(x));
for i:=a downto 1 do
begin
if (sqrt(a))=sqr(trunc(sqrt(a))) then
break
else
a:=i;

end;
result:=result+inttostr(a)+"+"+NumtoNums(x-sqr(a));

end;
......
используешь так:
edit1.text:=NumToNums(n);
где n - число

Если будут какие вопросы пиши в асю 279214160 или на мыло manufel@mail.ru
Денег не надо, спасибо будет достаточно =)

← →
XSasha (2005-11-17 19:17) [8]

Прошу прощения, та функция не коректная, вот правильный вариант:

function NumToNums(x:word):string;
var I,a:word;
e:real;
begin
if x=1 then
begin
result:="1";
exit;
end
else
if x=0 then
begin
result:="";
exit;
end;
result:="";
a:=x;
for i:=a downto 1 do
begin
e:=trunc(sqrt(a));
if (sqrt(a))=e then
break
else
a:=i;

end;
result:=result+inttostr(a)+"+"+NumtoNums(x-a);
end;

отправляй ему мани.

Помогите за вознагрождение. Найти похожие ветки