Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
Настена   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.048 c
3-1172298038
denissoft
2007-02-24 09:20
2007.05.13
Как установить связь


3-1172565807
Megabyte
2007-02-27 11:43
2007.05.13
Получение разницы между датой/временем


2-1177302656
ArtemESC
2007-04-23 08:30
2007.05.13
Как получить имя сайта, имея IP-адрес?


15-1176651455
nnn1
2007-04-15 19:37
2007.05.13
GetLowerBound / GetUpperBound из .NET


2-1177437833
Lamer666
2007-04-24 22:03
2007.05.13
ADOQuery





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский