Навигация
1. Nmax] of real;
B: array [1. Nmax] of real;
N, i, ii,j,l,Rez,kol: integer;
k,S: real;
f,f1: text;
code: integer;
c: char;
Name: string;
Begin
assign (f,'otvet. txt');
rewrite (f);
clrscr;
gotoxy (30,12);
writeln ('1-Ввод с клавиатуры');
gotoxy (32,13);
writeln ('2-Ввод с файла');
gotoxy (28,14);
writeln ('3-Выход в основное меню');
repeat c: =readkey; until c in ['1','2','3'] ;
if c='3' then
begin
readkey;
exit;
end;
if c='1' then
begin
vvod1 (n);
writeln ('введите матрицу коэфициентов');
for i: =1 to n do
begin
for j: =1 to N do
repeat
write ('A [', i,',',j,'] =');
vvod (A [i,j],code);
until code=0;
repeat
write ('B [', i,'] =');
vvod (B [i],code);
until code=0;
end;
end
else
begin
writeln ('Задайте имя файла');
readln (Name);
assign (f1,Name);
{$I-}
reset (f);
code: =Ioresult;
if code<>0 then
begin
writeln ('Ошибка. Файл не найден! ');
writeln ('Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end
else
begin
readln (f1,n);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;
for i: =1 to n do
begin
for j: =1 to N do
begin
read (f1,a [i,j]);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;
end;
read (f1,b [i]);
if Ioresult<>0 then
begin
writeln ('Ошибка чтения из файла! Для выхода в основное меню нажмите любую клавишу. ');
readkey;
exit;
end;
end;
end;
close (f1);
end;
clrscr;
writeln (f,'Исходная матрица: ');
writeln ('Исходная матрица: ');
for i: =1 to N do
begin
for j: =1 to N do
begin
write (A [i,j]: 10: 4);
write (f,A [i,j]: 10: 4);
end;
writeln (' I',B [i]: 10: 4);
writeln (f,' I',B [i]: 10: 4);
end;
for i: =1 to N-1 do begin
for l: =i+1 to N do begin
if a [l, i] =0 then
begin
writeln ('Преобразования матрицы на ', i,'-м шаге выполнить нельзя! ');
writeln ('Диагональный элемент равен 0! ');
writeln (f,'Преобразования матрицы на ', i,'-м шаге выполнить нельзя! ');
writeln (f,'Диагональный элемент равен 0! ');
readkey;
exit;
end;
k: =-A [i, i] /a [l, i] ;
for j: =1 to n do
A [l,j]: =A [l,j] *k+A [i,j] ;
B [l]: =B [l] *k+B [i] ;
end;
writeln;
writeln ('Преобразования матрицы на ', i,'-м шаге');
writeln (f);
writeln (f,'Преобразования матрицы на ', i,'-м шаге');
for ii: =1 to N do
begin
for j: =1 to N do
begin
write (A [ii,j]: 10: 4);
write (f,A [ii,j]: 10: 4);
end;
writeln (' I',B [i]: 10: 4);
writeln (f,' I',B [i]: 10: 4);
end;
readkey;
writeln;
writeln;
writeln (f);
writeln (f);
end;
rez: =1;
for i: =1 to n do
begin
kol: =0;
for j: =1 to N do
if A [i,j] =0 then
kol: =kol+1;
if kol=N then
if B [i] =0 then
begin
Rez: =2;
break;
end
else
begin
Rez: =0;
break;
end;
end;
if rez=1 then
begin
x [N]: =b [n] /a [n,n] ;
for i: =N-1 downto 1 do
begin
S: =0;
for j: =i+1 to N do
S: =S+x [j] *A [i,j] ;
x [i]: = (B [i] -S) /A [i,j] ;
end;
writeln ('Преобразованная матрица');
writeln (f,'Преобразованная матрица');
for i: =1 to N do
begin
for j: =1 to N do
begin
write (A [i,j]: 10: 4);
write (f,A [i,j]: 10: 4);
end;
writeln (' I',B [i]: 10: 4);
writeln (f,' I',B [i]: 10: 4);
end;
writeln ('Вектор ответов');
writeln (f,'Вектор ответов');
for i: =1 to N do
begin
writeln ('x [', i,'] =',x [i]: 10: 4);
writeln (f,'x [', i,'] =',x [i]: 10: 4);
end;
if N=2 then
begin
writeln ('Нажмите любую клавишу для просмотра графика');
readkey;
grafic (a [1,1],a [1,2],b [1],a [2,1],a [2,2],b [2],x [1],x [2]);
end;
end
else
if rez=0 then
begin
writeln ('Решений бесконечное множество');
writeln (f,'Решений бесконечное множество');
end
else
begin
writeln ('Решений НЕТ');
writeln (f,'Решений НЕТ');
end;
readkey;
close (f);
end;
procedure Primer;
var n: char; {номер страницы}
begin
menuPrimera;
gotoxy (1,1);
writeln ('страница 1');
LoadFile ('A: Primer1. txt');
repeat
repeat n: =readkey; until n in ['0'. '4',#27] ;
case n of
'1': begin
menuPrimera;
gotoxy (1,1);
writeln ('страница 1');
LoadFile ('A: Primer1. txt');
end;
'2': begin
menuPrimera;
gotoxy (1,1);
writeln ('страница 2');
LoadFile ('A: Primer2. txt');
end;
'3': begin
menuPrimera;
gotoxy (1,1);
writeln ('страница 3');
LoadFile ('A: Primer3. txt');
end;
'0': begin
Spravka;
gotoxy (1,1);
LoadFile ('A: Spravka1. txt');
end;
'4': begin
menuPrimera;
gotoxy (1,1);
writeln ('страница 4');
LoadFile ('A: Primer4. txt');
end;
end;
until n=#27;
end;
procedure Vuxod;
begin
exit;
end;
Begin
repeat
menu;
repeat ch: =readkey;
until ch in ['1'. '5'] ;
case ch of
'1': Teoria;
'2': Primer;
'3': Rewenie;
'4': Spravka;
'5': Vuxod;
end;
until ch='5';
end.
Похожие работы
... , действующий из нормированного пространства Z в нормированное пространство U. В 1963 г. А.Н.Тихонов дал знаменитое определение регуляризирующего алгоритма (РА), которое лежит в основе современной теории некорректно поставленных задач. Определение. Регуляризирующим алгоритмом (регуляризирующим оператором) называется оператор, обладающий двумя следующими свойствами: 1) определен для любых δ ...
... свести к вычислению четырех определителей третьего порядка. 3-ий учебный вопрос ТЕОРЕМА КРАМЕРА Применим рассмотренную теорию определителей к решению систем линейных уравнений. 1. Система двух линейных уравнений с двумя неизвестными. (3) Здесь х1, х2 – неизвестные; а11, …, а22 – коэффициенты при неизвестных, занумерованные двумя индексами, где первый ...
... уравнений (2) сводится к последовательному решению двух следующих систем уравнений с треугольными матрицами коэффициентов L Y = B; (6) U X = Y (7) линейный алгебраический уравнение численный где Y = - вектор вспомогательных переменных. Такой подход позволяет многократно решать системы линейных ...
... - анализатор Web. Эти программы позволяют получить статистические оценки функционирования выбранной конфигурации. Глава 2. Описание модуля электронного учебника по теме "Методы организации сложных экспертиз компьютерных систем" 2.1 ПОНЯТИЕ И ТРЕБОВАНИЯ К ЭЛЕКТРОННОМУ УЧЕБНИКУ Большие трудности часто возникают при оперативной подготовке, изготовлении и распространении учебных пособий ...
0 комментариев