Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/55: Рейтинг темы: голосов - 55, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 15.09.2011
Сообщений: 12
1

Прочитать число справа налево.

15.09.2011, 14:20. Показов 10424. Ответов 11
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1.
ПОЛЬзователем введено четырехзначное число. составить программу, которая находит число, полученное при прочтении его цифр справа налево.
2.
составить програму, которая запрашивает у пользователя целочисленные корни многочлена четвертой степени и, используя теорему Виета, находит его коэффициенты. вывести результат в форме таблицы, где первая строка - степени, а вторая - коэффициента при этих степенях.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.09.2011, 14:20
Ответы с готовыми решениями:

Дано пятизначное число Найти число, получаемое при прочтении его цифр справа налево
Дано пятизначное число. Найти число, получаемое при прочтении его цифр справа налево.

Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево
помогите с паскалем. Дано натуральное число. Найти число, получаемое при прочтении его цифр...

Напечатать число, получаемое при прочтении его цифр справа налево
Дано натуральное число. а) Напечатать число, получаемое при прочтении его цифр справа налево. б)...

Является ли число одинаково читающимся как справа налево, так и наоборот?
Установить, является ли заданное натуральное число n палиндромом (одинаково читается как слева...

11
 Аватар для Jaguar
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 833
15.09.2011, 14:37 2
1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses Crt;
Var N,i:Integer;
    s:String;
Begin
repeat
Writeln('Введите 4-ое число');
Readln(N);
until (N div 1000>=1) AND (N div 1000<10)AND(N>0)OR(N<0);
str(N,s);
Delete(s,Pos('-',s),1);
if N>0 then  begin
for i:=length(S) downto 1 do Write(s[i]);
end
else begin
Write('-');
 for i:=length(S) downto 1 do Write(s[i]);
end;
End.
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.09.2011, 14:46 3
Jaguar, Не просто вывести, а получить, возможно для дальнейшего использования, т.е. в результате должна получиться переменная целого типа.
0
 Аватар для Jaguar
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 833
15.09.2011, 14:48 4
2 Здесь все расписано http://ru.wikipedia.org/wiki/У... ой_степени
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.09.2011, 14:50 5
Кстати, чтобы просто вывести, строка не нужна
Pascal
1
2
3
4
5
while n>0 do
 begin
  write(n mod 10);
  n:=n div 10;
 end;
0
 Аватар для Jaguar
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 833
15.09.2011, 15:01 6
Цитата Сообщение от Puporev Посмотреть сообщение
Jaguar, Не просто вывести, а получить, возможно для дальнейшего использования, т.е. в результате должна получиться переменная целого типа
Там ведь такого не написано. Puporev

Добавлено через 1 минуту
Кстати, чтобы просто вывести, строка не нужна
Я знаю, а если будет минус?

Добавлено через 5 минут
...........
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.09.2011, 15:18 7
Цитата Сообщение от Jaguar Посмотреть сообщение
а если будет минус?
Pascal
1
2
3
4
5
6
7
m:=abs(n);
if n<0 then write('-');
while m>0 do
 begin
  write(m mod 10);
  m:=m div 10;
 end;
Добавлено через 13 минут
Автор точное задание держит в тайне, но думаю что это либо задание на mod div, либо на циклы, а числа имеются ввиду положительные.
Первый вариант такой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var m,s,a,b,c,d:integer;
begin
clrscr;
repeat
write('Введите натуральное 4х-значное число M=');
readln(m);
until (m>999)and(m<=9999);
a:=m div 1000;
b:=m div 100 mod 10;
c:=m div 10 mod 10;
d:=m mod 10;
s:=1000*d+100*c+10*b+a;
write(s);
readln
end.
Второй, такой.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{поменять порядок цифр на обратный}
uses crt;
var M,s:integer;
    i:byte;
begin
clrscr;
repeat
write('Введите натуральное 4х-значное число M=');
readln(m);
until (m>999)and(m<=9999);
s:=0;
while m>0 do
 begin
  i:=m mod 10;
  s:=s*10+i;
  m:=m div 10;
end;
write(s);
readln
end.
1
0 / 0 / 0
Регистрация: 15.09.2011
Сообщений: 12
15.09.2011, 20:51  [ТС] 8
а во втором задании таблицу в паскале как составить?

Добавлено через 34 минуты
не работает эта программа чтото.
ну он должен же вывести число наоборот просто? или нет?
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.09.2011, 20:56 9
Цитата Сообщение от сергей1793 Посмотреть сообщение
не работает эта программа чтото.
Какая не работает?
0
0 / 0 / 0
Регистрация: 15.09.2011
Сообщений: 12
15.09.2011, 21:27  [ТС] 10
ни одна не работает.
вторую задачу делаю тоже чета не получается(((
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
15.09.2011, 21:44 11
Чё не работает то?Ошибка или что?
0
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
15.09.2011, 22:20 12
Цитата Сообщение от сергей1793 Посмотреть сообщение
ни одна не работает.
Значит не судьба, у меня обе мои программы работают...
0
15.09.2011, 22:20
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
15.09.2011, 22:20
Помогаю со студенческими работами здесь

Написать программу, которая будет составлять число, которое читается одинаково как слева направо, так и справа налево
Текст задачи: &quot;На вход программе подается набор символов, заканчивающийся символом 0 (в программе...

Является ли последовательность цифр числа при просмотре их справа налево упорядоченной по возрастанию
Используя цикл с постусловием repeat решить задачу: Дано натуральное число. Установить, является...

Определить является ли заданный текст симметричным (читается одинаково слева направо и справа налево)
Дан текст из 20 символов. Определить является ли он симметричным (читается одинаково слева направо...

Определить в тексте слова, которые можно читать слева направо и справа налево (Анна, шалаш и т.д.).
Помогите пожалуста решить. Задача: Определить в тексте слова, которые можно читать слева направо...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Новые блоги и статьи
Элементы алгоритмизации
hw_wired 28.01.2025
Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .
Человек и информация
hw_wired 28.01.2025
Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .
Компьютер и информация
hw_wired 28.01.2025
Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .
Информационные технологии
hw_wired 28.01.2025
Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .
Информация вокруг нас
hw_wired 28.01.2025
Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .
Компьютер для начинающих
hw_wired 28.01.2025
Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array
alhaos 28.01.2025
Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .
КуМир: решение задач на матрицы
bytestream 28.01.2025
КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .
КуМир: решение задач на строки
bytestream 28.01.2025
В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .
КуМир: решение геометрических задач
bytestream 28.01.2025
Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .
КуМир, исполнитель Водолей: Задачи и решения
bytestream 28.01.2025
КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .
КуМир, исполнитель Чертежник: Решение задач
bytestream 28.01.2025
КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru