Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.13;
Скачать: 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 вся ветка

Текущий архив: 2007.05.13;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.042 c
2-1177331483
snakecatcher
2007-04-23 16:31
2007.05.13
Параметры при запуске программы


15-1176539127
SerJaNT
2007-04-14 12:25
2007.05.13
Навернулся жесткий диск?


1-1173954705
Alvin
2007-03-15 13:31
2007.05.13
Передача параметров приложению


2-1177181674
Sholah_Weras
2007-04-21 22:54
2007.05.13
BLOB поля.


2-1175758467
iviom
2007-04-05 11:34
2007.05.13
Footer в DBGridEh