Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/18: Рейтинг темы: голосов - 18, средняя оценка - 4.83
Dilara93
0 / 0 / 0
Регистрация: 16.09.2013
Сообщений: 4
1

Решение систем линейных уравнений методом простой итерации

03.11.2013, 17:58. Просмотров 3302. Ответов 1
Метки нет (Все метки)

Решить систему линейных уравнений методом простой итерации
0
Изображения
 
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2013, 17:58
Ответы с готовыми решениями:

Решение системы линейных уравнений методом простой итерации
Привести систему к виду, подходящему для метода простой итерации. Рассчитать...

Решение систем линейных уравнений
Выводит ошибку 200 Division by zero (Деление на ноль)), никак не могу...

Решение СЛАУ методом простой итерации или методом Зейделя
Решение СЛАУ методом простоой интерпритации или методом Зейделя. Напишете...

Решение уравнений методом деления отрезка пополам и итерации
Помогите написать программу в турбо паскале. lnx-0,5x+1=0 ( x>1) найти один...

Решение системы линейных уравнений методом Холецкого
Помогите решить написать систему уравнений. Решение системы линейных уравнений...

1
lihtaryk
0 / 0 / 1
Регистрация: 13.12.2013
Сообщений: 1
17.12.2013, 00:45 2
Лучший ответ Сообщение было отмечено Dilara93 как решение

Решение

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
77
78
79
80
81
82
program  metod_prostoi_iterachii;
     label 1;
 
var
    a,x:array[1..200,1..200] of real;
    b:array[1..200] of real;
    n,i,j,q,k:integer;
     sum, max,p,e:real;
 
begin
   writeln(' введіть к-ть  невідомих n<200');
   read(n);
 
  writeln(' введіть  ел.  матриці  А ');
  for i:=1 to n do
  for j:=1 to n do
    begin
   readln(a[i,j]);
    end;
 
writeln(' введіть ел.  в-ра  b');
 for i:=1 to n do
  begin
readln(b[i]);
  end;
 
writeln(' введіть відносну похибку');
readln(e);
 
q:=0;
    for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to n do
     if j<>i then sum:=sum+a[i,j];
     
     if a[i,i]>sum then q:=q+1;
     end;
    
 if q<>n then  writeln('Iтераційний процес розбіжний')
     else
     
begin
     for i:=1 to n do
     x[i,1]:=b[i]/a[i,i];        
         
 k:=2;
           1 : for i:=1 to n do
                 begin
                   x[i,k]:= x[i,1];
                
                 for j:=1 to n do
                   if i<>j then
                   x[i,k]:= x[i,k]+(-a[i,j]/a[i,i])*x[j,k-1];
                 end;
      
       max:=abs(x[1,k]-x[1,k-1]);
          for i:=2 to n do
          if  abs(x[i,k]-x[i,k-1])>max  then
            max:=abs(x[i,k]-x[i,k-1]);
        
p:=x[1,k];
        for i:=2 to n do
        if abs(x[i,k])>p then 
            p:=abs(x[i,k]);
     
 if max/p>e then
      begin
        k:=k+1;
        goto 1;
      end
       
else
       
begin
       writeln('розвязок СЛАР:');
       for i:=1 to n do
       writeln('x[',i,']=',x[i,k]:4:7);
       end;
     
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2013, 00:45

Решение системы линейных уравнений методом Крамера
Программа практически написана , но выдает ошибку - несоответствие типов.......

Решение системы линейных уравнений методом Гауса
даны 2 текстовых файла 22,3 -1 0 2 3 24,3 4 1 2...

Решение системы линейных уравнений методом Гаусса
помогите сделать программу для решения систем линейных уравнений методом гаусса


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

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

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