Вывести символы, изображающие цифры числа

@Denis1991Fox · Регистрация: 22.04.2010

Author24 — интернет-сервис помощи студентам

Ребята, пацаны, мужики, помогите пожжжалуйста, мне 2 задачки нужно решить, не то что бы срочно, но повышенная важность их для меня... практика кончается и мне 2 задачки на 4 нехватает, очень благодарен и признателен за внимание и понимание...
String20. Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева направо).

@thexqn · 11.05.2010, 08:53

1)

Pascal

procedure Reverse(N: integer; var s_new: string);
 var i: integer; tmp, s_old: string;
 begin
 s_old := ord(N) - ord('0');
  for i := Length(s_old) downto 1 do
   begin
    tmp := s_old[i];
    s_new := s_new + tmp;
   end;
   writeln(s_new);
 end;

@Inadequate · 11.05.2010, 09:03

thexqn, ты явно что-то напутала в этой процедуре, перепроверь всё внимательно.

@thexqn · 11.05.2010, 09:10

Да, что-то совсем переклинило. Вот рабочий вариант:

Pascal

function IntToStr(Value: Integer): string;
begin
  FmtStr(Result, '%d', [Value]);
end;
 
function Reverse(N: integer): string;
 var i: integer; tmp, s: string;
 begin
  s := IntToStr(N);
  for i := Length(s) downto 1 do
   Result := Result + s[i];
 end;
 
var n: integer;
 
begin
 readln(n);
 writeln(Reverse(n));
 readln
end.

@Inadequate · 11.05.2010, 09:16

thexqn, чтобы перевести число в строку в Pascal есть готовая Str().

@thexqn · 11.05.2010, 09:20

Если не подходит IntToStr, можно

Pascal

function Reverse(N: integer): string;
 var i: integer; tmp, s: string;
 begin
  Str(N, S)

@Inadequate · 11.05.2010, 09:29

thexqn, я бы сказал не можно, а нужно

потому как большинство учебных заведений используют либо Pascal ABC, либо Turbo Pascal. А FmtStr() работать не будет ни в том, ни в другом. Поэтому для универсальности нужно использовать Str().

@thexqn · 11.05.2010, 09:43

Спасибо, буду знать

@Denis1991Fox · 11.05.2010, 10:20 **[ТС]**

thexqn
Конечно ребята ОГРОМНОЕ вам спасибо, но немножко не так нужно делать, имеется ввиду нужно ввести в программе все числа от 0 до 9 буквами, и когда запрос ввести с клавиатуры число, он должен выдовать эти числа словами. Например: 625 - шесть два пять

@thexqn · 11.05.2010, 10:25

тогда просто прикрутить

Pascal

case s[i] of
'1': write ('один ');
'2': write('два ');
...
'0': write('ноль ')
end;

Добавлено через 1 минуту
То есть:

Pascal

begin
 readln(n);
 Str(n, s);
 for i := 1 to length(s) do
  begin
   case s[i] of
   1: write ('один ');
   2: write('два ');
    ...
   0: write('ноль ')
 end;
 end;
 readln
end.

@Inadequate · 11.05.2010, 10:31

Pascal

procedure P(N: LongInt);
const
  a: array [0..9] of string = ('íîëü','îäèí','äâà','òðè','÷åòûðå',
                               'ïÿòü','øåñòü','ñåìü','âîñåìü','äåâÿòü');
begin
  if Abs(N) > 1 then
    P(Abs(N) div 10);
  Write(a[N mod 10], ' ');
end;
 
var
  N: LongInt;
begin
  ReadLn(N);
  P(N);
  ReadLn;
end.

@Denis1991Fox · 11.05.2010, 10:34 **[ТС]**

))))) Спасибо, я бы и до такого не додумался, но в этом варианте небольшой прокол в том, что он "ноль" всегда выдает, то есть 253 - ноль два пять три
а так спс, душевное, вы даже не представляете как мне помогли )

@Inadequate · 11.05.2010, 10:36

Denis1991Fox, вот так будет правильно

Pascal

procedure P(N: LongInt);
const
  a: array [0..9] of string = ('íîëü','îäèí','äâà','òðè','÷åòûðå',
                               'ïÿòü','øåñòü','ñåìü','âîñåìü','äåâÿòü');
begin
  if Abs(N) > 9 then
    P(Abs(N) div 10);
  Write(a[N mod 10], ' ');
end;
 
var
  N: LongInt;
begin
  ReadLn(N);
  P(N);
  ReadLn;
end.

@Jensen · 06.11.2013, 10:05

@Denis1991Fox 11 / 5 / 0 Регистрация: 22.04.2010 Сообщений: 55
	11.05.2010, 10:34 [ТС]	12
	))))) Спасибо, я бы и до такого не додумался, но в этом варианте небольшой прокол в том, что он "ноль" всегда выдает, то есть 253 - ноль два пять три а так спс, душевное, вы даже не представляете как мне помогли ) 0

Вывести символы, изображающие цифры числа

Решение

Решение

Решение

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.05.2010, 09:03	3
	thexqn, ты явно что-то напутала в этой процедуре, перепроверь всё внимательно. 2

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.05.2010, 09:16	5
	thexqn, чтобы перевести число в строку в Pascal есть готовая Str(). 1

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	11.05.2010, 09:29	7
	thexqn, я бы сказал не можно, а нужно потому как большинство учебных заведений используют либо Pascal ABC, либо Turbo Pascal. А FmtStr() работать не будет ни в том, ни в другом. Поэтому для универсальности нужно использовать Str(). 2

@thexqn 64 / 64 / 44 Регистрация: 15.11.2009 Сообщений: 247
	11.05.2010, 09:43	8
	Спасибо, буду знать 1

@Denis1991Fox 11 / 5 / 0 Регистрация: 22.04.2010 Сообщений: 55
	11.05.2010, 10:20 [ТС]	9
	thexqn Конечно ребята ОГРОМНОЕ вам спасибо, но немножко не так нужно делать, имеется ввиду нужно ввести в программе все числа от 0 до 9 буквами, и когда запрос ввести с клавиатуры число, он должен выдовать эти числа словами. Например: 625 - шесть два пять 0

@Jensen 0 / 0 / 0 Регистрация: 24.09.2013 Сообщений: 35
	06.11.2013, 10:05	14
	0