Написать процедуру считывания матрицы из файла

@Viper1980 · Регистрация: 06.06.2015

Author24 — интернет-сервис помощи студентам

Вот написал процедуру считывания матрицы с клавиатуры

Pascal

Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector);
 
Var
 
   i, j, r: Integer;
 
Begin
 
     r := WhereY;
 
     GotoXY(2, r);
 
     Write('A');
 
     For i := 1 to n do begin
 
         GotoXY(i * 6 + 2, r);
 
         Write(i);
 
         GotoXY(1, r + i + 1);
 
         Write(i:2);
 
     end;
 
     GotoXY((n + 1) * 6 + 2, r);
 
     Write('b');
 
     For i := 1 to n do begin
 
         For j := 1 to n do begin
 
             GotoXY(j * 6 + 2, r + i + 1);
 
             Read(a[i, j]);
 
         end;
 
         GotoXY((n + 1) * 6 + 2, r + i + 1);
 
         Read(b[i]);
 
     end;
 
End;

Нужно написать процедуру считывания матрицы из файла. Написал так

Pascal

Procedure ReadSystem;
    var
    f:file of integer;
    a:array[0..9,0..9]of integer;
    MStr,Mcol,i,j:integer;
    Begin
    assign(f,'matrix.txt');
    reset(f);
    read(f,mstr);
    read(f,mcol);
    for i:=0 to mstr-1 do
    for j:=0 to mcol-1 do
    begin
    read(f,a[i,j])
    end;
    close(f);
    end;

Пишет что ошибка 100!
Подскажите, где ошибка ((( ?

@Puporev · 06.06.2015, 16:14

Pascal

type mtr=array[1..9,1..9]of integer;
Procedure ReadSystem(var f:text;var a:mtr;var mstr,mcol:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol);
for i:=1 to mstr do
for j:=1 to mcol do
read(f,a[i,j])
close(f);
end;

@Viper1980 · 06.06.2015, 16:37 **[ТС]**

а вызвать в программе процедуру с какими параметрами??
ReadSystem(?,?,?);

@Puporev · 06.06.2015, 17:08

Pascal

var f:text;
     a:mtr;
     m,n:byte;//размеры матрицы
............................
ReadSystem(f,a,m,n);

@Viper1980 · 06.06.2015, 18:49 **[ТС]**

Pascal

Uses CRT,DOS;
 
Const
 
     maxn = 10;
 
Type
 
    Data = Real;
 
    Matrix = Array[1..maxn, 1..maxn] of Data;
 
    Vector = Array[1..maxn] of Data;
{Schitivaem vremya}
 
function fGetTime:LongInt;
 
var hr,min,sec,sec_100:word;
 
begin
gettime(hr,min,sec,sec_100);
 
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
 
 
{PROCEDURA VVODA RASHIRENNOI MATRICI SYSTEM }
 
 
Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector);
 
Var
 
   i, j, r: Integer;
 
Begin
 
     r := WhereY;
 
     GotoXY(2, r);
 
     Write('A');
 
     For i := 1 to n do begin
 
         GotoXY(i * 6 + 2, r);
 
         Write(i);
 
         GotoXY(1, r + i + 1);
 
         Write(i:2);
 
     end;
 
     GotoXY((n + 1) * 6 + 2, r);
 
     Write('b');
 
     For i := 1 to n do begin
 
         For j := 1 to n do begin
 
             GotoXY(j * 6 + 2, r + i + 1);
 
             Read(a[i, j]);
 
         end;
 
         GotoXY((n + 1) * 6 + 2, r + i + 1);
 
         Read(b[i]);
 
     end;
 
End;
 
{ Procedura vivoda rezultata }
 
Procedure WriteX(n :Integer; x: Vector);
 
Var
 
   i: Integer;
 
Begin
 
     For i := 1 to n do
 
         Writeln('x', i, ' = ', x[i]);
 
End;
 
{Funciya, realizuyshaya metod Zeidelya }
 
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
 
Var
 
   i, j: Integer;
 
   s1, s2, s, v, m: Data;
 
Begin
 
     {Isleduem Sxodimost}
 
     For i := 1 to n do begin
 
         s := 0;
 
         For j := 1 to n do
 
             If j <> i then
 
                s := s + Abs(a[i, j]);
 
         If s >= Abs(a[i, i]) then begin
 
            Seidel := false;
 
            Exit;
 
         end;
 
     end;
 
     Repeat
 
         m := 0;
 
         For i := 1 to n do begin
 
             { Vichislaem summi }
 
             s1 := 0;
 
             s2 := 0;
 
             For j := 1 to i - 1 do
 
                 s1 := s1 + a[i, j] * x[j];
 
             For j := i to n do
 
                 s2 := s2 + a[i, j] * x[j];
 
             { Vichislaem novoe priblizhenie i pogreshnost }
 
             v := x[i];
 
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
 
             If Abs(v - x[i]) > m then
 
                m := Abs(v - x[i]);
 
         end;
 
     Until m < e;
 
     Seidel := true;
 
End;
{ Gaus function }
 
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
 
Var
 
   i, j, k, l: Integer;
 
   q, m, t: Data;
 
Begin
 
     For k := 1 to n - 1 do begin
 
         { Ishem Stroku s max elementom d k-om stolbce}
 
         l := 0;
 
         m := 0;
 
         For i := k to n do
 
             If Abs(a[i, k]) > m then begin
 
                m := Abs(a[i, k]);
 
                l := i;
 
             end;
 
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
 
         If l = 0 then begin
 
            Gauss := false;
 
            Exit;
 
         end;
 
         { Menyaem mestom 1-y stroku s K-oi }
 
         If l <> k then begin
 
            For j := 1 to n do begin
 
                t := a[k, j];
 
                a[k, j] := a[l, j];
 
                a[l, j] := t;
 
            end;
 
            t := b[k];
 
            b[k] := b[l];
 
            b[l] := t;
 
         end;
 
         {Preobrazuem matrix}
 
         For i := k + 1 to n do begin
 
             q := a[i, k] / a[k, k];
 
             For j := 1 to n do
 
                 If j = k then
 
                    a[i, j] := 0
 
                 else
 
                      a[i, j] := a[i, j] - q * a[k, j];
 
                 b[i] := b[i] - q * b[k];
 
             end;
 
     end;
 
     { Vichislaem reshenie }
 
     x[n] := b[n] / a[n, n];
 
     For i := n - 1 downto 1 do begin
 
         t := 0;
 
         For j := 1 to n-i do
 
             t := t + a[i, i + j] * x[i + j];
 
         x[i] := (1 / a[i, i]) * (b[i] - t);
 
     end;
 
     Gauss := true;
 
End;
 
Var
 
    n, i: Integer;
 
    a: Matrix;
 
    b, x: Vector;
 
    ch:char;
 
    e: Data;
 
    before, after:longint;
 
label 1,2,3;
 
Begin
 
      ClrScr;
before:=fGettime;
 
{--------Vibor knopok-----------------}
writeln('Klavisha <TAB> - Metod Zeidel, lubaya drugaya klavisha - Metod Gausa');
ch:=readkey;
 
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Programma resheniya SLU po metodu Zeidel');
 
      Writeln;
 
      Writeln('VVedite poryadok matrix system max. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Vvedite tochnost vichislenii');
 
      Repeat
 
             Write('>');
 
             Read(e);
 
      Until (e > 0) and (e < 1);
 
      Writeln;
 
      Writeln('Vvedite rashirennuy matrix system');
 
      ReadSystem(n, a, b);
 
      Writeln;
 
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
 
      For i := 1 to n do
 
          x[i] := 0;
 
      If Seidel(n, a, b, x, e) then begin
 
         Writeln('Rezultat vichislenii po metodu Zeidelya');
 
         WriteX(n, x);
 
       readln;
       end
 
      else
 
          Writeln('Metod Zeidelya ne sxodica dlya dannoi system');
    after:=fgetTime;
writeln('Deistvie vipolnyalos: ',(after-before)/100:0:2,'sec');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
 
2:
 
 Writeln('Programma resheniya SLU po metodu Gauss');
 
      Writeln;
 
      Writeln('VVedite poryadok matrix system max. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Vvedite rashirennuy matrix system');
 
      ReadSystem(n, a, b);
 
      Writeln;
 
      If Gauss(n, a, b, x) then begin
 
         Writeln('Rezultat vichislenii po metodu Gaussa');
 
         WriteX(n, x);
      after:=fgetTime;
writeln('Deistvie vipolnyalos: ',(after-before)/100:0:2,'sec');
         readln;
      end
 
      else
 
          Writeln('Dannuy systemu nevozmozhno reshit metodom Gaussa');
      Writeln;
3:    readln;
 
End.

Добавлено через 7 минут
нужно переработать процедуру Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector); для ввода данных из файла в Файле есть 2 матрицы:
1) 1 1 1 1 1
А 1 1 1 1 В 1
1 1 1 1 1

