Побудова таблиці значень функції, Детальна інформація
Побудова таблиці значень функції
writeln (1st,'ЗНАХОДЖЕННЯ СУМИ ЕЛЕМЕНТІВ СТОВПЦЯ
МАТРИЦІ З М’}
writeln (lst’al=',al:8:4); bl:=det(b,n);
writeln (1st,'ЗНАХОДЖЕННЯ ВИЗНАЧНИКА МАТРИЦІ В');
writeln (lst,'bl=',bl:8:4);
for i:=l to f do begin
writeln ('введіть х[',і,']-');
readln( x[i]) {ВВІД ЕЛЕМЕНТІВ МАСИВУ X}
end;
writeln (1st,'--------------------------------------------------------------------------
writeln (1st,'*----------------x-------------------*---------------------------------у
writeln (1st,'-------------------------------------------------------------------------
for i:-l to f do
begin
if x[i]>10 then t:=0,44 else t:=0,25;
y:-(l+sqr(x[i])*sin(t*x[i]/4))/(l,5+al*bl);
writeln (1st,'* ', x[i];8:3 , ' * ',y:8:3,'
writeln (1st, '-----------------------------------------------------------------------
end
end.
Підпрограма: Знаходження визначника матриці методом Гауса
<>
Function Det (A: dvmr; N: integer): real;
Var i,j,k: integer;
d,y,w: real;
Begin
if (help_s=’h’) or (help_s=’H’) then begin ClrScr;
writeln (‘***********************************************’);
writeln (‘* Знаходження визначника матриці методом Гауса *’);
writeln (‘* <> *’);
МАТРИЦІ З М’}
writeln (lst’al=',al:8:4); bl:=det(b,n);
writeln (1st,'ЗНАХОДЖЕННЯ ВИЗНАЧНИКА МАТРИЦІ В');
writeln (lst,'bl=',bl:8:4);
for i:=l to f do begin
writeln ('введіть х[',і,']-');
readln( x[i]) {ВВІД ЕЛЕМЕНТІВ МАСИВУ X}
end;
writeln (1st,'--------------------------------------------------------------------------
writeln (1st,'*----------------x-------------------*---------------------------------у
writeln (1st,'-------------------------------------------------------------------------
for i:-l to f do
begin
if x[i]>10 then t:=0,44 else t:=0,25;
y:-(l+sqr(x[i])*sin(t*x[i]/4))/(l,5+al*bl);
writeln (1st,'* ', x[i];8:3 , ' * ',y:8:3,'
writeln (1st, '-----------------------------------------------------------------------
end
end.
Підпрограма: Знаходження визначника матриці методом Гауса
<
Function Det (A: dvmr; N: integer): real;
Var i,j,k: integer;
d,y,w: real;
Begin
if (help_s=’h’) or (help_s=’H’) then begin ClrScr;
writeln (‘***********************************************’);
writeln (‘* Знаходження визначника матриці методом Гауса *’);
writeln (‘* <
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021