О САЙТЕ
Добро пожаловать!

Теперь вы можете поделиться своей работой!

Просто нажмите на значок
O2 Design Template

ФЭА / Информатика / Лабораторная работа №7 по информатике Вариант №6

(автор - student, добавлено - 16-06-2014, 16:06)

СКАЧАТЬ:  elmi6.zip [21,11 Kb] (cкачиваний: 66)

 

 

Решить систему методом простой итерации с точностью е=0,0001

15x1-8x2+x3=3.2

4x1+12x2+x3=2

x1+x2-11x3=3.4

Program Pr7;

uses crt;

 label metka;

 const n=3 ;

           e=0.0001;

var

i,j: integer;

k,s: real;

a: array [1..n,1..n] of real;

b,x,y: array [1..n] of real;

begin

writeln('vvedi massiv a');

For i:=1 to n do for j:=1 to n do

read (a[i,j]);

  writeln('vvedi massiv b');

for i:=1 to n do

read (b[i]);

for i:=1 to n do x[i]:=0;

for i:=1 to n do x[i]:=1;

 metka:for i:=1 to n do

begin

                    s:=b[i]/a[i,i];

for j:=1 to n do

 if i<>j then

begin

k:=a[i,j]/a[i,i];

s:=s-k*x[j];

end;

y[i]:=s;

end;

s:=0;

for i:=1 to n do

begin

s:=s+abs(y[i]-x[i]);

x[i]:=y[i];

end;

if s<e then

begin

writeln('О Т В Е Т Ы');

writeln;

for i:=1 to n do writeln('x',i,'=',x[i]:5:3,'   ');

end;

if s>=e then goto metka;

writeln;

writeln;

readln;

writeln('ПРОВЕРКА');

for i:=1 to n do

begin

for j:=1 to n do

b[i]:=b[i]-a[i,j]*x[j];

if b[i]<e then writeln(i,'-е уравнение верно.  ')

else write(i,'-е уравнение неверно.  ');

end;

readln;

end.

ОТВЕТЫ: X1=0.283

                  X2=0.095

                  X3= - 0.275

 


Ключевые слова -


ФНГ ФИМ ФЭА ФЭУ
Copyright 2018. Для правильного отображения сайта рекомендуем обновить Ваш браузер до последней версии!