Метод индуктивной функции..часть 2 |
Метод индуктивной функции..часть 2 |
Olya |
26.03.2007 22:33
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Женский Реальное имя: Olya Репутация: 0 |
У меня тоже проблемы с этим методом, только задание другое:
Дана последовательность вещественных чисел, заданная в типизированном файле. Методом индуктивной функции вычислить среднюю длину связных подпоследовательностей отрицательных чисел. Что здесь можно сделать? |
Lapp |
26.03.2007 22:55
Сообщение
#2
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Если честно, непонятно..
Я бы не назвал функцию "средняя длина связных подпоследовательностей отрицательных чисел" индуктивной в данном случае.. Твои соображения? Или, может, преп на что-то намекал?.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Olya |
27.03.2007 8:26
Сообщение
#3
|
|||
Новичок Группа: Пользователи Сообщений: 18 Пол: Женский Реальное имя: Olya Репутация: 0 |
Вот попытка написать подпрограмму, проверяйте:
{
|
|||
Lapp |
27.03.2007 8:55
Сообщение
#4
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Ну, неплохо!
Наворочено, конечно... ладно, разберемся, исправим! Единственное, что могу сказать сразу: твоя "индуктивная функция" совершенно, увы, не индуктивна.. Но в целом идея понятна, можно сделать ее и индуктивной. Я отвечу немного позже - через часок. Если, конечно, никто не напишет раньше -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Lapp |
27.03.2007 10:13
Сообщение
#5
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Olya, давай договоримся: ты будешь сама пробовать компилировать свои программы.
Компилятор у тебя есть? По крайней мере выловишь очевидные ляпы (тип объявляется через равенство, всякие лишние символы - только в коментариях, аосле var двоеточие не нужно, переменные объявляются один раз, все переменные должны быть объявлены..). Ты согласна? Тогда двигаемся дальше.. Скажи, зачем ты переназвала стандартные типы? Вас так учат? Я бы все же делал это только там, где это осмысленно.. Формат такой, что программу читать трудно - отступы скачут без системы. Видно вроде, что ты хотела чего-то добиться этим - но чего?.. Правила простые: 1. блоки объявлений желательно сдвинуть (это у тебя есть) 2. После каждого begin (и repeat) все следующие строки получают дополнительный сдвиг на Таб (обычно Таб=2, но можно делать и 4 или даже 3, только выдерживать принятое значение на протяжении программы) 3. end (и until), если он не закрывает begin (repeat) на той же строке, должен стоять в начале строки. Эта строка и все после нее пишутся с отступом, уменьшенным на Таб. Вот, практически, и все. Бегин двигает вправо, энд влево. Сложно? Еще одно: не надо так разрывать условный оператор. То, что стоит после then или else - должно стоять на той же строчке, если позволяет длина. Если не позволяет - желательно забрать в блок и сдвинуть уже по правилу бегин-энд.. При этом бегин должен стоять сразу за then (else). Лишние (пустые) строки ставь только там, где это чем-то обусловлено (например, разделить процедуры друг от друга, выделить структурный блок, если нужно). Вот так выглядит твоя программа, если ее причесать: { Пожалуйста, разберись с этим, а я пока продолжу по существу.. Добавлено через 4 мин. Последний блок я закомментировал, так как не стал разбираться, что такое scet и как его объявлять. Надеюсь, ты это исправишь сама. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Lapp |
27.03.2007 11:31
Сообщение
#6
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Короче, вот..
В твоей программе слишком много нужно было переделывать, и мне очень не хотелось тянуть твои громоздкие названия в такой простой программе. Выкладываю текст работающей программы в надежде, что ты разберешься сама, что к чему. Поясню только основной момент, про индуктивную функцию. Индуктивной, грубо говоря, называется функция, которую можно посчитать через предыдущий результат. В нашем случае, перед считыванием очередного числа мы как бы уже имеем длину текущей цепочки. Считываемое число либо оборвет ее, либо увеличит на единицу. То есть предыдущий результат лтбо фиксируется, либо увеличивается и смотрится, что там дальше. Иначе говоря, на каждом этапе мы должны воспользоваться результатом предыдущего этапа. А это значит, что можно использовать то, что в программировании называется рекурсия: вызов функции из тела самой этой функции. Именно это и характеризует индуктивность функции (одного названия, увы, недостаточно ). Посмотри внимательно на тело функции, особенно присвоение: NegChainL:=NegChainL+1 В левой части стоит значение, которое возвратит функция по окончании своей работы, а в правой то же самое слово представляет собой последующий вызов этой же функции. Это и есть рекурсия (в переводе на русский - повторный вход). При этом в стеке создается еще одна копия всех данных этой функции, так что, например, переменная a в ней уже не равна переменной a в вызвавшей функции. Программный код же используется тот же самый. Вложенных вызовов может быть очень много - сколько позволит размер стека. Если стек переполнится, программа свалится, но в нашем случае такое вряд ли случится - несколько десятков вложений вполне нормально. Данные читай из файла negchain.dat - по одному чилу на строке. Я не написал никаких комментариев - добавь их, пожалуйста, сама. И покажи тут, что у тебя получилось. Успехов! {Average negative chain length calculating} -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Olya |
28.03.2007 8:50
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Женский Реальное имя: Olya Репутация: 0 |
Андрей, приветик, вот проверяй...а ты уверен, что функция NegChainL - индуктивная? У нас просто называют её рекурсивной...или я так поняла, это всё взаимосвязано? Ещё по заданию, эта подпрограмма должна написана в стиле защитного программирования, то есть должны быть предусмотрены всевозможные коды ошибок. Здесь я так понимаю, тоже это есть. Вот..мне ещё нужно описать необходимые типы данных и составить полную спецификацию, которая должна содержать задачу функции (самой подпрограммы)...входные, выходные данные..и вот те возможные значения функции, ей присваиваемые...Как это оформить..?
{Average negative chain length calculating} Сообщение отредактировано: Olya - 28.03.2007 9:01 |
Lapp |
28.03.2007 9:22
Сообщение
#8
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Что проверять? комментарии? они программу не портят .
Почему-то опять появилось несколько непонятных сдвигов.. почему ты их так любишь? Неправильные сдвиги - это так же плохо, как и отсутствие сдвигов.. а ты уверен, что функция NegChainL - индуктивная? У нас просто называют её рекурсивной...или я так поняла, это всё взаимосвязано? Ещё по заданию, эта подпрограмма должна написана в стиле защитного программирования, то есть должны быть предусмотрены всевозможные коды ошибок. Здесь я так понимаю, тоже это есть. Вот..мне ещё нужно описать необходимые типы данных и составить полную спецификацию, ... Как это оформить..? Если хочешь - можешь советоваться, конечно. Пиши тут, в чем сомневаешься, сли сможем - поможем.. Успехов! Добавлено через 2 мин. PS Как тебе удалось навставлять столько пробелов в конце программы?.. насилу вычистил.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 27.04.2024 14:04 |