Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
VladisKoval
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 1
#1

Градиентный метод с дроблением шага - программа зацикливается - Pascal

14.06.2015, 17:31. Просмотров 762. Ответов 1
Метки нет (Все метки)

Написал программу на метод с дроблением шага,но программа не работает (зацикливается) найти причину никак не получается. Помогите кто разбирается в Паскале(я то "тук тук")
код программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program drobl;
var 
a,b,e,l,dx1,dx2,x1,x2,w,pf: real;
function f(x1,x2:real):real;
begin
f:= x1*x1-4*x2*x2-5*x1+3*x2+1
end;
function f1(x1,x2:real):real;
begin
f1:=2*x1-5; 
end;
function f2(x1,x2:real):real;
begin
f2:=-8*x2+3;
 end;
 label m1;
begin ;
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите e');
readln(e);
writeln('введите x1');
readln(x1);
writeln('введите x2');
readln(x2);
l:=a;
m1:
begin
w:=sqrt(sqr(f1(x1,x2))+sqr(f2(x1,x2)));
pf:=f(x1,x2);
dx1:=-l*f1(x1,x2)/w;
dx2:=-l*f2(x1,x2)/w;
x1:=x1+dx1;
x2:=x2+dx2;
if f(x1,x2)>pf then 
begin 
l:=l*b; 
goto m1 
end;
if w<e then writeln(f(x1,x2):5:3)
else
goto m1;
readln
end;
end.
0
Миниатюры
Градиентный метод с дроблением шага - программа зацикливается  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2015, 17:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Градиентный метод с дроблением шага - программа зацикливается (Pascal):

Программа зацикливается, найти ошибку - Pascal
Помогите пожалуйста найти в чем проблема, так то всё работает, но не выходит - зацикливается. Program 3; Uses Crt; Var...

Программа зацикливается - PascalABC.NET
uses crt; var x:real; a,b:integer; s,s1:string; begin repeat write('Введите положительное вещественое число x='); ...

Программа зацикливается - Turbo Pascal
uses crt; type PItem=^TItem; Titem=record inf:string; lev,prav:PItem; end; var List:PItem; t1:text;

Зацикливается программа - Turbo Pascal
Объясните, пожалуйста, почему эта программа зацикливается, если отключить проверку выхода за границу массива. Какое решение будет...

Зацикливается программа - Turbo Pascal
проблемка с курсачем, зацикливается... может кто нить разберет в чем проблема.? program k7; uses crt; var z,x,c,v,n,j,q,w:integer; ...

Зацикливается программа - Turbo Pascal
uses crt; const Chislo_podstan=30;label m1; var i,j,k,m,p,s,flag:integer;x1,x2,x4,x5,x6,q:string; x,y:arrayof...

1
Puporev
Модератор
54035 / 41668 / 14746
Регистрация: 18.05.2008
Сообщений: 97,982
14.06.2015, 18:08 #2
Pascal
1
if w>e then writeln(f(x1,x2):5:3)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2015, 18:08
Привет! Вот еще темы с ответами:

На чем именно зацикливается программа? - Turbo Pascal
Посмотрите пожалуйста - на чем именно зацикливается программа((( begin s:=Edit1.Text; y:=length(s); while y&gt;0 do begin if y&gt;b...

Найти среди чисел первое такое, что меньше а: программа зацикливается - Turbo Pascal
дано положительное число а (а &lt;1). Найти среди чисел вида 1/2^n, n&gt;=0 первое такое, что меньше а.

Градиентный метод с дроблением шага - Методы оптимизации
Подскажите пожалуйста какая тут ошибка (может расчеты выполняются в неправильных местах), программа ничего не выводит double...

Минимизация функции методом градиентного спуска с дроблением шага. Ошибка! - Matlab
Уважаемые товарищи! Не могу справиться с задачей( Минимизация функции методом градиентного спуска с дроблением шага. Программа указывает на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru