Форум программистов, компьютерный форум CyberForum.ru

нужно сделать метод Гауса в процедурах и функциях - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Пирамидальная сортировка http://www.cyberforum.ru/cpp-beginners/thread140979.html
Может кто может выложить примеры: 1) пирамидальной сортировки 2) сортировка простым выбором Они нужны в курсовую как примеры Заранее благодарю!!!
C++ Задан двумерный массив N x N. Задан двумерный массив N x N. Последовательно рассматриваются квадратные подмассивы, правый верхний элемент которых лежит на побочной диагонали. В каждом таком подмассиве находится максимальный элемент. Путем перестановок строк и столбцов (целиком) элемент надо переместить в правый верхний угол подмассива. Проверить получилась ли на побочной диагонали убывающая последовательность элементов. http://www.cyberforum.ru/cpp-beginners/thread140971.html
C++ Элемент матрицы является Седловой точкой
Элемент матрицы является Седловой точкой (Седловая точка в матрице эта самый максимальный элемент в строке и самый минимальный элемент в столбце.), если она является наименьшим в своей строке и наибольшим в своем столбце (или наоборот: наибольшим в своей строке и наименьшим в своем столбце). Для заданной матрицы определить все ее седловые точки.
C++ Помагите написать функции для следующей программы
Помагите написать функции для следующей программы 1)создать функцию в которой,как параметр передаётся строка и которая возвращает колличество слов в строке 2)создать функцию для строки , которую вводят с клавиатуры и которая считает колличество слов начинающихся с первой буквы этой строки 3)создать функцию ,которую вводят с клавиатуры и которая считает колличество слов в строке В mainе ...
C++ Подсчитать количество символов в первом слове F2 http://www.cyberforum.ru/cpp-beginners/thread140967.html
Подсчитать количество символов в первом слове F2
C++ Скопировать из файла F1 в файл F2 все строки в которых есть одинаковые слова Скопировать из файла F1 в файл F2 все строки в которых есть одинаковые слова подробнее

Показать сообщение отдельно
вампирчик
Сообщений: n/a
04.06.2010, 19:31     нужно сделать метод Гауса в процедурах и функциях
Эта программа решает в паскале системы уравнений методом Гауса с проверкой) помогите сделать ее в процедурах и функциях. очень надо
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
Program name;
uses crt;
const n=3;
var mas,mas1: array [1..n, 1..n+1] of real;
    x: array [1..n] of real;
i,j,ii,p: integer;
 
k,s,g,f: real;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n+1 do
begin
mas [i,j]:=random (7);
mas1[i,j]:=mas[i,j];
write (mas[i,j]:7:2);
end;
writeln;
end;
writeln;
 
for ii:=1 to n-1 do
begin
 
for i:=ii to n-1 do
begin
k:=(-mas[i+1,ii]/mas[ii,ii]);
for j:=ii to n+1 do
begin
mas[i+1,j]:=k*mas[ii,j]+mas[i+1,j];
 
end;
end;
end;
 
 
for ii:=1 to n do
begin
s:=mas[n-ii+1,n+1];
for j:=1 to n-1 do
begin
s:=s-x[n-j+1]*mas[n-ii+1,n-j+1];
end;
x[n-ii+1]:=s/mas[n-ii+1,n-ii+1];
end;
 
 
 
 
writeln;
for i:=1 to n do
begin
for j:=1 to n+1 do
begin
write (mas[i,j]:7:3);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
writeln (x[i]:7:3);
end;
 
 
 
 
for i:=1 to n do begin
f:=0;
for j:=1 to n do
begin
 
f:=f+mas1[i,j]*x[j];
end;
 writeln;
writeln('f=',f:7:4) ;
end;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 07:15. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru