КР Задание 4

Здравствуйте!
Я прочитал инструкцию по этому заданию и у меня возникло несколько вопросов:

1) "Применять каждую процедуру к решению набора из трёх уравнений, заданных тремя последовательными строками таблицы, начиная с варианта, определяемого номером студента по списку"

Получается, каждому из нас надо сделать по 3 задания? Если у меня 7 номер в группе, то мне необходимо прорешать 7, 8 и 9? Их надо делать одним методом, который следует применять к первому заданию? Т.е. в моём случае это метод Ньютона?

2) "Примеры использования процедур и функций в качестве параметров см в [8], п 12.4 и в [10] п. 9.2"

А в каком пособии мне найти всю эту информацию?

И ещё, ребят!! У кого есть CD-хрестоматия к курсу? Вы не могли бы дать мне её переписать?

Всем заранее спасибо за ответы
Джурни.

> Я прочитал инструкцию по этому заданию и у меня возникло
> несколько вопросов:

> 1) "Применять каждую процедуру к решению набора из трёх
> уравнений, заданных тремя последовательными строками таблицы,
> начиная с варианта, определяемого номером студента по списку"
> Получается, каждому из нас надо сделать по 3 задания? Если у
> меня 7 номер в группе, то мне необходимо прорешать 7, 8 и 9? Их
> надо делать одним методом, который следует применять к первому
> заданию? Т.е. в моём случае это метод Ньютона?

Эта задача на манипулирование процедурами (насколько это возможно на стандарте Паскаля): 3 задания решаются тремя методами.

> 2) "Примеры использования процедур и функций в качестве
> параметров см в [8], п 12.4 и в [10] п. 9.2"
> А в каком пособии мне найти всю эту информацию?

В указанных параграфах пособий [8] и [10]!!!

> И ещё, ребят!! У кого есть CD-хрестоматия к курсу? Вы не могли
> бы дать мне её переписать?

Могу подарить 1-ый диск 2004 г.

Спасибо за разъяснения, будем работать =))

zzz писал(а):

>
> Могу подарить 1-ый диск 2004 г.
>

это было бы очень здорово!!!

а функцию дифференцирования в этой программе надо программировать или можно посчитать производную на листочке? =))

кстати, почему-то в моём задании уравнение не является транценгентым...

3*ln(x)*ln(x)+6*ln(x)-5 =0

Это элементарно решается математически.. Замена ln(x)=t
В этом задании случайно нет никакой опечатки?

2 journeys
не парься, решай так, как в таблице сказано, имхо)

2 zzz
Валентин Евгеньевич, у меня тоже вопрос.
У меня 15-й номер, следовательно примеры 15, 16, 17.
как я понял, должно получиться по одному примеру на каждый способ, но 15 и 16 задания оба на метод итераций. Мне взять 15, 17,18 или 15,17 и любой из последующих на недостающий метод?

Делайте три уравнения тремя способами каждое. В случае неприменимости метода вместо корня печатайте диагностику.

journeys писал(а):

> кстати, почему-то в моём задании уравнение не является
> транСценДентНым...
>
> 3*ln(x)*ln(x)+6*ln(x)-5 =0
>
> Это элементарно решается математически.. Замена ln(x)=t
Оно трансцендентно в смысле Паскаля: попробуйте реализовать такую подстановку!
> В этом задании случайно нет никакой опечатки?
Опечатки есть везде. Человеку свойственно ошибаться.

journeys писал(а):

> а функцию дифференцирования в этой программе надо
> программировать или можно посчитать производную на листочке?
> =))
Вопрос риторический т.к. ответ дан заранее на обороте листа задания 4, внизу за таблицей.

Спасибо, а если в моём задание не выпоняется условие сходимости метода, то надо написать это в отчёте, и решить другим способом?

journeys писал(а):

> Спасибо, а если в моём задание не выпоняется условие сходимости
> метода, то надо написать это в отчёте, и решить другим
> способом?

Отвечено выше Вам же!

"Нелинейное уравнение оформить как параметры-фунции,.........."


Может я совсем уже заработался , но это можно интерпретировать по разному , Валентин Евгеньевич , не моглибы вы разяснить данные слова????

это понимать как : func1(параметр)+func2(параметр)+func3(параметр)=0 ???? И при нахождении ответа пользоваться сравнением с этими функциями ???? Или как-то иначе???? Например:

znach:=func(t); где t принимает значение от одного до трех , в соответствии с решаемым уравнением ................ а может совсем невероятное ??? :

type
cc=array[1..10] of char;
var
a:cc;
.........
begin
.........
{Считывание переменной a из файла}
.........
znach:=func(a); {Или считывание из файла}
........
end. {Такая конструкция работает , я проверял )}

У вас в курсовом задании опечатка : В методе итераций написано:


abs( x^(k)-x^(k-1))<E --- Условие окончания , но при таком условии цикл ни когда не окончиться ( исключая переполнение или значение очень приближенное к еденице); Мне кажется там должно быть:

abs( x^(k)-F(x^(k-1)))<E ----- Тогда вроде все нормально получается ))

Прошу прощения , я немного попутал )) там все нормально........ ))

mrLEE писал(а):

> "Нелинейное уравнение оформить как параметры-фунции,.........."
>
Имеются в виду процедуры и функции -- параметры процедур и функций.
>
> Может я совсем уже заработался

на первом курсе жениться и работать категорически не рекомендуется!

, но это можно интерпретировать
> по разному , Валентин Евгеньевич , не моглибы вы разяснить
> данные слова????
>
> это понимать как :
> func1(параметр)+func2(параметр)+func3(параметр)=0 ???? И при
> нахождении ответа пользоваться сравнением с этими функциями
> ???? Или как-то иначе???? Например:
>
> znach:=func(t); где t принимает значение от одного до трех
> , в соответствии с решаемым уравнением ................ а
> может совсем невероятное ??? :
>
> type
> cc=array[1..10] of char;
> var
> a:cc;
> .........
> begin
> .........
> {Считывание переменной a из файла}
> .........
> znach:=func(a); {Или считывание из файла}
> ........
> end. {Такая конструкция работает , я проверял )}

Ответ был дан выше:

2) "Примеры использования процедур и функций в качестве параметров см в [8], п 12.4 и в [10] п. 9.2"

Ну и конечно же надо прочитать описание языка Паскаль [9] или стандарт ISO 7185.

Насколько я помню [8] - это Вирт -"Систематическое программирование".
Так вот специально ходили в 7 корпус смотрели по библиотечной базе и такой к ниги в наличии нет. Так что же делать? Вы же Валентин Евгеньевич сами говорили что книга старая. А старые книги просто так не продаются в магазинах. Не подскажите где достать?
Если не подскажите то ответьте как можно задать функцию как параметр? А то в каждой процедуре описывать все эти функции по отдельности - извращенство небольшое......

Мне необходимо выполнить 15 номер методом итераций, но если следовать описанию способа, то можно заметить, что необходимо подставить вместо x в функцию f(x). Но при первом-же выполнении способа значение f(x) получается отрицательным, а в моей функции x стоит под корнем, т.е. получается ошибка.
А если взять x по модулю, то программа зацикливается...
Как выполнить это задание??? (метод сходится)

> type
> cc=array[1..10] of char;
> var

Прошу прощения , немного перепутал ))

там конечно же :

type
cc=set of char;
var


> на первом курсе жениться и работать категорически не рекомендуется!

Я конечно понимаю , что вы основываетесь на личном опыте , но мне все-таки хочется иногда кушать, а голодать еще хуже чем жениться или работать .......

>> type
>> cc=array[1..10] of char;
>> var

>Прошу прощения , немного перепутал ))

>там конечно же :

>type
>cc=set of char;
>var

Все мне надо выспаться ) все было правильно ))

а что значит базовый метод если каждую задачу надо всеми 3 решать?

Да ничего он теперь не значит, забудь о нём!!!
Как оказалось, этот столбик остался ещё со времён инструкции
90-х годов!!

mrLEE писал(а):

> > type
> > cc=array[1..10] of char;
> > var
>
> Прошу прощения , немного перепутал ))
>
> там конечно же :
>
> type
> cc=set of char;
> var

Шило на мыло: читать из текстового файла множество тоже нельзя! И как это у Вас могло работать?

> > на первом курсе жениться и работать категорически не
> > рекомендуется!
>
> Я конечно понимаю , что вы основываетесь на личном опыте

Я работал со 2-ого семестра в институте по специальности, получая за 20 часов в неделю 60-70 дол. в месяц в нынешнем эквиваленте. Стипендия была чуть меньше. Учёбе это мешало (не получилось учиться на все пятёрки, в итоге вышло 9 четвёрок из 52 оценок, но на диплом с отличием хватило).
Сейчас время другое и я вижу ошибки многих студентов 1 курса 8 факультета, недооценивающих учёбу и постоянно балансирующих на грани отчисления. Особенно это неприемлемо в 1-ом семестре, когда нет личного опыта. Но главное, лучшее время для овладевания специальностью для многих проходит впустую.
>, но мне все-таки хочется иногда кушать, а голодать еще хуже чем
> жениться или работать .......
Согласен с Вашей системой ценностей: голодать < жениться < работать. Но иногда лучше недоедать дома, чем в армии. Учёба, наука и искусство всегда требуют жертв! На работе Вы получите практический опыт, а знания и культуру -- скорее всего нет.

