Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
VladisKoval
0 / 0 / 0
Регистрация: 14.06.2015
Сообщений: 1
1

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

14.06.2015, 17:31. Просмотров 877. Ответов 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
Ответы с готовыми решениями:

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

Программа зацикливается
uses crt; var x:real; a,b:integer; s,s1:string; begin repeat...

Пытаюсь написать программу по нахождению НОК, но программа зацикливается
Доброго времени суток. Я уже все перепробовал, но на repeat программа...

Программа с расчетом функции с установкой интервала, шага изменения аргумента функции и с таблицей
Не знаю как написать эту программу, может какой-нибудь добрый человек мне...

Программа с расчетом функции с установкой интервала, шага изменения аргумента функции и с таблицей
Не знаю как написать эту программу, может какой-нибудь добрый человек мне...

1
Puporev
Модератор
55422 / 42548 / 29402
Регистрация: 18.05.2008
Сообщений: 100,654
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

Зацикливается программа
Объясните, пожалуйста, почему эта программа зацикливается, если отключить...

Зацикливается программа
проблемка с курсачем, зацикливается... может кто нить разберет в чем проблема.?...

Программа зацикливается
uses crt; type PItem=^TItem; Titem=record inf:string; lev,prav:PItem;...


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

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

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