давно
Старший Модератор
31795
6196
12.05.2008, 20:43
общий
это ответ
Здравствуйте, Cobain!
Программа в приложении.
Преобразование числа в строку выполняет рекурсивная функция <b>NumberToString</b>.
Если нужно без рекурсии обращайтесь в мини-форум вопроса.
Удачи!
Приложение:
var
a:string;
b:integer;
{рекурсивная функция вызывает сама себя с новыми значениями}
function NumberToString(n:integer):string;
begin
if n>0
{вызываем саму себя и добавляем в конец программы младшую цифру}
then NumberToString:=NumberToString(n div 10)+chr((n mod 10)+48)
{число равно 0 возвращаем пустую строку}
else NumberToString:=‘‘;
end;
begin
a:=‘‘;
{вводим первое число}
write(‘enter num A:‘);
readln(b);
a:=a+NumberToString(b);
{вводим второе число}
write(‘enter num B:‘);
readln(b);
a:=a+‘ ‘+NumberToString(b);
{выводим результат}
writeln(a);
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.