@Puporev · 06.06.2015, 18:52

Сообщение от Viper1980

Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector);

И где здесь чтение из файла? Я Вам написал как нужно, больше прошу не беспокоить.

@Viper1980 · 06.06.2015, 18:56 **[ТС]**

одна матрица 4*4 вторая 1*4

Добавлено через 3 минуты

Pascal

Uses CRT,DOS;
 
Const
 
     maxn = 10;
 
Type
    mtr=array[1..9,1..9]of real;
    
    Data = Real;
 
    //Matrix = Array[1..maxn, 1..maxn] of Data;
 
//    Vector = Array[1..maxn] of Data;
 
    {Schitivaem vremya}
 
var f:text;
     a:mtr;
     m,n:byte;
     
function fGetTime:LongInt;
 
var hr,min,sec,sec_100:word;
 
begin
gettime(hr,min,sec,sec_100);
 
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
 
 
{Процедура ввода расширенной матрицы}
 
 
 
Procedure ReadSystem(var f:text;var a:mtr;var mstr,mcol:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol);
for i:=1 to mstr do
for j:=1 to mcol do
read(f,a[i,j]);
close(f);
end;
 
{ Процедура вывода результата }
 
Procedure WriteX(n :Integer; x: Vector);
 
Var
 
   i: Integer;
 
Begin
 
     For i := 1 to n do
 
         Writeln('x', i, ' = ', x[i]);
 
End;
 
{Метод зейделя }
 
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
 
Var
 
   i, j: Integer;
 
   s1, s2, s, v, m: Data;
 
   before, after:longint;
 
   Begin
   before:=fGettime;
     {Isleduem Sxodimost}
 
     For i := 1 to n do begin
 
         s := 0;
 
         For j := 1 to n do
 
             If j <> i then
 
                s := s + Abs(a[i, j]);
 
         If s >= Abs(a[i, i]) then begin
 
            Seidel := false;
 
            Exit;
 
         end;
 
     end;
 
     Repeat
 
         m := 0;
 
         For i := 1 to n do begin
 
             { Vichislaem summi }
 
             s1 := 0;
 
             s2 := 0;
 
             For j := 1 to i - 1 do
 
                 s1 := s1 + a[i, j] * x[j];
 
             For j := i to n do
 
                 s2 := s2 + a[i, j] * x[j];
 
             { Vichislaem novoe priblizhenie i pogreshnost }
 
             v := x[i];
 
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
 
             If Abs(v - x[i]) > m then
 
                m := Abs(v - x[i]);
 
         end;
 
     Until m < e;
 
     Seidel := true;
     after:=fgetTime;
