Axborotlashtirish texnologiyalari

1- misol. ifodaning qiymatini hisoblash dasturini tuzing.
program summa;
var
S,a, b, x,:real;
k,n:integer;
begin
S:=0; S1:=0; read(a, b, x);
for k:=1 to 15 do {tashqi sikl boshi}
begin
for n:=1 to 10 do {ichki sikl boshi}
begin
S:=S + 2* (exp(k*ln(A)) + exp(n*ln(x)));
end; {ichki sikl oxiri}
S1:=S1+S;
end; {tashqi sikl oxiri} S1:=(b+a)*S1;
write('S1=',S1)
end.


2- misol. ifodani hisoblash dasturini tuzing.
program summa;
var i,j : integer; xo,h,xn,x,So,P,P1:real;
begin P:=1;
begin S:=0; p1:=1;
for i:=1 to 5 do
for j:=1 to 10 do 
begin p:=p*i; p1:=p1*j; end; 
S:=S +(p + p1); end;
writeln('S=',s);
end.
8,9,10,11-amaliy mashg’ulotlar uchun mustaqil topshiriqlar

1-topshiriq

a) ni hisoblang.
b) 1 dan n gacha toq sonlar kvadratlari yig’indisini hisoblang.
c) ni hisoblang

2-topshiriq

a) ni hisoblang.
b) [a,b] oraliqda m soniga karrali sonlar ko’paytmasini hisoblang
c) ni hisoblang.
3-topshiriq
a) ni hisoblang.
b) 1 dan 35 gacha bo‘lgan toq sonlar kvadratlarining yig‘indisi va juft sonlar kvadratlarining ko‘paytmasini toping.
c) ni hisoblang
4-topshiriq
a) Berilgan son raqamlari yig’indisini hisoblash dasturini tuzing.
b) ni eps = 0,0001 aniqlik bilan hisoblang.
c) ni hisoblang
5-topshiriq
a) ni hisoblang.
b) 2 dan 50 gacha 4 ga va 3 ga bo‘linadigan sonlarni chop eting.
c) ni hisoblang.
6-topshiriq
a) [a,b] oraliqdagi m soniga karrali sonlar yig’indisini hisoblang.
b) ni eps = 0,001 aniqlik bilan hisoblang.
c) ni hisoblang
7-topshiriq
a) ni hisoblang.
b) y=tg(x+c) funksiya qiymatini [a,b] oraliqda h qadam bilan hisoblang.
c) ni hisoblang.