![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Biowolf |
![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 4 Репутация: ![]() ![]() ![]() |
Подскажите наилудший вариант решения задачи.Не могу выбрать наилучший.
Задача должна быть с удобоворимым интерфейсом.В случае неправельного в вода данных выдовать ошибку и возврацать к вводу. Задача Дано трехзначное число проверить если в нем повтаряющиеся цифры. |
pascal65536 |
![]()
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 62 Пол: Мужской Репутация: ![]() ![]() ![]() |
Хе-хе, проверяем введёную строку на предмет: трехзначное ли это число, если нет - посылаем юзверя ... в начало программы, или заставляем его вводить строку пока не умрёт или не введёт правильно.
Потом делим число на 10 - остаток это число единиц, результат делим на 10 - число десятков, результат - число сотен. Полученные три числа сравниваем, попарно. |
Atos |
![]()
Сообщение
#3
|
![]() Прогрессор ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Да тут вроде ничего другого и не придумать.
|
AlaRic |
![]()
Сообщение
#4
|
... ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: ![]() ![]() ![]() |
Сегодня на олимпиаде была похожая задача.
Число z=345 z div 100 = 3 345-3*100=45 45 div 10 = 4 45-4*10=5 5 div 1 = 5 Что-то наподобии! |
Catty |
![]()
Сообщение
#5
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
у меня когда -то лаба была!!! что-то типа того что написал AlaRic! ;D ;D
-------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
trminator |
![]()
Сообщение
#6
|
Четыре квадратика ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: ![]() ![]() ![]() |
Можно хорошо множествами воспользоваться, чтобы проверить, встречалась ли такая цифра
-------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
Darkwolf |
![]()
Сообщение
#7
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 43 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогити сделать вывод ошибки и возвратк вводу если ввели буквы.
вот пробый текст. Код PROGRAM zadacha1; uses crt; VAR N:integer;a,b,c:integer; BEGIN clrscr; WRITE('Vvedite chislo'); READLN(N); while n<100 do begin WRITEln('Oshibka. Vi Vveli slishkom malenikoe chislo '); WRITEln('Vvedite chislo'); READLN(N); end; while n>999 do begin WRITEln('Oshibka.Vi Vveli slishkom bolishoe chislo'); WRITEln('Vvedite chislo'); READLN(N); end; a:=n div 100 mod 10; b:=n div 10 mod 10; c:=n mod 10; IF (a=b) or (a=c) or (c=b) THEN WRITELN('Est povtor') ELSE WRITELN('Net povtorov'); READLN; END. |
Atos |
![]() ![]()
Сообщение
#8
|
![]() Прогрессор ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
nm,
Сообщение отредактировано: Atos - |
Catty |
![]()
Сообщение
#9
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 239 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Atos, а ты себя всегда хвалишь?
![]() -------------------- For every evil under the sun
There is a remedy or there is none If there is one - try to find it If there is none - never mind it! |
Darkwolf |
![]()
Сообщение
#10
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 43 Пол: Мужской Репутация: ![]() ![]() ![]() |
Миха всегда рад помочь и посоветовать влюбом вопросе.
|
Darkwolf |
![]()
Сообщение
#11
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 43 Пол: Мужской Репутация: ![]() ![]() ![]() |
Миха так мы стобой потчти соседи мне дотебя ночь езды на поезде, я в Барнауле. В Омске у меня родственики есть.
|
KRUTOY |
![]()
Сообщение
#12
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 68 Пол: Мужской Репутация: ![]() ![]() ![]() |
Atos
Да, чего-то ты разошёлся, земляк :D -------------------- Главное - чтобы воля была, к победе...
|
Atos |
![]()
Сообщение
#13
|
![]() Прогрессор ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
Да это не я был!!!!!!! Одна юмористка из нашей группы постаралась! Убью юзерку!!!!!!!!!
|
![]() ![]() |
![]() |
Текстовая версия | 1.09.2024 8:50 |