|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.06.2016, 19:11 | #1 |
Пользователь
Регистрация: 11.10.2015
Сообщений: 63
|
Паскаль
Задали на практику написать программу.Имеется трёхзначное число, цифры которого различны. После зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного.Найти все такие трехзначные цифры.Я написала код,но мне кажется какой-то он слишком легкий,как можно его усложнить?
var i, j, k : Integer; begin for i := 1 to 9 do for j := 0 to 9 do for k := 0 to 9 do if (i * 100 + j * 10 + k) mod (i * 10 + k) = 0 then Write(i, j, k, '/', i, k, ' '); Readln; end. |
27.06.2016, 19:21 | #2 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
в данном коде НЕТ проверки на различность цифр
Цитата:
if (i<>j) and (i<>k) and (j<>k)
программа — запись алгоритма на языке понятном транслятору
|
|
27.06.2016, 19:22 | #3 |
Пользователь
Регистрация: 11.10.2015
Сообщений: 63
|
даже с этой проверкой,что то очень лекго
|
27.06.2016, 19:23 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
28.06.2016, 11:44 | #5 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,527
|
Цитата:
НЕ выполнять внутрений(-е) цикл(-ы) при нарушении условий различности (при совпадении неких цифр). Это тоже конечно несложно. можно еще подумать как таким же образом (не выполнять внутренние циклы) "оптимизировать" и проверку делимости. Подсказка для этого возможно удобнее будет поменять циклы местами (начинать перебор с младшей или даже с средней цифры). Получится ли это? не знаю, не думал, просто пришла такая мысль.
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 28.06.2016 в 11:48. |
|
28.06.2016, 12:54 | #6 | |
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
Цитата:
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль ABC. Программа на языке Паскаль. | Helen1 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 13.01.2018 21:46 |
паскаль abc. Используя графические средства языка Паскаль на одной координатной сетке построить графики функций | кириллюк | Помощь студентам | 5 | 15.09.2013 12:11 |
Как можно в Паскаль АВС (Паскаль-Турбо) вставлять в результаты печати программы графики, таблицы, схемы, набранные формулы, выраже | IZOPGRAM | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.06.2012 10:54 |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |
паскаль и турбо паскаль | Евгения Игоревна | Помощь студентам | 6 | 05.05.2011 14:31 |