Курсовая работа: Разработка программы решения системы линейных уравнений

for i: =1 to n do write (' ', s [i]: 5: 2);

end;

begin {***** тело программы ******}

clrscr;

writeln ('ввод матрицы коэффициентов при неизвестных х');

for i: =1 to N do

for j: =1 to N do

begin

write (' введите a [', i,',',j,'] => ');

read (a [i,j]);

end;

writeln ('ввод столбца свободных членов');

for i: =1 to N do

begin

write (' введите b [', i,'] => ');

read (b [i]);

end;

writeln ('введите вариант ');

writeln (' 1 - решение системы линейных уравнений методом Гаусса ');

write (' 2 - решение системы линейных уравнений матричным методом => ');

readln (variant);

case variant of

1: gauss (a,b,x,n);

2: matrica (a,b,n);

else writeln ('неверно указан вариант');

end;

end.