Задача По Паскалю!

[Sergeo_89]

1. Коэфициэнты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду(оформить в виде процедуры)
2. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины(Оформить в виде функции).


Помогите пожалуйста Решить ЗАдачУ!!!

[capta1n]

1) Метод Гаусса: дотестил - работает!:

program capta1n;
const
  n = 3;
type
 DataItem = array [1..n,1..n+1] of real;
var
  i,k,m : byte;
  a : DataItem;
  x : real;

procedure matr ( var b : DataItem; n1 : byte );
var
 j,h,m : byte;
begin

  for j:=1 to n1-1 do
   for h:=j to n1-1 do
   begin
     x:=(-1)*b[h+1,j]/b[j,j];
     for m:=j to n1+1 do b[h+1,m]:=b[h+1,m]+x*b[j,m]
   end

end;

begin

  writeln ('Vvedite koefficienti: ');
  for i:=1 to n do
  begin
    for k:=1 to n+1 do
    begin
      write ('a[',i,',',k,']= ');
      readln (a[i,k]);
    end
  end;

  matr (a,n);

  for i:=1 to n do
   begin
     for k:=1 to n+1 do write (a[i,k]:0:1,' ');
     writeln
   end;
  readln
end.

[Sergeo_89]

СПАСИБО Огромное!!!

[Sergeo_89]

А Можешь еще с одной помочь??? Но та посложней наверно будет, но у меня есть кое-какие наработки....Точнее задача практически решена, но мне ее нужно доделать немного. Сможешь помочь?

[capta1n]

это вторая которая чтоли? да давай любую сюда - я сессию закрыл - УРААААААА - теперь свободен, а опыт программирования мне нужен, причем задачка на Гаусса мне очень сама понравилась

[Sergeo_89]

Молодец Что Закрыл)) а вторую не решил да??? Реши пожалуйста вторую...Я пока тебе задачу подготовлю одну....Хорошо?)))

[capta1n]

не пойму строк чего? массива - это как-то относится к первой задаче - или надо создавать новый массив бля решения задачи?

[Sergeo_89]

Это полностью относится к первой задаче! по моему даже в одной задаче в одном файле решить как то надо....

[capta1n]

хорошо - а среднее арифметическое массива до треугольника или после него?

[Sergeo_89]

Получаеться что после....там наверно не принципиально...Но лучше сделать после....
А вот Задача, о которой я тебе говорил:
1.
---Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований провести систему к Треугольному виду(оформить в виде процедуры).
---Найти количество строк, среднее арифметическое элементов которых меньше заданной величины(Оформить в виде функции).


2.
---Описать запись с именем RoUte,Содержащую следующие поля:
-Название начального пункта
-назначение конечного пункта маршрута
-номер маршрута
---Написать прогу, выполняющую следующие действия:
-Ввод данных с клавиатуры в массив, состоящий из 8 элементов типа ROUTE с упорядочением записей по номерам маршрутов.
-Вывод на экран информации о маршрутах, начинающихся или кончающихся в пункте, название которого введено с клавиатуры, а если таких маршрутов нет - вывод на экран соответствующего сообщения.
---Запись массива в файл под заданным с клавиатуры именем.

И ее Решение на Второе:

Program Xz;
Uses Crt;
Type
TRoUte=record
NameSt:string;
NameKon:string;
NumbMar:integer;
end;
Var
RoUte:array[1..8] of TRoUte;
Ex:boolean;
Key:Char;
Zap_i:integer;

Procedure Enter_Dan;
begin
ClrScr;
Write('Enter start name mar: ');
ReadLn(RoUte[Zap_i].NameSt);
Write('Enter end name mar: ');
ReadLn(RoUte[Zap_i].NameKon);
Write('Enter number mar: ');
ReadLn(RoUte[Zap_i].NumbMar);
end;

Procedure Open_Dan;
var
i:integer;
begin
ClrScr;
for i:=1 to Zap_i do
WriteLn('Mar ',RoUte[i].NumbMar,'.Start name: ',RoUte[i].NameSt,'.End name: ',RoUte[i].NameKon);
end;

Procedure Save_Dan;
Var
SA:Text;
i:integer;
name:string;
begin
ClrScr;
Write('Enter name save file: ');
Read(name);
{$I-}
Assign(SA,name);
{$I+}
ReWrite(SA);
for i:=1 to Zap_i do
WriteLn(SA,RoUte[i].NumbMar);
WriteLn(SA,RoUte[i].NameSt);
WriteLn(SA,RoUte[i].NameKon);
end;

begin
Zap_i:=1;
Ex:=false;
Repeat
ClrScr;
WriteLn('1.Enter Dan.');
WriteLn('2.Open Dan.');
WriteLn('3.Save Dan.');
Key:=ReadKey;
case Ord(Key) of
49:Enter_Dan;
50:Open_Dan;
51:Save_Dan;
27:Exit;
end;
until Ex=true;
end.

Но Там с сортировкой надо разобраться и в первой разобраться....
Завтро Зачет последний День ППц...нинаю уже куда податься
Файлы то сохраняет, а вот открывать их не открывает...посмотри Пожалуйста!!!)