Amaliy masalaning echimini topish dasturi va natijalari
Ushbu U[i] vektorni hisoblash dasturi quyidagicha bo`ladi.
Program massiv;
Var
U, X:array [1..4] of real;
i:integer;
b:real;
Begin
for i:=1 to 4 do
begin
Write(‘y[‘,I,’]=’); Readln(b); X[i]:=b;
end;
for i:=1 to 4 do
begin
U[i]:=sqrt(1+x[i]*x[i])+ln(abs(x[i]+2,5));
Writeln(‘u[‘,I,’]=’,u[i]:3:3); readln;
end;
end.
Masala shartiga berilgan - vector parametrlarini kiritib
U(1)=5.093
U(2)=5.995
U(3)=7.114
U(4)=8.554
natijalarini xosil qilamiz.
Adabiyotlar
1. Sh.A.Nazirov va boshqalar “Delphi Tilida Dasturlash Asoslari”
2. Faysman A. Professionalnoe programmirovanie na Turbo Paskale. 1992.
3. Kultin M.B. Programmirovanie v Turbo Pascal i Delphi, Sankt-Peter-burg, 2002g.
4. Kondzyuba S.P., Gromov V.N. Delphi 6/7. Baza dannx i prilojeniya. M- Sankt-Peter-burg - Kiev, 2002g.
Do'stlaringiz bilan baham: |