O`zbеkiston rеspublikasi oliy va o`rta maxsus ta'lim

FOYDALANILGAN ADABIYOTLAR

1. 
   O`.T.Haitmatov va b.Informatika va axborot texnologiyalari. O’quv qo’llanma. T. TKTI. 2005 y.
   
2. 
   O`.T.Haitmatov va b. Informatika va axborot texnologiyalari fanidan laboratoriya ishlarini bajarish ushun uslubiy qo’llanma. T. TKTI. 2005 y.
   
3. 
   Holmatov T.X.,Toyloqov N.I. Amaliy matematika,dasturlash va kompyuterning dasturiy ta’minoti. T.Mexnat, 2000 .
   
4. 
   Kadirova N.R. Polatov A.M. Programmirovanie na yasike Paskal T.2004
   
5. 
   Aripov M., Xaydarov A. Informatika asoslari T. “O`qituvchi” 2002 .
   

O`tilgan mavzular bo`yicha talabalar o`z bilimlarini mustahkamlashlari uchun quyida Turbo Paskal algoritmik tilida dasturlar berilgan.
Bu dasturlarning har birini bajarayotgan funktsiyalarini taxlil qiling.
1) program Brak;
const eps=0.5; var B: array[byte]of real; i, n , s : integer; a : real; p : boolean;
begin
p:=false; s:=0; readln(n); readln(a); for i:=1 to N do begin
readln(B[i]); if (b[i]<(a-eps)) or (b[i]>(a+eps)) then begin
p:=true; s:=s+1; end end; if p then writeln(s) else writeln(a)
end.
2) Program Determinant;
const N1=10;
type
Matrice = array[1..N1,1..N1] of real;
var A: matrice; I,J,N: integer; D: real;
Function Det (A: Matrice; N: integer) : real;
var B: matrice; I: integer; T, Mn, S : real;
Function Minor (var C: matrice; A: Matrice; N, I, J : integer) : real;
var Im, Jm, Ia, Ja, Nm : integer; begin Nm :=N-1; Im :=1; Ia :=1;
while Im < = Nm do if Ia < >I then begin Jm : =1; Ja : =1;
while Jm<=Nm do if Ja < > J then begin C [Im, Jm] : = A [Ia, Ja];
Ja : =Ja+1; Jm : =Jm+1; end else Ja : =Ja+1; Ia : =Ia+1; Im : =Im+1;
end else Ia : =Ia+1; end; begin if N=1 then Det : =A[N,N];
if N=2 then Det : =A[1, 1]*A[2, 2]-A[2, 1]*A[1, 2]; if N>2 then
begin S : =0; for I : =1 to N do begin
Mn : =Minor(B, A, N, I, 1); if (I mod 2)=1 then begin T : = Det (B, N-1);
S : =S + T*A[ I, 1]; end else begin T : = Det (B, N-1); S : = S –T *A[I,1];
end; end; Det : = S; end; end; begin readln (N);
for I :=1 to N do begin for J :=1 to N do readln (A [I, J]); end; D : =Det (A, N);
Writeln ( D : 7 : 4); readln; end.