Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
1

Заменить каждое число на число, которое получается из исходного записью его цифр в обратном порядке

13.04.2012, 19:58. Просмотров 1629. Ответов 8
Метки нет (Все метки)

Задано множество натуральных чисел. Заменить каждое из них на число, которое получается из исходного записью его (десятичных) цифр в обратном порядке. Полученное множество чисел распечатать.

Добавлено через 22 часа 39 минут
пожалуста помогите...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2012, 19:58
Ответы с готовыми решениями:

Заменить натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в...

Заданное число заменить на число, которое получается из исходного значения записью его цифр в обратном порядке
В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
6: ( сделать по теме:«Подпрограммы. Нерекурсивные процедуры и функции») Заменить данное...

8
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
13.04.2012, 20:37 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const max=10;
var i, t: longint;
    r: integer;
    st, s: string;
    a: array [1..max] of integer;
begin
  for i:=1 to max do read(a[i]); writeln;
  for i:=1 to max do write(a[i]:4,' '); writeln;
  for i:=1 to max do begin
    str(a[i],st);
    s[0]:=chr(length(st));
    for t:=1 to length(st) do
      s[length(st)-t+1]:=st[t];
    val(s,a[i],r);
  end;
  for i:=1 to max do write(a[i]:4,' '); writeln;
  readln;
end.
1
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
14.04.2012, 20:42  [ТС] 3
спасибо.

Добавлено через 2 минуты
найдите пожалуйста ошибку в этой программе.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Program Z5;
 uses crt;
 type mass=array [1..100] of integer;
 var  i,n,s:integer;
       a:mass;
  procedure input;
   begin
    write('n=');read(n);
    writeln('§ ¤ ©â¥ í«¥¬¥*âë ¬ áᨢ ');
     for i:=1 to n do
      begin
       write('a[',i,']=');read(a[i]);
      end;
    end;
  Procedure output;
   begin
    write ('¬ áᨢ A=(');
     for i:=1 to n do
     write (a[i]:6);
     write(')');
     writeln;
   end;
  Procedure Main;
   begin
 for i:=1 to n do
  s:=0;
  while a[i]>0 do
  begin
  s:=s*10+a[i] mod 10;
  a[i]:=a[i] div 10;
  a[i]:=s;
  end;
  end;
   BEGIN
     clrscr;input;
     clrscr;output;
     main;
    readkey
   END.
0
3019 / 1907 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
14.04.2012, 20:46 4
А что скрывается под иероглифами? Напишите условие
0
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
14.04.2012, 21:13  [ТС] 5
вот условие:"Задано множество натуральных чисел. Заменить каждое из них на число, которое получается из исходного записью его (десятичных) цифр в обратном порядке. Полученное множество чисел распечатать."
0
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
14.04.2012, 22:16 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Где написано "ERROR!", там у вас была ошибка.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Program Z5;
 uses crt;
 type mass=array [1..100] of integer;
 var  i,n,s:integer;   { ,max §**зҐ*ЁҐ,   }
       a:mass;
procedure input;
begin
  write('n=');read(n);
  writeln('§*¤*©вҐ н«Ґ¬Ґ*вл ¬*ббЁў*');
  for i:=1 to n do
  begin
    write('a[',i,']=');read(a[i]);
  end;
end;
Procedure output;
begin
  write ('¬*ббЁў A=(');
  for i:=1 to n do
    write (a[i]:6);
    write(')');
    writeln;
end;
Procedure Main;
begin
  for i:=1 to n do
    s:=0;
  while a[i]>0 do
  begin
    s:=s*10+a[i] mod 10;
    a[i]:=a[i] div 10;
  end;                   {ERROR!}
  a[i]:=s;
end;
BEGIN
  clrscr; input;
  clrscr; main; output;  {ERROR!}
  readkey
END.
1
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
19.04.2012, 17:31  [ТС] 7
спасибо огромное.

Добавлено через 18 минут
почему в этой программе мэйн не работает? пожалуйста посмотрите.
0
43 / 43 / 33
Регистрация: 05.12.2011
Сообщений: 201
20.04.2012, 21:29 8
Цитата Сообщение от ШОКУЕВА РУЗАНА Посмотреть сообщение
спасибо огромное.

Добавлено через 18 минут
почему в этой программе мэйн не работает? пожалуйста посмотрите.
в какой среде компилируете?
1
3 / 3 / 2
Регистрация: 14.06.2011
Сообщений: 34
22.04.2012, 00:17  [ТС] 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

всем спасибо, я нашла ошибку.
вот правильная программа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Program R1;
 uses crt;
 type mass=array [1..10] of integer;
 var  i,n:integer;
       a:mass;
       s:integer;
  procedure input;
   begin
    write('n=');read(n);
    writeln('задайте элементы массива');
     for i:=1 to n do
      begin
       write('a[',i,']=');read(a[i]);
      end;
    end;
  Procedure output;
   begin
    write ('массив A=(');
     for i:=1 to n do
     write (a[i]:6);
     write(')');
     writeln;
   end;
  Procedure Main;
   begin
 for i:=1 to n do
  begin
  s:=0;
  while a[i]>0 do
   begin
    s:=s*10+(a[i] mod 10);
    a[i]:=a[i] div 10;
   end;
  a[i]:=s;
  write (a[i]:5);
  end;
  end;
   BEGIN
     clrscr;input;
     clrscr;output;
     main;
    readkey
   END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2012, 00:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заменить данное число на число, которое получается из исходного записью его цифр в обратном порядке
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке
1) Заменить данное натуральное число на число, которое получается из исходного записью его цифр в...

Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке. Например, дано число 156, нужно получ
Вобщем,если не сложно,именно саму функцию помочь написать,ибо я просто не могу понять:) ...

Заменить данное число на число, которое получается из исходного записью цифр в обратном порядке
Заменить данное натурально число на число, которое получается из исходного записью цифр в обратном...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.