close

Вход

Забыли?

вход по аккаунту

?

Разработка программы в заданной среде программирования

код для вставкиСкачать
Разработка программы в заданной среде программирования:
Program Nuton;
Uses crt;
Label 1;
Var
A: array[1..20,1..20] of real;
B: array[1..20] of real;
F: array[1..20] of real;
x: array[1..20] of real;
r, s, m, i, j, n, k: integer;
p, e, h: real;
Procedure chet(x, y: real);
Begin
F[1]:=0.1*x+2*x*y-sqr(y);
F[2]:=2*x-x*y-5*x+1;
end;
Begin
clrscr;
Write ('Введите n='); readln (n);
Write ('Введите m='); readln (m);
Write ('Введите e='); readln (e);
s:=0;
For i:=1 to n do begin
write ('Введите X[',i,'0]=');
readln (x[i]);
end;
1: chet(x[1],x[2]);
For i:=1 to n do
b[i]:=-f[i];
For j:=1 to n do begin
p:=x[j]; h:=e*abs(p); x[j]:=p+h;
chet(x[1],x[2]);
for i:=1 to n do
a[i,j]:=(f[i]+b[i])/h;
x[j]:=p
end;
s:=s+1;
If s=m+1 then begin
Writeln ('Chislo interacii = ',s);
exit
end;
For i:=1 to n-1 do For j:=i+1 to n do begin
a[j,i]:=-a[j,i]/a[i,i];
For k:=i+1 to n do begin
a[j,k]:=a[j,k]+a[j,i]*a[i,k] end;
b[j]:=b[j]+a[j,i]*b[i]
end;
F[n]:=B[n]/a[n,n];
For i:=n-1 downto 1 do begin
h:=b[i];
For j:=i+1 to n do
h:=h-f[j]*a[i,j];
f[i]:=h/a[i,i]
end;
r:=0;
for i:=1 to n do begin
x[i]:=x[i]+f[i];
If abs(F[i]/x[i])>e then r:=1
end;
if r=1 then goto 1;
For i:=1 to n do
write ('X[',i,']=',x[i]:1:8);
repeat until keypressed
end.
14
Документ
Категория
Рефераты
Просмотров
11
Размер файла
25 Кб
Теги
среды, программа, разработка, заданной, программирование
1/--страниц
Пожаловаться на содержимое документа