Lý thuyết và bài tập Pascal phần III

Lý thuyết và bài tập Pascal

{viet ket qua }

writein(Khong co hop so nao’);

if not dien then

writeln(‘Khong the dien’);

_ Procedure Nhap_mt(var a : ma_tran;var n : byte);

var i,j : byte; x,y : integer;

begin

_ fepeat

97 7-BTLT

Procedure Nhap_mt(var a : ma_tran;var n : byte);

var ij: byte;

Ie;{gia su doi i khong thua}

;=0;{k la so tran thang cua doi i}

100

then f:=false;(doi ¡ da thua}

if afi,jJ=2 then ine(k);

{xoa cac so nam trong khoang l1, I2}

b:=a; { sao luu mang a }

for i:= 1 tondo

if a[i,j] = max{j] then cfi,j) :

writeln(’ MA TRAN BAN DAU’);

105

writeln (' Diem yen ngua cua ma tran la : a['j,1j,]);

writeln (' Gia tri tai diem yen ngua la : ‘,ali,j]);

Type matran = array[1 nmax,1 nmax+1] of real;

mang = array [1 nmax+1] of real,

Var

a: matran;

nị : byte;

x: mang;

Procedure Nhapmt(var a : matran;var n : byte);

var i,j: byte; xy : integer;

begin

repeat

clrser,

106

write(‘nhap so an cua phuong trinh (<=50) : ');

function Khuheso(var a : matran;n : byte) : boolean;

Var i,j,k : byte;

{chon he so max cua cot ¡

trong cac dong can khu : tu ¡ den n}

for k:=i to n do

if max < abs(a[k,i]) then

begin {phuong trinh vo no hoac vo so no} khuheso:=false;

for k:=i to n+1 do a[i,k]:=ali,k]/max;

for j:=i+1 ton do

BEGIN

nhapmt(a,n);

if not khuheso(a,n) then

Writeln(Phuong trinh co vo nghiem.))

else begin

timnghiem(a,n,x);

'Writeln(Bo nghiem cua phuong trình la : ');

for i:=1 to n do writeln(x[i]:8:8);

end;

write(‘an Esc de thoa);

repeat until readkey=#27;

readIn(b[iij]):

end;

writeln (‘MA TRAN A’),

for i:= 1 tondo

fi) = ali) + bE)

writeln(' MA TRAN A+B);

writeln (" MA TRAN A’);

matran = array [1 nmax,1 nmax] of real;

var a,b : matran; n : byte;

.chiso : array[1 nmax] of byte;

function Dinhthuc(n:byte;a : matran) : real;

Var ij.k : byte;

max,tg,Dinh_thuc : real;

Begin

Dinh_thuc:=1;

{Buoc i khu he so o cot i}

for i:=1 ton do

begin

{chon he so max cua cot i

trong cac dong can khu : tui denn} max:=0;j:=0;

if a[ki]<0 then am:=true else am:=false;

end;

if max = 0 then

{neu tat ca cac he so can khu cot i = 0}

begin {phuong trinh vo no hoac vo so no}