Консультация № 136460
12.05.2008, 13:43
0.00 руб.
0 1 1
Вывести 2 числа. Преобразовать числа в строки, объединить их и вывести на экран

Обсуждение

давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа