Я думаю это простая задача для программистов в Паскале

[x9aos3]

Help!
Помогите пожалуйста решить задачу по паскалю:
Дано двузначное число. Нужно получить число перевертышь.
(Например 12=21)

[Castor]

Не стыдно?

[x9aos3]

Я по языкам ни чего не схватываю. Помогите решить мне очень нужно

[FAN]

И не схватишь, если за тебя решать будут.

[x9aos3]

Так может кто решить?

[Paralax]

Help!
Помогите пожалуйста решить задачу по паскалю:
Дано двузначное число. Нужно получить число перевертышь.
(Например 12=21)

Алгоритм следующий
1. Преобразуем исходное число в строку без пробелов.
2. Получаем подстроку из полученной строки начиная слева, длинной в один символ.
3. Получаем подстроку из полученной строки начиная права, длинной в один символ.
4. Склеиваем полученные подстроки левая + правая и получаем строку нужного вида.
5. Если требуется, преобразуем полученную строку в число.

Останеться только перевести данный алгоритм в инструкции языка, используя символьные функции.

[x9aos3]

Спасибо, но можно пожалуйста в паскале

[knowy]

Алгоритм следующий
1. Преобразуем исходное число в строку без пробелов.
2. Получаем подстроку из полученной строки начиная слева, длинной в один символ.
3. Получаем подстроку из полученной строки начиная права, длинной в один символ.
4. Склеиваем полученные подстроки левая + правая и получаем строку нужного вида.
5. Если требуется, преобразуем полученную строку в число.

Останеться только перевести данный алгоритм в инструкции языка, используя символьные функции.

Другой вариант (х - данное число):
а:= x mod 10
b:= x div 10
y:= 10*a+b {результат}
Только есть у меня смутное подозрение, что задача подразумевает все же работу со строками, так что с такой лабой его на защите завернут

[Claus]

Зато изящное и простое решение. Чего так не хватает многим програмерам

[Castor]

Да со строками задали бы длину хотя бы в три-четыре символа, а не два.

[knowy]

Да со строками задали бы длину хотя бы в три-четыре символа, а не два.

Ну будет чуть больше геморроя

Топикстартеру просьба не читать и не принимать за руководство к действию :)

По алгоритму Paralax'a:
1. Определяем длину строки (length, помнится)
2. Создаем цикл на (длина_строки) итераций
3. Вырезаем из строки очередной символ
4. Загоняем его в массив (причем можно загонять сразу начиная с конца массива, на место (длина_строки - счетчик_цикла + 1). Так ещё короче получится).
5. Собссно, выводим содержимое массива в строку в прямом или обратном порядке, смотря как заполняли в п.4
6. Матюги и отладка, подгон индексов строк и массивов, чтобы они лежали в нужных диапазонах.
7. ????
8. PROFIT!

По моему алгоритму:
1. Организуем цикл while, в котором пошагово делим число на 10 и записываем остаток в массив, при этом считая число шагов
2. Организуем цикл for для переменной-счетчика, созданной в цикле while, отсчитывая в обратную сторону
3. В цикле умножаем текущий элемент массива на 10 в степени (счетчик_цикла) (возведение в степень в паскале - отдельный прикол, делается через exp ) и прибавляем к значению переменной-другого счетчика
4. Выводим значение "другого счетчика"
5. Матюги и отладка, добавление ко всему и вся округления, чтобы не уходить от целых чисел.
6. ????
7. PROFIT!

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

[x9aos3]

Другой вариант (х - данное число):
а:= x mod 10
b:= x div 10
y:= 10*a+b {результат}
Только есть у меня смутное подозрение, что задача подразумевает все же работу со строками, так что с такой лабой его на защите завернут

Это 100% правильный вариант?

[Castor]

Это 100% правильный вариант?

По ТЗ 120% правильно.

[x9aos3]

Напишите плиз всю программу
Зарание спасибо

[Castor]

Вот вся программа:

#!/usr/bin/env python
x = int(raw_input("Please enter a two-digit integer: "))
a = x // 10
b = x % 10
y = b*10 + a
print y

Она во всех языках будет практически одинаково выглядеть. Синтаксис Паскаля лениво вспоминать - перевести не проблема.

[x9aos3]

Мне нужно в самом паскале
срочно к понедельнику
напишите кто-небудь

[v_b]

Мне нужно в самом паскале
срочно к понедельнику
напишите кто-небудь

братан.. собери волю в кулак. Cкажи себе - "я могу". А главное - никогда, никогда не сдавайся

[x9aos3]

Вот, что у меня получилось:
Program ty:
Var
x,y:integer;
a,b,:real;
a:=x mod 10
b:= x div 10
y:10*a +b
begin
write('x=');
Readln(x);
writeln('10*a+b=',y);
end.
Она не работает. Подскажите что не так

[knowy]

Все правильно, она и не должна работать
*Бьется в истерике*
1. Переменные типа real не нужны, достаточно все объявить как integer.
2. Синтаксис жутко страдает, почти в каждой строке лишние\недостающие символы.
3. Ну я уж молчу про кусок кода, который находится выше момента получения значения операнда, который в нем используется и вообще вне основного блока программы (я про тот кусок кода, который я собссно и описал на 4-6 постов выше).

[v_b]

Она не работает. Подскажите что не так

Узри же истину!

var
x,a,b:integer;
begin
writeln('Vvidi chislo!');
readln(x);
a:= x mod 10;
b:= x div 10;
writeln('naabarot:',10*a+b);
readln;
end.