Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти среднее геометрическое нечетных элементов каждого из массивов https://www.cyberforum.ru/ pascal/ thread177447.html
найти среднее геометрическое нечетных элементов каждого из массивов А,В,С. Определить их суммму
В массиве целых чисел с количеством элементов n найти наиболее встречающееся число Pascal
В массиве целых чисел с количеством элементов n найти наиболее встречающееся число. Если таких чисел несколько, то определить наименьший из них.
Pascal Найти номера двух ближайших чисел из массива. https://www.cyberforum.ru/ pascal/ thread177427.html
помогите еще,пожалуйста.... Дан массив размера N. Найти номера двух ближайших чисел из этого массива.
Pascal Работа с файлами Доброго времени суток! Имеется программа в которую вводятся данные(база данных), как мне сохранить эти данные и считать при повторном запуске? чтоб не вводить их каждый раз, так как нужно будет организовать поиск по базе. Program lab_3; type osnovikonompokazateli=record ecpoz:string; cod:integer; edizm:string; codokei:integer; otchetgod:integer; proshgod:integer; end; https://www.cyberforum.ru/ pascal/ thread177412.html
Pascal Вычисление матрицы
помогите найти ошибку в этой программе, после ввода размерности и самой матрицы, дальше вычисления не происходят. program a2; uses crt; type matr=arrayof real; var a,b:matr; i,j,m,n:byte;s:real; procedure inpmatr(var a1:matr;m1,n1:byte); var i,j:byte;
Pascal Удалить знаки "+" и "-" из строки Тема : Обработка символьных и строчных данных Задача : Удалить знаки "+" и "-" https://www.cyberforum.ru/ pascal/ thread177376.html
Pascal Char https://www.cyberforum.ru/ pascal/ thread177373.html
Можно ли, использовать какие нибудь арифметические действия над переменной типа char? Я знаю, что char это символьный тип, просто для решения задачи нужно в цикле постоянно увеличивать на один и тот же символ.
Pascal Процедуры
Разработать программу с использованием процедур: оформить в виде процедур каждый из пунктов задания. Uses crt; Type tabl=record nomr:integer; punkto:string; punktn:string; dni:1..7; end;
Pascal Вектор, матрица, сумма https://www.cyberforum.ru/ pascal/ thread177355.html
№1 Вводится длина одномерного массива и значения его элементов. Составить и вывести новый массив со значениями элементов исходного вектора, состоящих только из цифр минимального числа массива. №2 Ввести размер матрицы (М и N) и значения ее элементов Составить вектор номеров столбцов, в которых минимальный элемент находится ближе к началу столбца, чем максимальный элемент. №3
Pascal Числа и цифры помогите пожалуйста решить задачи: 1.Вывести двузначное число,определить есть ли в нем хоть одна четная цифра 2.Вывести трехзначное число,расположить цифры в порядке возрастания зарание спасибо всем откликнувшимся. https://www.cyberforum.ru/ pascal/ thread177342.html
Pascal Периметр
Даны натуральное число n, действительные числа x1,y2,...,xn,yn. Найти периметр т-угольника, вершины которого имеют координаты (x1,y2,...,xn,yn).
Pascal Шахматы: определить, бьёт ли ферзь коня, конь ферзя или фигуры не угрожают друг другу Доброго времени суток. Помогите с задачей. Надо написать программу, которая будет определять бьёт ли ферзь коня, конь ферзя или фигуры не угрожают друг другу. Уже 3-й день не могу разобраться. С ферзём я справился, и то программа работает с ошибками(по диагоналям коня не находит):wall: https://www.cyberforum.ru/ pascal/ thread177324.html
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
17.10.2010, 17:00 0

проверка в методе гаусса - Pascal - Ответ 1034508

17.10.2010, 17:00. Показов 3381. Ответов 4
Метки (Все метки)

Ответ

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
95
96
97
98
99
100
101
102
103
104
105
program lab4;
uses crt;
const n=3;
      t=0.001;
