На этом месте находится расчудесная шапка. Включите flash - не пожалеете!

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Задача в паскаль
Exact
сообщение 9.10.2007, 13:51
Сообщение #1


Захожу, но редко... Редко, не то слово! )
********

Группа: Медведи-шатуны
Сообщений: 2 670
Регистрация: 20.3.2006
Из: Чайковский

Пользователь №: 96



Репутация:   26  


Помогите решить задачу в паскале желательно с комментариями. Вообще чисто в теоритическом плане понимаю ка кделать, но на практике лезут ошибки. ВОт смотрите, что если введут не 9999 а трёхзначное число?

Дано натуральное число n (n<=9999)/ Выяснить различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 - нет.


--------------------
..::Чтобы не сетовать на судейство, нужно выигрывать с явным приемуществом::..
..::Пусть думают, что власть на карте мира слева, мы то знаем - справа::..
Хроники Антарии Наследие Эрефа - скачать
Блог Зыкова Николая
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
nikitar
сообщение 9.10.2007, 14:05
Сообщение #2


Мишка-Админ
*********

Группа: Главные администраторы
Сообщений: 8 981
Регистрация: 7.1.2006
Из: Санкт-Петербург

Пользователь №: 12



Репутация:   153  


Цитата
Дано натуральное число n (n<=9999)/ Выяснить различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 - нет.

Ну так взять по одному символу и сравнить их между собой.
Я правда Паскаль не знаю, но алгоритм такой.


--------------------
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Exact
сообщение 9.10.2007, 14:08
Сообщение #3


Захожу, но редко... Редко, не то слово! )
********

Группа: Медведи-шатуны
Сообщений: 2 670
Регистрация: 20.3.2006
Из: Чайковский

Пользователь №: 96



Репутация:   26  


Ну это понятно, я до этого додумался.
Но: если человек введёт число: 203 (то есть трёхзначное) программа запишет числа так - 0,2,0,3 а это уже два одинаковых числа при сравнении

Писать отдельный алгоритм для каждого варианта количества чисел геморрно, тут всё проще а как незнаю


--------------------
..::Чтобы не сетовать на судейство, нужно выигрывать с явным приемуществом::..
..::Пусть думают, что власть на карте мира слева, мы то знаем - справа::..
Хроники Антарии Наследие Эрефа - скачать
Блог Зыкова Николая
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Бином
сообщение 9.10.2007, 14:35
Сообщение #4


Мишка-шатун 888
*

Группа: Медведи-шатуны
Сообщений: 78
Регистрация: 5.9.2006

Пользователь №: 994



Репутация:   4  


Я представлюю как выглядит алгоритм, umnik.gif
если есть потребность могу написать прогу - полностью с коментами.
(Письмо отправляйте в личку)

Если число вводится как четырехзначное,
то надо воспользоваться стандартными функциями на типе Integer (div и mod)
и повычленять цифры из этого числа.
(Если - нет, то это можно опустить.)
Далее сравнить числа - составное логическое условие в четырехкратном цикле.

Существует и более экономичный вариант -
через цикл while и булеву переменную.


--------------------
Мишка-шатун 888 - переворачивает бесконечность.
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Exact
сообщение 9.10.2007, 14:40
Сообщение #5


Захожу, но редко... Редко, не то слово! )
********

Группа: Медведи-шатуны
Сообщений: 2 670
Регистрация: 20.3.2006
Из: Чайковский

Пользователь №: 96



Репутация:   26  


Всё решил, намаялся но решил, тему можете закрыть. Jumpy.gif Сам допеткал


--------------------
..::Чтобы не сетовать на судейство, нужно выигрывать с явным приемуществом::..
..::Пусть думают, что власть на карте мира слева, мы то знаем - справа::..
Хроники Антарии Наследие Эрефа - скачать
Блог Зыкова Николая
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 8.1.2009, 19:38
Rambler's Top100 Яндекс цитирования