Простая задачка!ПОМОГИТЕ СРОЧНО! Опции

[bestlover]

Дано натуральное число. Приписать к нему такое же. Но чтобы можно было с этой цифрой потом операции выполнять!

[Vinchkovsky]

Я правильно понял - напр., если дано число 23, то на выходе получаем 2323?

Если да, то так:

program ValStr;
uses Crt;
var A:longint;
    i:integer;
    S:string;
begin
 ClrScr;
 write('Enter the number: '); readLn(A); {Читаем число}
 str(A,S); {Переводим числовую переменную в строковую}
 S:=S+S; {Дописываем нужные цифры}
 val(S,A,i); {Переводим из строковой переменной в числовую}
 writeLn('New number: ', A); {Выводим измененное число}
 Repeat until KeyPressed
end.

[Lapp]

Можно попроще, мне кажется..
Типа вот так:

var
  n,m: LongInt;

begin
  n:=1234;
  m:=10;
  while n div m>0 do m:=m*10;
  n:=n*m+n;
  WriteLn(n)
end.

[Vinchkovsky]

Ну да, конечно, немного проще, как-то и не подумал - написал наиболее очевидный (для меня) вариант
Хотя, мой вариант тоже можно упростить

var A:longint;
    i:integer;
    S:string;
begin
 A:=1234;
 str(A,S);
 val(S+S,A,i);
 writeLn('New number: ', A);
end.

Сообщение отредактировано: Vinchkovsky - 19.10.2008 18:14

[Lapp]

Хотя, мой вариант тоже можно упростить

Ты его не только упростил, но и улучшил . Последняя строчка в первом варианте просто вредная - ты оставляешь символ в буфере.
Но простота моего решения не в количестве строчек. Оно годится практически без переделок для любой системы счисления. И оно проще в смысле внутреннего представления: меньше код, меньше памяти нужно, быстрее выполнение.

М

Приношу всем извинения, что не заметил сразу. bestlover, прошу тебя соблюдать Правила Форума (п.4)

[Vinchkovsky]

Последняя строчка в первом варианте просто вредная - ты оставляешь символ в буфере.

А как этого избежать? Ранее пользовалься readLn всегда, но от преподавателя узнал о конструкции repeat until Keypressed, по-настоящему стал ценить ее при создании игр (Press any key... вместо Рress ENTER...), удобнее как-то выходить по нажатию любой клавиши.

Но простота моего решения не в количестве строчек. Оно годится практически без переделок для любой системы счисления. И оно проще в смысле внутреннего представления: меньше код, меньше памяти нужно, быстрее выполнение.

Понимаю, "упрощение" делал не очень-то всерьез

[Lapp]

А как этого избежать?

после того цикла вставь еще такой:

while KeyPressed do ReadKey;

[bestlover]

Спасибо! Большое! За помощь! Вы мне очень помогли!