вывод на экран информации о маршрутах, начинающихся или кончающихся в пункте

[Sergeo_89]

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


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

[Vedun]

Удалено...

[Vedun]

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.

С сортировкой у меня немного тутого, если кому не трудно допишите...А так, в основном вторая задача решена...

[Sergeo_89]

СПАСИБО тебе Огромное!!!!!!))Выручил) а первую не можешь??Сложная да?((

[Vedun]

Может и нет,не знаю...Я просто с подобными математическими задачами не сталкивался (или забыл уже), так что я просто логически не знаю что там нужно делать...Сори.