Главная страница
    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.046 c
4-1166032651
P@r@zit
2006-12-13 20:57
2007.05.13
Информатика


2-1176976563
npu3pak
2007-04-19 13:56
2007.05.13
Запись в лог-файл из TMemo


1-1174011762
VitAngel
2007-03-16 05:22
2007.05.13
Прозрачный логотип


2-1177321714
Сорокин М
2007-04-23 13:48
2007.05.13
valuelisteditor


1-1173864928
kyn66
2007-03-14 12:35
2007.05.13
Правильно-ли работает RandomRange ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский