Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text icon

Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text



НазваниеПрограмма на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text
Дата конвертации20.12.2012
Размер17.18 Kb.
ТипПрограмма
1. /ЛР2/Pascal/Doc2.doc
2. /ЛР2/Pascal/LABA2-GA.doc
3. /ЛР2/Документ Microsoft Word.doc
4. /ЛР2/Лабораторная2.doc
5. /ЛР2/Лабораторная2_1.doc
6. /ЛР2/Новая папка/LR2.rtf
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text
Ручной расчет методом Гаусса
А и столбец свободных членов в равны:, Определить точное решение
А и столбец свободных членов в равны:, Определить точное решение
×èñëåííûå ìåòîäû ðåøåíèÿ ñèñòåìû ëèíåéíûõ óðàâíåíèé â ïàêåòå Mathcad

Программа на языке Pascal


Program Laba2;

Uses Crt;

Const n=4;

Type Matr=array[1..10,1..
10] of real;

Var a,b,x,a1:Matr;

i,j:integer;

t,ma,mb:text;

Procedure VvodM(n,m:integer;Var t1:text;Var z:Matr);

Var i,j:integer;

Begin

For i:=1 to n do begin

For j:=1 to m do

Read(t1,z[i,j]);

end;

End;


Procedure VyvodM(c:Matr;Var t1:text;n,m:integer);

Var i,j:integer;

Begin

Writeln(t1);

For i:=1 to n do

begin

Writeln(t1);

For j:=1 to m do

Write(t1,c[i,j]:8:4);

end;

Writeln(t1);

End;


Procedure RM(c,d:Matr;n:integer;Var c1:Matr);

Var i,j:integer;

begin

For i:=1 to n do

For j:=1 to n do

c1[i,j]:=c[i,j];

For i:=1 to n do

c1[i,5]:=d[i,1];

VyvodM(c1,t,n,n+1);

end;


Procedure RMTV(n:integer; c:Matr; Var c1:Matr; Var t1:text);

Var i,k:integer;

d:real;

Begin

For k:=1 to n do

begin

For i:=k+1 to n+1 do

c[k,i]:=c[k,i]/c[k,k];

c[k,k]:=c[k,k]/c[k,k];

For i:=k+1 to n+1 do

begin

d:=c[i,k]/c[k,k];

For j:=k to n+1 do

c[i,j]:=c[i,j]-d*c[k,j];

end;

end;

Writeln(t1,'Treygol`naja Matrica');

VyvodM(c,t,n,n+1);

For i:=1 to n do

For j:=1 to n+1 do

c1[i,j]:=c[i,j];

End;


Procedure NK(c:Matr;n:integer;Var x:Matr;Var t1:text);

Var i,j:integer;s:real;

begin

Writeln(t1,'Korni');

For i:=n downto 1 do

begin

S:=0;

For j:=i+1 to n do

s:=s+c[i,j]*x[j,1];

x[i,1]:=(c[i,n+1]-s)/c[i,i];

Writeln(t1,'x[',i,']= ',x[i,1]:8:4);

end;

Writeln(t1);

End;


Begin

Assign(t,'C:\BP_7\BIN\Lab\Rez.pas');

rewrite(t);

Assign(ma,'C:\BP_7\BIN\Lab\Matr_a.pas');

reset(ma);

Assign(mb,'C:\BP_7\BIN\Lab\Matr_b.pas');

reset(mb);

VvodM(n,n,ma,a);Writeln(t,'Matrica A');VyvodM(a,t,n,n);

VvodM(n,1,mb,b);Writeln(t,'Matrica B');VyvodM(b,t,n,1);

RM(a,b,n,a1);

RMTV(n,a1,a1,t);

NK(a1,n,x,t);

close(t);close(ma); close(mb);

Readln;

END.


Файл результатов

Matrica A


15.0000 1.0000 -2.0000 7.0000

7.0000 25.0000 7.0000 7.0000

3.0000 -1.0000 18.0000 1.0000

2.0000 3.0000 4.0000 19.0000


Matrica B


1.0000

-2.0000

3.0000

-4.0000


15.0000 1.0000 -2.0000 7.0000 1.0000

7.0000 25.0000 7.0000 7.0000 -2.0000

3.0000 -1.0000 18.0000 1.0000 3.0000

2.0000 3.0000 4.0000 19.0000 -4.0000


Treygol`naja Matrica


1.0000 0.0667 -0.1333 0.4667 0.0667

0.0000 1.0000 0.3234 0.1522 -0.1005

0.0000 0.0000 1.0000 -0.0116 0.1426

0.0000 0.0000 0.0000 1.0000 -0.2446

Korni

x[4]= -0.2446

x[3]= 0.1398

x[2]= -0.1085

x[1]= 0.2067



Похожие:

Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconПрограмма на языке Pascal program qq; var a, b, max: integer; begin writeln('Введите два целых числа'); read ( a, b )
Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
1. /matr-mass1.doc
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
1. /matr-ur1.doc
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconI основы языка высокого уровня турбо pascal алфавит языка Pascal
Прописные и строчные буквы Pascal'eм не различаются. Знаки «возведение в степень» и двойная кавычка в языке отсутствуют
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconПрограмма на Pascal. Простейшая программа program name; {имя программы} begin { начало программы } end. { конец программы}
Алгоритм – это понятное, точное предписание ведущее от исходных данных к получению результата
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
1. /pascal/Занятия/Семестр 1/COMPILER.TXT
2. /pascal/Занятия/Семестр...

Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
...
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconП/п Хар-ка Функ- ций Наиме- нование функций
Отрицание: Инверсия логичес-кой var истинна, если сама var лож-на, и, наоборот, инверсия ложна, если var, истинна
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconB в формате integer, используя оператор if. Результат Х тоже целочисленный ( integer или longint ). Варианты 1) 2) 3) 4) 5) 6) 7) 8) 9) 10) 11) 12) Варианты заданий задача
Задача №1 Вычислить заданное целочисленное выражение для данных a, b в формате integer, используя оператор if. Результат Х тоже целочисленный...
Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
1. /Модули Pascal/_001_Перв_программы_М1_БЛОК1.doc
2. /Модули...

Программа на языке Pascal Program Laba2; Uses Crt; Const n=4; Type Matr=array. 10. 10] of real; Var a,b,x,a1: Matr; i,j: integer; t,ma,mb: text iconДокументы
1. /typeonegative/TYPE O NEGATIVE - Life Is Killing Me-2003.doc
2. /typeonegative/TYPE...

Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов