|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.08.2014, 15:13 | #1 |
Пользователь
Регистрация: 24.08.2014
Сообщений: 15
|
Помогите решить задачу с использованием процедур
Все,привет)Пожалуйста помогите разобраться с задачей.Задачу я решила,если можно так сказать,но у меня никак не получается убрать из цикла строчку: if r>0 then
writeln('Последовательность содержит число(a) кол-во разрядов которго(ых) равно сумме цифр,таких чисел : ',r) else writeln('в последовательности не чисел,кол-во разрядов которых равно сумме их цифр ') и сделать ее вне цикла,если ее убрать из цикла ,программа выдает ,что r=0. вот условия самой задачи : Вводится последовательность целых чисел,0-конец последовательности.Определить ,содержит ли последовательность хотя бы одно число,сумма цифр в котором равна их количеству.При решении задачи создать процедуру которая возвращает сумму и кол-во цифр в числе. Заранее спасибо за помощь) Вот мое решение: Код:
Последний раз редактировалось Stilet; 24.08.2014 в 17:02. |
24.08.2014, 16:53 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Не плохо было бы увидеть само задание..
И еще у Вас локальные и глобальные переменные перекрываются.. а это не хорошо.. |
26.08.2014, 10:46 | #3 |
Homo Interneticus
Форумчанин
Регистрация: 04.03.2011
Сообщений: 611
|
По поводу оформления кода вообще почитайте про индентацию, в таком виде как Вы предоставили Ваш код трудно читаем.
По поводу самого кода, не понятно зачем вы инициализируете каждый раз 0 переменную r в процедуре zifri, вынесите начальную инициализацию r в тело программы, ну и соответственно тогда можно будет вынести за цикл указанный Вами кусок кода с выводом. Кроме того так как r глобальная переменная нет необходимости повторно объявлять её в процедуре zifri (имею в виду var r:byte), просто используйте её. Т.е. как-то так: Код:
Последний раз редактировалось astecenko; 26.08.2014 в 10:55. |
26.08.2014, 15:19 | #4 |
Пользователь
Регистрация: 24.08.2014
Сообщений: 15
|
Спасибо!
Спасибо за помощь и за советы)Теперь все получается)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных | Фрейтор 40-500 | Помощь студентам | 0 | 02.11.2012 21:58 |
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных | Фрейтор 40-500 | Помощь студентам | 6 | 02.11.2012 21:46 |
Решить прорамму с использованием процедур. | rooman90 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.05.2009 15:01 |
решить с использованием процедуры!помогите сделать. | st1m | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.04.2009 19:26 |
Помогите пожалуйста составить программку с использованием функций и процедур | ЛесенОК | Помощь студентам | 1 | 17.02.2009 18:27 |