End;
{ Gaus function }
 
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
 
Var
 
   i, j, k, l: Integer;
 
   q, m, t: Data;
   before, after:longint;
 
Begin
 before:=fGettime;
     For k := 1 to n - 1 do begin
 
         { Ishem Stroku s max elementom d k-om stolbce}
 
         l := 0;
 
         m := 0;
 
         For i := k to n do
 
             If Abs(a[i, k]) > m then begin
 
                m := Abs(a[i, k]);
 
                l := i;
 
             end;
 
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
 
         If l = 0 then begin
 
            Gauss := false;
 
            Exit;
 
         end;
 
         { Menyaem mestom 1-y stroku s K-oi }
 
         If l <> k then begin
 
            For j := 1 to n do begin
 
                t := a[k, j];
 
                a[k, j] := a[l, j];
 
                a[l, j] := t;
 
            end;
 
            t := b[k];
 
            b[k] := b[l];
 
            b[l] := t;
 
         end;
 
         {Preobrazuem matrix}
 
         For i := k + 1 to n do begin
 
             q := a[i, k] / a[k, k];
 
             For j := 1 to n do
 
                 If j = k then
 
                    a[i, j] := 0
 
                 else
 
                      a[i, j] := a[i, j] - q * a[k, j];
 
                 b[i] := b[i] - q * b[k];
 
             end;
 
     end;
 
     { Vichislaem reshenie }
 
     x[n] := b[n] / a[n, n];
 
     For i := n - 1 downto 1 do begin
 
         t := 0;
 
         For j := 1 to n-i do
 
             t := t + a[i, i + j] * x[i + j];
 
         x[i] := (1 / a[i, i]) * (b[i] - t);
 
     end;
 
     Gauss := true;
      after:=fgetTime;
End;
 
Var
 
    n, i: Integer;
 
    a: Matrix;
 
    b, x: Vector;
 
    ch:char;
 
    e: Data;
 
    before, after:longint;
 
label 1,2,3;
 
Begin
 
      ClrScr;
 
 
{--------Vibor knopok-----------------}
writeln('Клавиша <TAB> - Метод Зейделя, Любая другая клавиша - Метод Гауса');
ch:=readkey;
 
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Программа решает СЛУ методом Зейделя');
 
      Writeln;
 
      Writeln('Введите порядок матрицы системы максимум. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Введите точность вычислений');
 
      Repeat
 
             Write('>');
 
             Read(e);
 
      Until (e > 0) and (e < 1);
 
      Writeln;
 
      Writeln('Введите расширенную матрицу системы');
 
      ReadSystem;
 
      Writeln;
 
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
 
      For i := 1 to n do
 
          x[i] := 0;
 
      If Seidel(n, a, b, x, e) then begin
 
         Writeln('Результат вычислений по методу Зейделя');
 
         WriteX(n, x);
 
       readln;
       end
 
      else
 
          Writeln('Метод Зейделя не сходится для данной системы');
    after:=fgetTime;
writeln('Функция работалаs: ',(after-before)/1000:0:2,'милисекунд');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
 
2:
 
 Writeln('Решаем СЛУ методом Гауса');
 
      Writeln;
 
      Writeln('Введите порядок матрицы системы максимум. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Введите расширенную матрицу системы');
 
      ReadSystem;
 
      Writeln;
 
      If Gauss(n, a, b, x) then begin
 
         Writeln('Результат вычислений методом Гауса');
 
         WriteX(n, x);
 
writeln('Функция работала: ',(after-before)/1000:0:2,'sec');
         readln;
      end
 
      else
 
          Writeln('Данную систему невозможно решить методом Гауса');
      Writeln;
3:    readln;
 
End.