Zelgadis писал(а):

> Насколько я помню [8] - это Вирт -"Систематическое
> программирование".
> Так вот специально ходили в 7 корпус смотрели по библиотечной
> базе и такой к ниги в наличии нет. Так что же делать? Вы же
> Валентин Евгеньевич сами говорили что книга старая. А старые
> книги просто так не продаются в магазинах. Не подскажите где
> достать?
Книг [10] там 150 шт., а [9]-ых -- ещё больше. А стандарт 7185 есть в Интернете или дисках. И ещё Вам должны были это рассказать на семинаре в группе в конце ноября.
> А то в каждой процедуре описывать все эти функции по
> отдельности - извращенство небольшое......
Нет, это просто неправильно!

Gleb писал(а):

> а что значит базовый метод если каждую задачу надо всеми 3
> решать?
Тот, который указан для данного уравнения в таблице.

YaQ писал(а):

> Мне необходимо выполнить 15 номер методом итераций, но если
> следовать описанию способа, то можно заметить, что необходимо
> подставить вместо x в функцию f(x).
уравнение надо разрешить относительно x, т.е. привести из неявной формы F(x)=0 к виду x=f(x), а не делать подстановку. Здесь x=f(x) означает x := f(x), т.е. x (k+1) := f(x(k))!
> Но при первом-же выполнении
> способа значение f(x) получается отрицательным, а в моей
> функции x стоит под корнем, т.е. получается ошибка.
> А если взять x по модулю,
???
> то программа зацикливается...
> Как выполнить это задание??? (метод сходится)

>>Шило на мыло: читать из текстового файла множество тоже нельзя! И как это у Вас могло работать?

> > type
> > cc=array[1..10] of char;
> > var


первоначальная запись была правильной , просто у меня за последние две недели все в голове перемешалось ) ( На что мне указывают преподаватели по Мат. Наукам)

Валентин Евгеньевич , а есть ли возможность поситить терминальный зал , после 17-30 , мне просто кажется , что я не успеваю уложиться до 18-ого числа со всем , что надо здать на Распечатке и мне буквально надо пару часиков чтобы все закончить....... ( Кстати , я ни разу не посещал терминальный зал во время занятий других групп)

Валентин Евгеньевич такой вопрос к вам
в 12 варианте при решении методом итераций проверка на сходимость проходится но возникает другой вопрос где то на 3 итерации x принимает отрицательное значение а в функции присутствует логарифм. Разъясните ситуацию ведь может я просто не до конца понял задание (не отрицаю всякое бывает).
применял такую конструкцию
repeat
x_old:=x_cur;
x_cur:=f(x_old);
until abs(x_cur-x_old)<eps*k;
где x_old - k - е значение функции x_cur - к+1 - е значение функции
eps - машинное эпсилон
f - функция

mrLEE писал(а):

> >>Шило на мыло: читать из текстового файла множество тоже
> нельзя! И как это у Вас могло работать?
>
> > > type
> > > cc=array[1..10] of char;
> > > var
>
>
> первоначальная запись была правильной , просто у меня за
> последние две недели все в голове перемешалось ) ( На что мне
> указывают преподаватели по Мат. Наукам)

И по не Мат. тоже!
>
> Валентин Евгеньевич , а есть ли возможность поситить
> терминальный зал , после 17-30 , мне просто кажется , что я не
> успеваю уложиться до 18-ого числа со всем , что надо здать на
> Распечатке и мне буквально надо пару часиков чтобы все
> закончить....... ( Кстати , я ни разу не посещал терминальный
> зал во время занятий других групп)
Сегодня с 18:00. Или в субботу с 9:00.

Zelgadis писал(а):

> Валентин Евгеньевич такой вопрос к вам
> в 12 варианте при решении методом итераций проверка на
> сходимость проходится но возникает другой вопрос где то на 3
> итерации x принимает отрицательное значение а в функции
> присутствует логарифм. Разъясните ситуацию ведь может я просто
> не до конца понял задание (не отрицаю всякое бывает).
> применял такую конструкцию
> repeat
> x_old:=x_cur;
> x_cur:=f(x_old);
> until abs(x_cur-x_old)<eps*k;
> где x_old - k - е значение функции x_cur - к+1 - е значение
> функции
> eps - машинное эпсилон
> f - функция
f(x) = ?

