Дано натуральное число n. Заменить порядок следования цифр числа n на обратный

@Malaia · Регистрация: 06.06.2014

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

Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

@Tchikh · 08.06.2014, 22:43

Delphi

function foo (n: integer):integer;
var
  res: integer;
begin
  res := 0;
  while (n > 0) do begin
    res := 10 * res + n mod 10;
    n := n div 10;
  end;
  Result := res;
end;

@Malaia · 08.06.2014, 23:15 **[ТС]**

Не получается

@Sergio Leone · 08.06.2014, 23:36

Сообщение от Malaia

Не получается

и что у Вас не получается?!
Показывайте свой код программы, как пытались.

Ибо пример (с) Tchikh, выглядит весьма достойно!

@droider · 08.06.2014, 23:41

Сообщение от Malaia

Не получается

плохо стараетесь значит. Может так Вам будет проще? Без оформления в виде отдельной функции

Delphi

var 
  n, m : longint;
begin
  n :=StrToInt(Edit1.Text); //задаем число
  m := 0;
  while n>0 do begin
  m := m * 10 +(n mod 10);
    n := n div 10;
  end;
  ShowMessage('Полученное число: '+IntToStr(m)); //результат
end;

@Malaia · 08.06.2014, 23:44 **[ТС]**

я делала через процедуру как работать с функцией я не понимаю

@droider · 08.06.2014, 23:45

Malaia, как делать через процедуру я написал выше

@Malaia · 08.06.2014, 23:47 **[ТС]**

ну вообще круто

а это?
Написать программу, которая выводит на экран приведенный ниже узор

@droider · 08.06.2014, 23:49

Сообщение от Malaia

ну вообще круто

снова все сложно?

@Malaia · 08.06.2014, 23:50 **[ТС]**

не издевайся надо мной
помоги лучше пожалуйста(

@droider · 08.06.2014, 23:55

Сообщение от Malaia

не издевайся надо мной

Никто и не издевается! В чем проблема? Не умеете работать с функциями? Хорошо, я написал Вам код в виде процедуры. Это не считается помощью? Нужно подробнее написать?
Ладно. Разместите на форме Edit и Button. В обработчик OnClick Button'а добавьте мой код (см. пост выше).
Компилируйте программу и запустите. Задайте свое число, наслаждайтесь результатом.

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	08.06.2014, 23:55	11
	Сообщение было отмечено Malaia как решение Решение Сообщение от Malaia не издевайся надо мной Никто и не издевается! В чем проблема? Не умеете работать с функциями? Хорошо, я написал Вам код в виде процедуры. Это не считается помощью? Нужно подробнее написать? Ладно. Разместите на форме Edit и Button. В обработчик OnClick Button'а добавьте мой код (см. пост выше). Компилируйте программу и запустите. Задайте свое число, наслаждайтесь результатом. 1

@Malaia 0 / 0 / 1 Регистрация: 06.06.2014 Сообщений: 9
		1
	Дано натуральное число n. Заменить порядок следования цифр числа n на обратный 08.06.2014, 22:34. Показов 2400. Ответов 10 Метки нет (Все метки) Дано натуральное число n. Заменить порядок следования цифр числа n на обратный. 0

@Malaia 0 / 0 / 1 Регистрация: 06.06.2014 Сообщений: 9
	08.06.2014, 23:15 [ТС]	3
	Не получается 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	08.06.2014, 23:36	4
	Сообщение от Malaia Не получается и что у Вас не получается?! Показывайте свой код программы, как пытались. Ибо пример (с) Tchikh, выглядит весьма достойно! 0

@Malaia 0 / 0 / 1 Регистрация: 06.06.2014 Сообщений: 9
	08.06.2014, 23:44 [ТС]	6
	я делала через процедуру как работать с функцией я не понимаю 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	08.06.2014, 23:45	7
	Malaia, как делать через процедуру я написал выше 0

@Malaia 0 / 0 / 1 Регистрация: 06.06.2014 Сообщений: 9
	08.06.2014, 23:47 [ТС]	8
	ну вообще круто а это? Написать программу, которая выводит на экран приведенный ниже узор 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	08.06.2014, 23:49	9
	Сообщение от Malaia ну вообще круто снова все сложно? 0

@Malaia 0 / 0 / 1 Регистрация: 06.06.2014 Сообщений: 9
	08.06.2014, 23:50 [ТС]	10
	не издевайся надо мной помоги лучше пожалуйста( 0

Дано натуральное число n. Заменить порядок следования цифр числа n на обратный

Решение