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

Метод квадратного корня - Pascal

10.06.2009, 20:18. Просмотров 5127. Ответов 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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Program MKK;
Uses crt;
const n=4;
type mass1=array[1..n,1..n] of real;
     mass2=array[1..n] of real;
var  a,s:mass1;b,y,x:mass2;i,j,k:integer;
     f:boolean;
 
procedure vvod;
var i,j:integer;
begin
a[1,1]:=4;a[1,2]:=2;a[1,3]:=6;a[1,4]:=8;
a[2,1]:=2;a[2,2]:=5;a[2,3]:=5;a[2,4]:=10;
a[3,1]:=6;a[3,2]:=5;a[3,3]:=14;a[3,4]:=17;
a[4,1]:=8;a[4,2]:=10;a[4,3]:=17;a[4,4]:=30;
b[1]:=-80;
b[2]:=156;
b[3]:=-304;
b[4]:=221;
writeln('Variant 10:');
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:2:0,' ');
writeln('| ',b[i]:2:0);end;
writeln;
end;
 
 
procedure proverka(var f:boolean);
var i,j:integer;
begin
f:=true;
for i:=1  to n do
for j:=1 to n do
if a[i,j]<>a[j,i] then f:=false;
end;
 
procedure matr_S;
var i,j,k:integer;s1:real;
begin
for i:=1 to n do begin
s1:=0;
for k:=1 to (i-1) do
s1:=s1+s[k,i]*s[k,i];
s[i,i]:=sqrt(a[i,i]-s1);
for j:=(i+1) to n do begin
s1:=0;
for k:=1 to (i-1) do
s1:=s1+s[k,i]*s[k,j];
s[i,j]:=(a[i,j]-s1)/s[i,i];
end;end;
writeln('Matrica S:');
for i:=1 to n do begin
for j:=1 to n do
write(s[i,j]:2:0,' ');writeln; end;
end;
 
procedure matr_Y;
var i,k:integer;s1:real;
begin
for i:=1 to n do begin
s1:=0;
for k:=1 to (i-1) do
s1:=s1+s[k,i]*y[k];
y[i]:=(b[i]-s1)/s[i,i];end;
writeln;
writeln('Vspomogatelniy vektor Y:');
for i:=1 to n do begin
write(y[i]:2:0,' ');writeln;end;
end;
 
procedure matr_X;
var i,k:integer;s1:real;
begin
for i:=n downto 1 do begin
s1:=0;
for k:=(i+1) to n do
s1:=s1+s[i,k]*x[k];
x[i]:=(y[i]-s1)/s[i,i];end;
writeln;
writeln('Otvet (vektor X):');
for i:=1 to n do begin
write(x[i]:2:0,' ');writeln;end;
end;
 
begin
clrscr;
 
vvod;
proverka(f);
if f=true then begin
matr_S;matr_y;matr_x;end
else writeln('metod ne primenim dlya dannoy matrici!');
end.
Добавлено через 4 часа 57 минут 6 секунд
подскажите кто-нибудь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2009, 20:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Метод квадратного корня (Pascal):

Итерационное вычисление квадратного корня
По заданному вещественному x , вычислить значение \sqrt{x} по следующей...

Вычисление квадратного корня из числа.
Нужно вычислить квадратный корень из числа a с заданной точностью. Функциями...

Составить схему алгоритма и программу определения корня квадратного значений элементов массива
Составить схему алгоритма и программу определения корня квадратного значений...

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

Нахождение наибольшего по модулю действительного корня многочлена с различными корнями. Метод Бернулли
Помогите с написанием программы. Задание такое: Нахождение наибольшего по...

Вычисление корня
Написать программу: y= корень 4 степени (x+10) y= x в степени1/3 +50x y=...

2
Aneg
0 / 0 / 0
Регистрация: 29.04.2015
27.11.2010, 13:53 #2
Сёдня писал её на с++)
Почитай в википедии про метод Холецкого(т.к. S является транспонированной матрицей) и метод Гауса(т.к. Х и У находятся через него), а потом скажи что конкретно не понятно...
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
27.11.2010, 13:56 #3
10.06.2009, 20:18

Не по теме:

думаю обязательно скажет

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

Вычисление корня
Как мне вычислить корень, допустим пятой степени x-а?

Поиск корня.
Дана функция 4 степени. f(x)=ax^4+bx^3+cx^2+dx+e В пределе имеется один...

Выделение корня n-й степени.
Программа выделения корня из числа. Число и степень корня вводятся с...

Вычисление непрерывного корня
Составить программу для вычисления:


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

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

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