type matrix=array[1..n,1..n] of real;
     vector=array[1..n] of real;
procedure gen(var m:matrix; var v:vector);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
   m[i,j]:=random(10);
   v[i]:=random(10);
  end;
end;
procedure show(var a:matrix; var b:vector);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3:0);
  writeln(b[i]:3:0);
 end;
writeln;
end;
procedure showx(var x:vector);
var i:integer;
begin
for i:=1 to n do
writeln(x[i]:10:3);
writeln;
end;
procedure Gauss(a:matrix; b:vector;var x:vector);
var  i,j,k:integer;
     c,d,f :real;
begin
for k:=1 to n-1 do
 begin
  {'_¤гйЁc Rв<Ёз_* Rв 0?}
  if a[k,k]=0 then
  for i:=k+1 to n do
  if a[i,k]<>0 then
   begin
    for j:=1 to n do
     begin
      c:=a[k,j];
      a[k,j]:=a[i,j];
      a[i,j]:=c;
     end;
    c:=b[k];
    b[k]:=b[i];
    b[i]:=c;
    break;
   end;
  for i:=k+1 to n do
   begin
    c:=-a[i,k]/a[k,k];
    for j:=1 to n do
    a[i,j]:=a[i,j]+c*a[k,j];
    b[i]:=b[i]+c*b[k];
   end;
 end;
for k:=n downto 2 do
for i:=k-1 downto 1 do
 begin
  c:=-a[i,k]/a[k,k];
  for j:=1 to n do
  a[i,j]:=a[i,j]+c*a[k,j];
  b[i]:=b[i]+c*b[k];
 end;
for k:=1 to n do x[k]:=b[k]/a[k,k];
end;
procedure proverca(a:matrix;x,b:vector;var y:vector);
var  i,j:integer;
     f:boolean;
begin
writeln('Проверка:');
f:=true;
for i:=1 to n do
 begin
  y[i]:=0;
  for j:=1 to n do
  y[i]:=y[i]+a[i,j]*x[j];
  writeln('y[',i,']=',y[i]:3:0);
  if abs(b[i]-y[i])>t then f:=false;
 end;
if f then writeln('Система решена верно!')
else writeln('Система решена не верно!');
end;
var a,a1:matrix;
    b,x,y:vector;
    {i,j:byte;}
begin
clrscr;
randomize;
gen(a,b);
a1:=a;
show(a,b);
gauss(a,b,x);
showx(x);
proverca(a1,x,b,y);
readkey;
end.


Вернуться к обсуждению:
проверка в методе гаусса Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2010, 17:00
Готовые ответы и решения:

Процедура перестановки строк в методе Гаусса
Здравствуйте, нужно написать программу решения СЛАУ методом Гаусса. Программу то я написал, а вот...

Размерность матриц в методе Гаусса
Работает для любого порядка, кроме 100, для 3 я даже проверил - все сходится. Но при 100 выдает...

Обратная подстановка в методе Гаусса
http://prog-cpp.ru/wp-content/uploads/2015/01/gauss171.png как найти x1, x2, x3?

выводит ошибку в методе гаусса
Здравствуйте! помогите пожалуйста! решаю систему методом гаусса, но при запуске выдается вот такая...

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

Ошибка в вводе коэффициентов в методе Гаусса
Я нашел готовый проект с методом Гаусса, но там ввод коэффициентов производится прямо в коде...

Матрицы. Подскажите один момент в методе Гаусса
Можно ли при решении систем линейных уравнений методом Гаусса менять местами строки и столбцы в...

Трудоёмкость вычисления обратной матрицы в методе Гаусса
Есть какая-нибудь инфа или литература по этому? Заранее спасибо :)

В методе Гаусса ругается на system("chcp 1251") и на abs()
Реализуется решения СЛАУ методом Гаусса #include &lt;iostream&gt; using namespace std; // Вывод...

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