Форум: "Начинающим";
Текущий архив: 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.049 c