Скачать: CL | DM;

Начинающие проггеры   Найти похожие ветки 

← →
Настена   (2007-04-20 14:54) [0]

Напишите алгоритм написания программы, в которой нужно поменять местами первую и последнюю цифры числа.

---

← →
Ega23 ©   (2007-04-20 15:00) [1]

3000 рублей.

---

← →
McSimm_ ©   (2007-04-20 15:01) [2]

> алгоритм написания программы

подозреваю, это не то, что вам нужно... :)
--
преобразовать число в строку.
заменить первый символ строки на ее последний и наоборот.

---

← →
Virgo_Style ©   (2007-04-20 15:02) [3]

что-то это мне крепко напоминает... не так давно было нашествие с очень похожими вопросами...

---

← →
Steep ©   (2007-04-20 15:03) [4]

<OFFTOP>

> > алгоритм написания программы

Я тоже подумал что челу нужно написать алгоритм который бы писал программу %)
</OFFTOP>

---

← →
Настена   (2007-04-20 15:16) [5]

> Я тоже подумал что челу нужно написать алгоритм который
> бы писал программу %)

Да, это мне и нужно. Напиши пожалуйста, если можешь. Заранее благодарю!

---

← →
Плохиш ©   (2007-04-20 15:19) [6]

> Начинающие проггеры

Ну вот, а так хотелось написать. Дискриминация! :-(

---

← →
Игорь Шевченко ©   (2007-04-20 15:19) [7]

Спамить не надо. Оскорблять отвечающих не надо. Правила форума читать надо.

---

← →
Настена   (2007-04-20 15:31) [8]

> Steep

напиши прогру в готовом виде.очень тебя прошу  :)))))

---

← →
Сергей М. ©   (2007-04-20 15:35) [9]

Удалено модератором

---

← →
Johnmen ©   (2007-04-20 15:41) [10]

> Игорь Шевченко ©   (20.04.07 15:19) [7]
> Правила форума читать надо.

Настены не за этим сюда приходят...

---

← →
ppcumax ©   (2007-04-20 15:52) [11]

procedure TForm1.Button1Click(Sender: TObject);
var
first,last,body:string;
begin
body := Edit1.Text;
first := copy(Edit1.Text,1,1);
delete(body,1,1);
last := copy(body,length(body),length(body));
delete(body,length(body),length(body));
Edit1.Text := last + body + first;
end;

---

← →
Desdechado ©   (2007-04-20 15:55) [12]

120 после обмена чего дать должно?

---

← →
iXT ©   (2007-04-20 15:59) [13]

> ppcumax ©   (20.04.07 15:52) [11]

1. Дано число
2. Это не код, а издевательство :)

function DoIT(x: integer): integer;
begin
 result:=......;
end;

---

← →
ppcumax ©   (2007-04-20 16:03) [14]

> 2. Это не код, а издевательство :)


много не думал и не думал написать компактнее, писал так как руки печатали

---

← →
iXT ©   (2007-04-20 16:08) [15]

там даже думать не надо! И не для этого в институтах задачки дают, чтоб тут их решать

---

← →
Ega23 ©   (2007-04-20 16:09) [16]

> много не думал


А зря. Это полезно.

---

← →
ppcumax ©   (2007-04-20 16:11) [17]

> А зря. Это полезно.


когда пишу что-то серьезное, тогда думаю... :) а так, расслаблено ...

---

← →
Ega23 ©   (2007-04-20 16:22) [18]

> когда пишу что-то серьезное, тогда думаю... :) а так, расслаблено
> ...


Думать всегда надо.

---

← →
iXT ©   (2007-04-20 16:22) [19]

И писать красиво!!!

---

← →
Игорь Шевченко ©   (2007-04-20 16:47) [20]

И флудить тоже не надо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: 0.03 c