Вот попробовала прикрутить процедуру, но ничего не получилось (

@Puporev · 06.06.2015, 19:06

Сообщение от Viper1980

одна матрица 4*4 вторая 1*4

А в примере вторая 4*1

Добавлено через 4 минуты

Pascal

Procedure ReadSystem(var f:text;var a,b:mtr;var mstr,mcol1,mcol2:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol1,mcol2);
for i:=1 to mstr do
for j:=1 to mcol1 do
read(f,a[i,j]);
for i:=1 to mstr do
for j:=1 to mcol2 do
read(f,b[i,j]);
close(f);
end;

файл
4 4 1
1 1 1 1
1 1 1 1
1 1 1 1
1
1
1
1

Добавлено через 2 минуты

Не по теме:

Сообщение от Viper1980

Вот написал процедуру

Сообщение от Viper1980

Вот попробовала прикрутить процедуру

Транссексуал что-ли?

@Viper1980 · 06.06.2015, 19:18 **[ТС]**

почему трансексуал?? Девушка я

Добавлено через 7 минут
а как теперь будут выглядеть процедуры Seidel и Gauss, с учётом Ваших изменений. Я прошу прощения за назойливость с паскалем на "ВЫ" ((

@Puporev · 06.06.2015, 19:23

Сообщение от Viper1980

а как теперь будут выглядеть процедуры Seidel и Gauss

Да так же, они никак не зависят от способа ввода.

Сообщение от Viper1980

Девушка я

Ну так и не пишите

Сообщение от Viper1980

Вот написал процедуру

@Viper1980 · 06.06.2015, 19:28 **[ТС]**

вот пример матриц:
Добавлено через 1 минуту
----A-------B
1_2_3_4___1
1_2_3_4___2
1_2_3_4___3
1_2_3_4___4

Добавлено через 1 минуту
Прошу прощения, 1 буковку забыла!

@Puporev · 06.06.2015, 19:32

Сообщение от Viper1980

вот пример матриц:

Ну запишите матрицы в файл как в моем примере, так же не удобно.

@Viper1980 · 06.06.2015, 20:03 **[ТС]**

Спасибо Вам!! Сейчас попробую

Добавлено через 22 минуты
вызываю процедуру:
ReadSystem (f,a,b,mstr,mcol1,mcol2);
****
***
***
Seidel(n,a,b,x,e); Выдаёт вот на этой строчке ошибку - Error 26:Type Mismatch.

@Puporev · 06.06.2015, 20:10

Скопируйте сюда весь код программы и входной файл.

@Viper1980 · 06.06.2015, 20:21 **[ТС]**

Pascal

Uses CRT,DOS;
 
Const
 
     maxn = 10;
 
Type
    mtr=array[1..9,1..9]of real;
 
    Data = Real;
 
    Matrix = Array[1..maxn, 1..maxn] of Data;
 
    Vector = Array[1..maxn] of Data;
 
    {Schitivaem vremya}
 
{var
     a,bb:mtr;
     m,n:byte;}
 
function fGetTime:LongInt;
 
var hr,min,sec,sec_100:word;
 
begin
gettime(hr,min,sec,sec_100);
 
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
 
 
{Процедура ввода расширенной матрицы}
 
 
 
Procedure ReadSystem(var f:text;var a,bb:mtr;var mstr,mcol1,mcol2:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol1,mcol2);
for i:=1 to mstr do
for j:=1 to mcol1 do
read(f,a[i,j]);
for i:=1 to mstr do
for j:=1 to mcol2 do
read(f,bb[i,j]);
close(f);
end;
 
{ Процедура вывода результата }
 
Procedure WriteX(n :Integer; x: Vector);
 
Var
 
   i: Integer;
 
Begin
 
     For i := 1 to n do
 
         Writeln('x', i, ' = ', x[i]);
 
End;
 
{Метод зейделя }
 
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
 
Var
 
   i, j: Integer;
 
   s1, s2, s, v, m: Data;
 
   before, after:longint;
 
   Begin
   before:=fGettime;
     {Isleduem Sxodimost}
 
     For i := 1 to n do begin
 
         s := 0;
 
         For j := 1 to n do
 
             If j <> i then
 
                s := s + Abs(a[i, j]);
 
         If s >= Abs(a[i, i]) then begin
 
            Seidel := false;
 
            Exit;
 
         end;
 
     end;
 
     Repeat
 
         m := 0;
 
         For i := 1 to n do begin
 
             { Vichislaem summi }
 
             s1 := 0;
 
             s2 := 0;
 
             For j := 1 to i - 1 do
 
                 s1 := s1 + a[i, j] * x[j];
 
             For j := i to n do
 
                 s2 := s2 + a[i, j] * x[j];
 
             { Vichislaem novoe priblizhenie i pogreshnost }
 
             v := x[i];
 
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
 
             If Abs(v - x[i]) > m then
 
                m := Abs(v - x[i]);
 
         end;
 
     Until m < e;
 
     Seidel := true;
     after:=fgetTime;
End;
{ Gaus function }
 
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
 
Var
 
   i, j, k, l: Integer;
 
   q, m, t: Data;
   before, after:longint;
 
Begin
 before:=fGettime;
     For k := 1 to n - 1 do begin
 
         { Ishem Stroku s max elementom d k-om stolbce}
 
         l := 0;
 
         m := 0;
 
         For i := k to n do
 
             If Abs(a[i, k]) > m then begin
 
                m := Abs(a[i, k]);
 
                l := i;
 
             end;
 
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
 
         If l = 0 then begin
 
            Gauss := false;
 
            Exit;
 
         end;
 
         { Menyaem mestom 1-y stroku s K-oi }
 
         If l <> k then begin
 
            For j := 1 to n do begin
 
                t := a[k, j];
 
                a[k, j] := a[l, j];
 
                a[l, j] := t;
 
            end;
 
            t := b[k];
 
            b[k] := b[l];
 
            b[l] := t;
 
         end;
 
         {Preobrazuem matrix}
 
         For i := k + 1 to n do begin
 
             q := a[i, k] / a[k, k];
 
             For j := 1 to n do
 
                 If j = k then
 
                    a[i, j] := 0
 
                 else
 
                      a[i, j] := a[i, j] - q * a[k, j];
 
                 b[i] := b[i] - q * b[k];
 
             end;
 
     end;
 
     { Vichislaem reshenie }
 
     x[n] := b[n] / a[n, n];
 
     For i := n - 1 downto 1 do begin
 
         t := 0;
 
         For j := 1 to n-i do
 
             t := t + a[i, i + j] * x[i + j];
 
         x[i] := (1 / a[i, i]) * (b[i] - t);
 
     end;
 
     Gauss := true;
      after:=fgetTime;
End;
 
Var
 
    n,m,mstr,mcol1,mcol2, i: Integer;
 
    a,bb: mtr;
 
    b, x: Vector;
 
    ch:char;
 
    e: Data;
 
    f:text;
 
    before, after:longint;
 
label 1,2,3;
 
Begin
 
      ClrScr;
 
 
{--------Vibor knopok-----------------}
writeln('Клавиша <TAB> - Метод Зейделя, Любая другая клавиша - Метод Гауса');
ch:=readkey;
 
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Программа решает СЛУ методом Зейделя');
 
      Writeln;
 
      Writeln('Введите порядок матрицы системы максимум. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Введите точность вычислений');
 
      Repeat
 
             Write('>');
 
             Read(e);
 
      Until (e > 0) and (e < 1);
 
      Writeln;
 
      Writeln('Введите расширенную матрицу системы');
 
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
 
      Writeln;
 
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
 
      For i := 1 to n do
 
          x[i] := 0;
 
      If Seidel(n, a, b, x, e) then begin
 
         Writeln('Результат вычислений по методу Зейделя');
 
         WriteX(n, x);
 
       readln;
       end
 
      else
 
          Writeln('Метод Зейделя не сходится для данной системы');
    after:=fgetTime;
writeln('Функция работалаs: ',(after-before)/1000:0:2,'милисекунд');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
 
2:
 
 Writeln('Решаем СЛУ методом Гауса');
 
      Writeln;
 
      Writeln('Введите порядок матрицы системы максимум. (10)');
 
      Repeat
 
             Write('>');
 
             Read(n);
 
      Until (n > 0) and (n <= maxn);
 
      Writeln;
 
      Writeln('Введите расширенную матрицу системы');
 
      ReadSystem;
 
      Writeln;
 
      If Gauss(n, a, b, x) then begin
 
         Writeln('Результат вычислений методом Гауса');
 
         WriteX(n, x);
 
writeln('Функция работала: ',(after-before)/1000:0:2,'sec');
         readln;
      end
 
      else
 
          Writeln('Данную систему невозможно решить методом Гауса');
      Writeln;
3:    readln;
 
End.

Матрица:

4 4 1
1.9 0.3 -0.4 0.9
0.6 -2.7 1.3 -0.6
0.8 -2.2 -3.8 0.5
0.3 1.4 0.6 -2.6
1.3
-0.4
0.6
0.9

@Puporev · 06.06.2015, 20:55

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

@Viper1980 · 06.06.2015, 21:12 **[ТС]**

Pascal

Uses CRT,DOS;
Const
     maxn = 10;
Type
    mtr=array[1..9,1..9]of real;
    Data = Real;
    Matrix = Array[1..maxn, 1..maxn] of Data;
    Vector = Array[1..maxn] of Data;
    {Schitivaem vremya}
{var
     a,bb:mtr;
     m,n:byte;}
function fGetTime:LongInt;
var hr,min,sec,sec_100:word;
begin
gettime(hr,min,sec,sec_100);
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
{Процедура ввода расширенной матрицы}
Procedure ReadSystem(var f:text;var a,bb:mtr;var mstr,mcol1,mcol2:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol1,mcol2);
for i:=1 to mstr do
for j:=1 to mcol1 do
read(f,a[i,j]);
for i:=1 to mstr do
for j:=1 to mcol2 do
read(f,bb[i,j]);
close(f);
end;
{ Процедура вывода результата }
Procedure WriteX(n :Integer; x: Vector);
Var
   i: Integer;
Begin
     For i := 1 to n do
         Writeln('x', i, ' = ', x[i]);
End;
{Метод зейделя }
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
Var
   i, j: Integer;
   s1, s2, s, v, m: Data;
   before, after:longint;
   Begin
   before:=fGettime;
     {Isleduem Sxodimost}
     For i := 1 to n do begin
         s := 0;
         For j := 1 to n do
             If j <> i then
                s := s + Abs(a[i, j]);
         If s >= Abs(a[i, i]) then begin
            Seidel := false;
            Exit;
         end;
     end;
     Repeat
         m := 0;
         For i := 1 to n do begin
             { Vichislaem summi }
             s1 := 0;
             s2 := 0;
             For j := 1 to i - 1 do
                 s1 := s1 + a[i, j] * x[j];
             For j := i to n do
                 s2 := s2 + a[i, j] * x[j];
             { Vichislaem novoe priblizhenie i pogreshnost }
             v := x[i];
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
             If Abs(v - x[i]) > m then
                m := Abs(v - x[i]);
         end;
     Until m < e;
     Seidel := true;
     after:=fgetTime;
End;
{ Gaus function }
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
Var
   i, j, k, l: Integer;
   q, m, t: Data;
   before, after:longint;
Begin
 before:=fGettime;
     For k := 1 to n - 1 do begin
         { Ishem Stroku s max elementom d k-om stolbce}
         l := 0;
         m := 0;
         For i := k to n do
             If Abs(a[i, k]) > m then begin
                m := Abs(a[i, k]);
                l := i;
             end;
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
         If l = 0 then begin
            Gauss := false;
            Exit;
         end;
         { Menyaem mestom 1-y stroku s K-oi }
         If l <> k then begin
            For j := 1 to n do begin
                t := a[k, j];
                a[k, j] := a[l, j];
                a[l, j] := t;
            end;
            t := b[k];
            b[k] := b[l];
            b[l] := t;
         end;
         {Preobrazuem matrix}
         For i := k + 1 to n do begin
             q := a[i, k] / a[k, k];
             For j := 1 to n do
                 If j = k then
                    a[i, j] := 0
                 else
                     a[i, j] := a[i, j] - q * a[k, j];
                 b[i] := b[i] - q * b[k];
             end;
     end;
     { Vichislaem reshenie }
     x[n] := b[n] / a[n, n];
     For i := n - 1 downto 1 do begin
         t := 0;
         For j := 1 to n-i do
             t := t + a[i, i + j] * x[i + j];
         x[i] := (1 / a[i, i]) * (b[i] - t);
     end;
     Gauss := true;
      after:=fgetTime;
End;
Var
    n,m,mstr,mcol1,mcol2, i: Integer;
    a,bb: mtr;
    b, x: Vector;
    ch:char;
    e: Data;
    f:text;
    before, after:longint;
label 1,2,3;
Begin
      ClrScr;
{--------Vibor knopok-----------------}
writeln('Клавиша <TAB> - Метод Зейделя, Любая другая клавиша - Метод Гауса');
ch:=readkey;
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Программа решает СЛУ методом Зейделя');
      Writeln;
      Writeln('Введите порядок матрицы системы максимум. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('Введите точность вычислений');
      Repeat
             Write('>');
             Read(e);
      Until (e > 0) and (e < 1);
      Writeln;
      Writeln('Введите расширенную матрицу системы');
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
      Writeln;
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
      For i := 1 to n do
          x[i] := 0;
      If Seidel(n, a, b, x, e) then begin
         Writeln('Результат вычислений по методу Зейделя');
         WriteX(n, x);
       readln;
       end
      else
          Writeln('Метод Зейделя не сходится для данной системы');
    after:=fgetTime;
writeln('Функция работалаs: ',(after-before)/1000:0:2,'милисекунд');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
2:
 Writeln('Решаем СЛУ методом Гауса');
      Writeln;
      Writeln('Введите порядок матрицы системы максимум. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('Введите расширенную матрицу системы');
      ReadSystem;
      Writeln;
      If Gauss(n, a, b, x) then begin
         Writeln('Результат вычислений методом Гауса');
         WriteX(n, x);
writeln('Функция работала: ',(after-before)/1000:0:2,'sec');
         readln;
      end
      else
          Writeln('Данную систему невозможно решить методом Гауса');
      Writeln;
3:    readln;
End.

Вот без единого пробела. Ну не отказывайте, помогите пожалуйста ((

@Puporev · 06.06.2015, 21:40

Синтаксические ошибки исправил, но нужно разбираться с лишними переменными и логикой программы, но я пас.

Pascal

Uses CRT,DOS;
Const
     maxn = 10;
Type
    Data = Real;
    Matrix = Array[1..maxn, 1..maxn] of Data;
    Vector = Array[1..maxn] of Data;
    {Schitivaem vremya}
{var
     a,bb:mtr;
     m,n:byte;}
function fGetTime:LongInt;
var hr,min,sec,sec_100:word;
begin
gettime(hr,min,sec,sec_100);
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
{Процедура ввода расширенной матрицы}
Procedure ReadSystem(var f:text;var a,bb:Matrix;var mstr,mcol1,mcol2:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol1,mcol2);
for i:=1 to mstr do
for j:=1 to mcol1 do
read(f,a[i,j]);
for i:=1 to mstr do
for j:=1 to mcol2 do
read(f,bb[i,j]);
close(f);
end;
{ Процедура вывода результата }
Procedure WriteX(n :Integer; x: Vector);
Var
   i: Integer;
Begin
     For i := 1 to n do
         Writeln('x', i, ' = ', x[i]);
End;
{Метод зейделя }
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
Var
   i, j: Integer;
   s1, s2, s, v, m: Data;
   before, after:longint;
   Begin
   before:=fGettime;
     {Isleduem Sxodimost}
     For i := 1 to n do begin
         s := 0;
         For j := 1 to n do
             If ji then
                s := s + Abs(a[i, j]);
         If s >= Abs(a[i, i]) then begin
            Seidel := false;
            Exit;
         end;
     end;
     Repeat
         m := 0;
         For i := 1 to n do begin
             { Vichislaem summi }
             s1 := 0;
             s2 := 0;
             For j := 1 to i - 1 do
                 s1 := s1 + a[i, j] * x[j];
             For j := i to n do
                 s2 := s2 + a[i, j] * x[j];
             { Vichislaem novoe priblizhenie i pogreshnost }
             v := x[i];
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
             If Abs(v - x[i]) > m then
                m := Abs(v - x[i]);
         end;
     Until m < e;
     Seidel := true;
     after:=fgetTime;
End;
{ Gaus function }
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
Var
   i, j, k, l: Integer;
   q, m, t: Data;
   before, after:longint;
Begin
 before:=fGettime;
     For k := 1 to n - 1 do begin
         { Ishem Stroku s max elementom d k-om stolbce}
         l := 0;
         m := 0;
         For i := k to n do
             If Abs(a[i, k]) > m then begin
                m := Abs(a[i, k]);
                l := i;
             end;
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
         If l = 0 then begin
            Gauss := false;
            Exit;
         end;
         { Menyaem mestom 1-y stroku s K-oi }
         If lk then begin
            For j := 1 to n do begin
                t := a[k, j];
                a[k, j] := a[l, j];
                a[l, j] := t;
            end;
            t := b[k];
            b[k] := b[l];
            b[l] := t;
         end;
         {Preobrazuem matrix}
         For i := k + 1 to n do begin
             q := a[i, k] / a[k, k];
             For j := 1 to n do
                 If j = k then
                    a[i, j] := 0
                 else
                     a[i, j] := a[i, j] - q * a[k, j];
                 b[i] := b[i] - q * b[k];
             end;
     end;
     { Vichislaem reshenie }
     x[n] := b[n] / a[n, n];
     For i := n - 1 downto 1 do begin
         t := 0;
         For j := 1 to n-i do
             t := t + a[i, i + j] * x[i + j];
         x[i] := (1 / a[i, i]) * (b[i] - t);
     end;
     Gauss := true;
      after:=fgetTime;
End;
Var
    n,m,mstr,mcol1,mcol2, i: Integer;
    a,bb: Matrix;
    b, x: Vector;
    ch:char;
    e: Data;
    f:text;
    before, after:longint;
label 1,2,3;
Begin
      ClrScr;
{--------Vibor knopok-----------------}
writeln('Клавиша  - Метод Зейделя, Любая другая клавиша - Метод Гауса');
ch:=readkey;
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Программа решает СЛУ методом Зейделя');
      Writeln;
      Writeln('Введите порядок матрицы системы максимум. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('Введите точность вычислений');
      Repeat
             Write('>');
             Read(e);
      Until (e > 0) and (e < 1);
      Writeln;
      Writeln('Введите расширенную матрицу системы');
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
      Writeln;
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
      For i := 1 to n do
          x[i] := 0;
      If Seidel(n, a, b, x, e) then begin
         Writeln('Результат вычислений по методу Зейделя');
         WriteX(n, x);
       readln;
       end
      else
          Writeln('Метод Зейделя не сходится для данной системы');
    after:=fgetTime;
writeln('Функция работалаs: ',(after-before)/1000:0:2,'милисекунд');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
2:
 Writeln('Решаем СЛУ методом Гауса');
      Writeln;
      Writeln('Введите порядок матрицы системы максимум. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('Введите расширенную матрицу системы');
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
      Writeln;
      If Gauss(n, a, b, x) then begin
         Writeln('Результат вычислений методом Гауса');
         WriteX(n, x);
writeln('Функция работала: ',(after-before)/1000:0:2,'sec');
         readln;
      end
      else
          Writeln('Данную систему невозможно решить методом Гауса');
      Writeln;
3:    readln;
End.

Добавлено через 6 минут
Это у меня перекодировшик начал врать, некоторые символы пропускает.
Нужно в строке 53

Pascal

1	If j<>i then

в строке 103

Pascal

1	If l<>k then begin

@Viper1980 · 06.06.2015, 21:44 **[ТС]**

СПАСИБО )))

@Puporev · 06.06.2015, 21:48

Может еще что исковеркал перекодировщик, поэтому вот код в оригинале

Pascal

Uses CRT,DOS;
Const
     maxn = 10;
Type
    Data = Real;
    Matrix = Array[1..maxn, 1..maxn] of Data;
    Vector = Array[1..maxn] of Data;
    {Schitivaem vremya}
{var
     a,bb:mtr;
     m,n:byte;}
function fGetTime:LongInt;
var hr,min,sec,sec_100:word;
begin
gettime(hr,min,sec,sec_100);
fgetTime:=longint(hr)*360000+longint(min)*6000+sec*100+sec_100;
end;
{Џа®жҐ¤га* ўў®¤* а*биЁаҐ**®© ¬*ваЁжл}
Procedure ReadSystem(var f:text;var a,bb:Matrix;var mstr,mcol1,mcol2:integer);
var i,j:integer;
begin
assign(f,'matrix.txt');
reset(f);
read(f,mstr,mcol1,mcol2);
for i:=1 to mstr do
for j:=1 to mcol1 do
read(f,a[i,j]);
for i:=1 to mstr do
for j:=1 to mcol2 do
read(f,bb[i,j]);
close(f);
end;
{ Џа®жҐ¤га* ўлў®¤* аҐ§г«мв*в* }
Procedure WriteX(n :Integer; x: Vector);
Var
   i: Integer;
Begin
     For i := 1 to n do
         Writeln('x', i, ' = ', x[i]);
End;
{ЊҐв®¤ §Ґ©¤Ґ«п }
Function Seidel(n: Integer; a: Matrix; b: Vector; var x: Vector; e: Data) :Boolean;
Var
   i, j: Integer;
   s1, s2, s, v, m: Data;
   before, after:longint;
   Begin
   before:=fGettime;
     {Isleduem Sxodimost}
     For i := 1 to n do begin
         s := 0;
         For j := 1 to n do
             If j<>i then
                s := s + Abs(a[i, j]);
         If s >= Abs(a[i, i]) then begin
            Seidel := false;
            Exit;
         end;
     end;
     Repeat
         m := 0;
         For i := 1 to n do begin
             { Vichislaem summi }
             s1 := 0;
             s2 := 0;
             For j := 1 to i - 1 do
                 s1 := s1 + a[i, j] * x[j];
             For j := i to n do
                 s2 := s2 + a[i, j] * x[j];
             { Vichislaem novoe priblizhenie i pogreshnost }
             v := x[i];
             x[i] := x[i] - (1 / a[i, i]) * (s1 + s2 - b[i]);
             If Abs(v - x[i]) > m then
                m := Abs(v - x[i]);
         end;
     Until m < e;
     Seidel := true;
     after:=fgetTime;
End;
{ Gaus function }
Function Gauss(n: Integer; a: Matrix; b: Vector; var x:Vector): Boolean;
Var
   i, j, k, l: Integer;
   q, m, t: Data;
   before, after:longint;
Begin
 before:=fGettime;
     For k := 1 to n - 1 do begin
         { Ishem Stroku s max elementom d k-om stolbce}
         l := 0;
         m := 0;
         For i := k to n do
             If Abs(a[i, k]) > m then begin
                m := Abs(a[i, k]);
                l := i;
             end;
         { if u vsex stolbcov ot K do N znacheniya v k-om stolbce 0 then sys ne imeet odoznach reshen }
         If l = 0 then begin
            Gauss := false;
            Exit;
         end;
         { Menyaem mestom 1-y stroku s K-oi }
         If l<>k then begin
            For j := 1 to n do begin
                t := a[k, j];
                a[k, j] := a[l, j];
                a[l, j] := t;
            end;
            t := b[k];
            b[k] := b[l];
            b[l] := t;
         end;
         {Preobrazuem matrix}
         For i := k + 1 to n do begin
             q := a[i, k] / a[k, k];
             For j := 1 to n do
                 If j = k then
                    a[i, j] := 0
                 else
                     a[i, j] := a[i, j] - q * a[k, j];
                 b[i] := b[i] - q * b[k];
             end;
     end;
     { Vichislaem reshenie }
     x[n] := b[n] / a[n, n];
     For i := n - 1 downto 1 do begin
         t := 0;
         For j := 1 to n-i do
             t := t + a[i, i + j] * x[i + j];
         x[i] := (1 / a[i, i]) * (b[i] - t);
     end;
     Gauss := true;
      after:=fgetTime;
End;
Var
    n,m,mstr,mcol1,mcol2, i: Integer;
    a,bb: Matrix;
    b, x: Vector;
    ch:char;
    e: Data;
    f:text;
    before, after:longint;
label 1,2,3;
Begin
      ClrScr;
{--------Vibor knopok-----------------}
writeln('Љ«*ўЁи*  - ЊҐв®¤ ‡Ґ©¤Ґ«п, ‹оЎ*п ¤агЈ*п Є«*ўЁи* - ЊҐв®¤ ѓ*гб*');
ch:=readkey;
if ch=#9 then  goto 1 else
                 goto 2;
{----------Vivod Zaidel--------------------------}
1:
    Writeln('Џа®Ја*¬¬* аҐи*Ґв ‘‹“ ¬Ґв®¤®¬ ‡Ґ©¤Ґ«п');
      Writeln;
      Writeln('‚ўҐ¤ЁвҐ Ї®ап¤®Є ¬*ваЁжл бЁбвҐ¬л ¬*ЄбЁ¬г¬. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('‚ўҐ¤ЁвҐ в®з*®бвм ўлзЁб«Ґ*Ё©');
      Repeat
             Write('>');
             Read(e);
      Until (e > 0) and (e < 1);
      Writeln;
      Writeln('‚ўҐ¤ЁвҐ а*биЁаҐ**го ¬*ваЁжг бЁбвҐ¬л');
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
      Writeln;
      { Predpolagaem nachalnoe priblizhenie ravnim 0}
      For i := 1 to n do
          x[i] := 0;
      If Seidel(n, a, b, x, e) then begin
         Writeln('ђҐ§г«мв*в ўлзЁб«Ґ*Ё© Ї® ¬Ґв®¤г ‡Ґ©¤Ґ«п');
         WriteX(n, x);
       readln;
       end
      else
          Writeln('ЊҐв®¤ ‡Ґ©¤Ґ«п *Ґ бе®¤Ёвбп ¤«п ¤***®© бЁбвҐ¬л');
    after:=fgetTime;
writeln('”г*ЄжЁп а*Ў®в*«*s: ',(after-before)/1000:0:2,'¬Ё«ЁбҐЄг*¤');
goto 3;
{----------------------Vivod GAUS---------------------}
Writeln;
2:
 Writeln('ђҐи*Ґ¬ ‘‹“ ¬Ґв®¤®¬ ѓ*гб*');
      Writeln;
      Writeln('‚ўҐ¤ЁвҐ Ї®ап¤®Є ¬*ваЁжл бЁбвҐ¬л ¬*ЄбЁ¬г¬. (10)');
      Repeat
             Write('>');
             Read(n);
      Until (n > 0) and (n <= maxn);
      Writeln;
      Writeln('‚ўҐ¤ЁвҐ а*биЁаҐ**го ¬*ваЁжг бЁбвҐ¬л');
      ReadSystem(f,a,bb,mstr,mcol1,mcol2);
      Writeln;
      If Gauss(n, a, b, x) then begin
         Writeln('ђҐ§г«мв*в ўлзЁб«Ґ*Ё© ¬Ґв®¤®¬ ѓ*гб*');
         WriteX(n, x);
writeln('”г*ЄжЁп а*Ў®в*«*: ',(after-before)/1000:0:2,'sec');
         readln;
      end
      else
          Writeln('„***го бЁбвҐ¬г *Ґў®§¬®¦*® аҐиЁвм ¬Ґв®¤®¬ ѓ*гб*');
      Writeln;
3:    readln;
End.

@Viper1980 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 48
	06.06.2015, 19:28 [ТС]	11
	вот пример матриц: Добавлено через 1 минуту ----A-------B 1_2_3_4___1 1_2_3_4___2 1_2_3_4___3 1_2_3_4___4 Добавлено через 1 минуту Прошу прощения, 1 буковку забыла! 0

@Viper1980 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 48
	06.06.2015, 20:03 [ТС]	13
	Спасибо Вам!! Сейчас попробую Добавлено через 22 минуты вызываю процедуру: ReadSystem (f,a,b,mstr,mcol1,mcol2); ** * *** Seidel(n,a,b,x,e); Выдаёт вот на этой строчке ошибку - Error 26:Type Mismatch. 0

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

@Viper1980 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 48
	06.06.2015, 16:37 [ТС]	3
	а вызвать в программе процедуру с какими параметрами?? ReadSystem(?,?,?); 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 18:52	6
	Сообщение от Viper1980 Procedure ReadSystem(n: Integer; var a: Matrix; var b: Vector); И где здесь чтение из файла? Я Вам написал как нужно, больше прошу не беспокоить. 0

@Viper1980 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 48
	06.06.2015, 19:18 [ТС]	9
	почему трансексуал?? Девушка я Добавлено через 7 минут а как теперь будут выглядеть процедуры Seidel и Gauss, с учётом Ваших изменений. Я прошу прощения за назойливость с паскалем на "ВЫ" (( 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 19:23	10
	Сообщение от Viper1980 а как теперь будут выглядеть процедуры Seidel и Gauss Да так же, они никак не зависят от способа ввода. Сообщение от Viper1980 Девушка я Ну так и не пишите Сообщение от Viper1980 Вот написал процедуру 1

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 19:32	12
	Сообщение от Viper1980 вот пример матриц: Ну запишите матрицы в файл как в моем примере, так же не удобно. 1

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 20:10	14
	Скопируйте сюда весь код программы и входной файл. 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	06.06.2015, 20:55	16
	Вы меня извините но программа длинная, откуда и как вы копируете код что он через строку и при копировании некоторые символы не копируют, возникает куча ошибок, короче я пас. 0

@Viper1980 0 / 0 / 0 Регистрация: 06.06.2015 Сообщений: 48
	06.06.2015, 21:44 [ТС]	19
	СПАСИБО ))) 0

Написать процедуру считывания матрицы из файла

Решение

Решение