0 / 0 / 0
Регистрация: 22.04.2011
Сообщений: 36
1

Алгоритм решения

15.06.2011, 15:42. Показов 695. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужно написать алгоритм решения к двум задачам (и подписать комментариями происходящее в строках кода).

1. Задание: Решить уравнение методом Ньютона (с помощью касательных)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const
eps=0.000000001; 
var
a,x,y,x1,f,proiz:real;
begin
clrscr;
x:=0;   
repeat          
 x1:=x;           
 f:=x*x*x+3*sqr(x)-24*x-10;  
 proiz:=3*sqr(x)+6*x-24;  
 y:=f/proiz;   
 x:=x-y ;       
until abs(x-x1)<=eps; 
writeln('x=',x:12:9);
readln;
end.
2. Задание: Решить уравнение методом Гаусса. Выполнить проверку.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Const
 A0:Array[1..5,1..5] of Real=((  7.8,  0.1,  2.5,  3.4,  0.8),
                              (  2.3,-10.8,  1.8,  2.1,  2.6),
                              (  4.5,  2.3,  9.8,  2.7,  0.3),
                              (  0.2,  0.4,  1.7,  2.5,  0.2),
                              (  2.5,  0.3,  0.2,  2.5,  5.5));
 B0:Array[1..5] of Real=(38.493,  8.085, 58.74, 19.581, 47.052);
 
VAR
 i,j,k,m:Integer;
 Dummy,R:Real;
 A:Array[1..5,1..5] of Real;
 B:Array[1..5] of Real;
 
BEGIN
 A:=A0;
 B:=B0;
 For i:=1 to 5 do
  begin
   For j:=1 to 5 do write(A[i,j]:6:2,'*x',j,' + ');
   Writeln(' = ',B[i]:6:3);
  end;
 writeln;
 
 For k:=1 to 5 do
  begin
   If A[k,k]=0 then
    begin
     m:=k;
     repeat
      Inc(m);
     until A[m,k]<>0;
     For j:=1 to 5 do
      begin
       Dummy:=A[k,j];
       A[k,j]:=A[m,j];
       A[m,j]:=Dummy;
      end;
     Dummy:=B[k];
     B[k]:=B[m];
     B[m]:=Dummy;
    end;
   For i:=k to 5 do
    begin
     R:=A[i,k];
     If R<>0 then
      begin
       For j:=k to 5 do
        A[i,j]:=A[i,j]/R;
       B[i]:=B[i]/R;
      end;
    end;
   For i:=k+1 to 5 do
    If A[i,k]=1 then
     begin
      For j:=k to 5 do
       A[i,j]:=A[k,j]-A[i,j];
      B[i]:=B[k]-B[i];
     end;
  end;
 
 For i:=5 downto 1 do
  For j:=5 downto i+1 do
   B[i]:=B[i]-B[j]*A[i,j];
 
 Writeln('The result and its testing:');
 
 For i:=1 to 5 do
  begin
   Dummy:=0;
   For j:=1 to 5 do
    Dummy:=Dummy+B[j]*A0[i,j];
   Writeln('x[',i,']= ',B[i]:6:3,'    Sum= ',Dummy:6:3,'   B[',i,']= ',B0[i]:6:3);
  end;
 Readln
END.
Помощь нужна как можно быстрее (по возможности).
Благодарю заранее.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2011, 15:42
Ответы с готовыми решениями:

Алгоритм решения
Олимпиадная задача!!Имеем треугольник катетами 10x6,имеем возможность найти площадь, найти...

Алгоритм решения
Пожалуйста помогите составить алгоритм решения задачи на паскале. ПЛИЗ *Даны натуральные числа...

найти алгоритм решения
Задача олимпиадная!!Прямоугольник,стороны которого выражены целыми числами M и N,разделён на...

Составить алгоритм решения
1) M=sqrt(K+sqrt(2K+sqrt(3K+...sqrt(K(n-1)+sqrt(Kn))))) 2)...

0
15.06.2011, 15:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2011, 15:42
Помогаю со студенческими работами здесь

Нужен алгоритм решения
Прошу помочь как составить алгоритм решения задачи???Вот собственно сама задача

Алгоритм решения и блок-схема
Program zadfive; uses crt; var k,m,n:extended; d:integer; begin k:=200; d:=0; while...

Составить алгоритм решения задачи
методом перебора с шагом h установить наибольшее значение функции f(X) на отрезке .

Составить и записать алгоритм для решения
Помогите составить алгоритм и нарисовать блок схему для решения задачи(саму программу делать не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru