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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
ПАRАНОИК
0 / 0 / 0
Регистрация: 14.06.2011
Сообщений: 13
#1

Как вывести количество итераций в методе Зейделя? - Pascal ABC

23.06.2014, 04:26. Просмотров 183. Ответов 0
Метки нет (Все метки)

Подскажите, как вывести количество итераций в методе Зейделя?
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
Program Zeidel;
var
elems: array [1..10, 1..10] of real;
x, BElements, sums: array [1..10] of real;
i, i2, a, b: integer;
//x: искомые элементы матрицы
//elems: элементы матрицы
//BElements: последние элементы каждой строки матрицы [строка, столбец]
//sums: ~ конечные суммы каждой строки
//a: кол-во строк матрицы
//b: кол-во столбцов матрицы
begin
cls;
write ('Введите кол-во строк матрицы: ');
readln (a);
write ('Введите кол-во столбцов матрицы: ');
readln (b);
    elems[1,1] := 0.13;
    elems[1,2] := -0.07;
    elems[1,3] := 0.38;
    elems[1,4] := -0.21;
    elems[1,5] := -0.81;
    elems[2,1] := -0.22;
    elems[2,2] := 0.08;
    elems[2,3] := 0.11;
    elems[2,4] := 0.33;
    elems[2,5] := -0.64;
    elems[3,1] := 0.51;
    elems[3,2] := -0.07;
    elems[3,3] := 0.09;
    elems[3,4] := -0.11;
    elems[3,5] := 1.71;
    elems[4,1] := 0.11;
    elems[4,2] := 0.12;
    elems[4,3] := 0;
    elems[4,4] := -0.03;
    elems[4,5] := -0.8;
    BElements[1] := elems[1,5];
    BElements[2] := elems[2,5];
    BElements[3] := elems[3,5];
    BElements[4] := elems[4,5];
    
    for i:=1 to a do begin
        for i2:=1 to b-1 do begin
            write (elems[i,i2],' ');
        end;
        writeln ('');
    end;
    write ('B-элементы каждой строки: ');
    for i:=1 to a do begin
        write (BElements[i],' ');
    end;
    for i:=1 to a do begin
        for i2:=1 to b-1 do begin
            sums[i]:=elems[i,i2]*BElements[i];
        end;
        sums[i]:=sums[i]+BElements[i];
        BElements[i]:=sums[i];
    end;
    writeln('');
    write ('Результат: ');
    for i:=1 to a do begin
        write (sums[i],' ');
    end;
    
    readln;
    
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2014, 04:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Как вывести количество итераций в методе Зейделя? (Pascal ABC):

Ошибки в методе итераций! - Pascal
Вот программа решения трансцендентных уравнений методом итераций...Где то есть ошибка...т.к выдает Х на немного отличающийся от...

Счетчик итераций в методе дихотомии - Pascal ABC
Господа! Столкнулся со следующей проблемой: у меня есть программа, которую нужно дополнить счетчиком итераций. Казалось бы, что может...

Ошибка в методе простых итераций - Pascal ABC
Добрые люди, подскажите пожалуйста, где же я ошибся? Метод простых итераций для функции y=0.5*(x+(1/x)) выдает ошибку. Вот...

Вычислить с заданной точностью, вывести количество итераций - Pascal
Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε, в конце надо вывести количество итераций, как это сделать? ...

Вычислить сумму ряда и вывести количество итераций с заданной точностью - Pascal
в общем: 20 членов ряда сумма=1-3х^2+5х^4-7х^6+9х^8....и тд.... х=1/2, эпселент=0.0001

Написать программу для решения уравнений методом Якоби и Зейделя и вычислить количество итераций - Free Pascal
Добрый вечер! Надо написать программу для решения уравнений методом Якоби и Зейделя и вычислить количество итераций. Вроде все...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2014, 04:26
Привет! Вот еще темы с ответами:

Найти ошибку в методе Зейделя - Mathematica
n = 5; A = {{2, 12, -5, 1, 0}, {0.81, 0, -10, 3, -1}, {44, 22, -1, 0, 5}, {-1.8, 0, 6, -22, 1}, {-1, 0, 0, 3.12, 18.4}}; a =...

СЛАУ методом простых итераций и Зейделя - MathCAD
Всем привет! Помогите, пожалуйста, с решением системы уравнения методом простых итераций и Зейделя. Уже разными способами пытался решить,...

Метод Зейделя с числом проделанных итераций - MathCAD
Помогите сделать так, чтобы программа на выходе показывала число проделанных итераций.Заранее благодарен)

решение СЛАУ методами Гаусса, Зейделя, итераций - Численные методы
система 12,1x1-4,5x2-2x3=19,07 3x1+12,5x2+4,3x3=3,21 -6x1+3,5x2+12,5x3=-18,25


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

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

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