|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2020, 17:23 | #1 |
Новичок
Джуниор
Регистрация: 28.11.2020
Сообщений: 1
|
Использование операторов цикла в программе на Pascal
Ввести число. Получить другое число путем замены нулей на 9
Только пока-что вот это получилось накодить) var a:integer; begin readln(a); while a <> 0 do a:=a div 10=0; if a=0 then a:=9; writeln(a); end. |
28.11.2020, 18:39 | #2 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,331
|
Команда readln() читает строку и передаёт переменной значение после преобразования к нужному типу.
Т.к. это компилятор, то преобразование делается скрыто от программиста. Задачу можно решить так: Просим ввести число, но принимаем его в переменную строкового типа - s. Как понимаю, в условии (ТЗ), эта составляющая не оговорена. Код:
Если надо выполнить арифметические операции, то преобразуем строку в число. Если делать через div и mod, то алгоритм будет сложнее. mod 10 даст остаток, а div 10 - число без единиц. Для алгоритма потребуется переменная (sum) в которой будет получаться новое число и переменная - множитель, в которой будет храниться произведение десяток (коэффициент). Начальное значение множителя - 1, а sum - 0. Цикл типа while True или repeat -- until Получаем остаток: mod 10. Остаток надо проверить и, при необходимости, заменить. Остаток умножаем на коэффициент и добавляем в сумму. Делим число на 10 через div. Число надо проверять, если ноль - то конец цикла (все цифры проверили). Выход из цикла - break или по условию в until. Умножаем коэффициент на 10. В начало цикла А оно вам надо в таком виде? И т.д.
Как-то так, ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование операторов цикла | Yar_ | Помощь студентам | 1 | 16.12.2014 16:45 |
Задачи на использование операторов цикла for и while (C++) | /Crow/ | Помощь студентам | 0 | 14.12.2013 13:18 |
Обработка массива с использование операторов цикла с условием | MikaNika | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 08.04.2012 21:53 |
использование операторов цикла. | 555ALEXANDR555 | Помощь студентам | 2 | 10.01.2011 17:11 |
Использование операторов цикла | кася | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 02.05.2008 00:32 |