Валентин Евгеньевич данный вопрос уже улажен но спасибо за внимание =).
Но есть другой вопрос. При проверке на сходимость должно ли выполнятся условие для всей функции или данное условие может выполнятся только на окрестности корня уровнения? А то если проверять только по середине отрезка нек. функции проверку не проходят но схождение происходит.

на семинаре расказывали что так можно сделать:
function dihotomiya(a,b:real;function f(x:real):real):real;
но почемуто ни turbo ни free pascal с этим не согласны...
и ругаются на function f(x:real):real
может я чтото перепутал?

да к примеру free pascal выдаётследующую ошибку
Free Pascal Compiler version 1.0.6 [2002/04/23] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Win32 for i386
Compiling kyrs4.p
kyrs4.p(14,33) Fatal: Syntax error, identifier expected but FUNCTION found

Не Free Pascal, не паскали Borland'a не поодерживают передачу функций в качестве параметров. Делайте в GNU Pascal.

I.M. писал(а):

> Не Free Pascal, не паскали Borland'a
в нарушение стандарта Паскаля ISO 7185!!!
> не п||sqrt(оо)||sqr(д)||ерживают передачу
> функций в качестве параметров. Делайте в GNU Pascal.
Или в Беркли Паскаль. Или в MS Quick Pascal.

у меня 14 вариант
в методе итераций варианты 14 и 16 не подходят по условию |F'(x)|>1 при x [a,b]
в 15 варианте Х(0)=1.5 тогда следущий х=F(1.5)=-0.8367...
и програма вылетает на следущем шаге потомучто корень отрицательным становится...
в програме пропустить этот метод?

немного перепутал в 14 не проходит по условию
а в 15 и 16 не работает изза корня

Здравствуйте.
В 4м варианте при вычислении корня методом половинного деления с точностью, равной машинному eps программа зацикливается. Если eps умножить на 10000(это минимально число, спасающее от зацикливания), то корень подсчитывается правильно.
нормально ли допускать такую вольность с точностью?

Дiма писал(а):

> Здравствуйте.
> В 4м варианте при вычислении корня методом половинного деления
> с точностью, равной машинному eps программа зацикливается. Если
> eps умножить на 10000(это минимально число, спасающее от
> зацикливания), то корень подсчитывается правильно.
> нормально ли допускать такую вольность с точностью?
Организуйте в программе проверку, подставьте этот корень в уравнение F(x) = 0. Если в результате, нуль (невязка) получится великоват, то ищите ошибку или оправдание. Проделайте расчёт на DEC Alpha со 128-битной арфиметикой.

Спасибо большое, я посмотрю, что можно сделать.
Кстати, если кому ещё нужно,
то Turbo Pascal может передавать функции
в качестве параметров, но об этом нужно заранее
сказать компилятору, вставив после заголовка функции
зарезервированное слово far.
Например,
function F(x : Real) : Real; far;

Дiма писал(а):

> Здравствуйте.
> В 4м варианте при вычислении корня методом половинного деления
> с точностью, равной машинному eps программа зацикливается. Если
> eps умножить на 10000(это минимально число, спасающее от
> зацикливания), то корень подсчитывается правильно.
> нормально ли допускать такую вольность с точностью?

Можно также сказать что нужно постараться выделить х из уравнения всеми возможными путями. Потому что при одном выделении корень может получаться а при другом - нет

journeys писал(а):

> кстати, почему-то в моём задании уравнение не является
> транценгентым...
>
> 3*ln(x)*ln(x)+6*ln(x)-5 =0
>
> Это элементарно решается математически.. Замена ln(x)=t
> В этом задании случайно нет никакой опечатки?
Кстати, аналитическое решение, если оно есть, является хорошим тестом. Используйте его в этом качестве!

Дiма писал(а):

> Спасибо большое, я посмотрю, что можно сделать.
> Кстати, если кому ещё нужно,
> то Turbo Pascal может передавать функции
> в качестве параметров, но об этом нужно заранее
> сказать компилятору, вставив после заголовка функции
> зарезервированное слово far.
> Например,
> function F(x : Real) : Real; far;
Это нестандартная (пережиток кухонных процессоров и ОС типа MS DOS и 8086), но неплохая идея для домашней отладки, почему-то не приходившая нам в голову. Нет среди нас настоящих знатоков Паскального нестандарта. Однако, лучше работать дома в GNU Pascal, более точно обеспечивающем стандарт. Борланд советует использовать вместо параметров-процедур (нестандартные!) указатели на процедуры, что не входит в школьную программу 1-ого семестра.