Informatika -sinf I tur ( har bir masala 10 balldan) 1-masala. 1,3 qator xususiy yig’indisini hisoblash dasturini tuzing

Informatika 9-sinf I tur ( har bir masala 10 balldan)


1-masala. 1,3,5,7 ... qator xususiy yig’indisini hisoblash dasturini tuzing
2-masala. Ekranga Pifagor kvadratini ko’paytirish jadvalini chiqarish dasturini tuzing.
3-masala. Quyidagi funksiyaning qiymatini hisoblash uchun dastur yozing

4-masala. Beshning darajalar jadjalini chiqaruvchi dastur tuzing
5-masala . Yig’indini hisoblash dasturini tuzing



Informatika 9-sinf I tur ( har bir masala 10 balldan)


1-masala. 1,3,5,7 ... qator xususiy yig’indisini hisoblash dasturini tuzing
2-masala. Ekranga Pifagor kvadratini ko’paytirish jadvalini chiqarish dasturini tuzing.
3-masala. Quyidagi funksiyaning qiymatini hisoblash uchun dastur yozing

4-masala. Beshning darajalar jadjalini chiqaruvchi dastur tuzing
5-masala . Yig’indini hisoblash dasturini tuzing





I tur masala yechimlari


1- масала
{1,3,5,7 ... қатор хусусий йиғиндисини ҳисоблаш}
var
е: integer; {қатор ҳади}
n: integer; {қўшиладиган ҳадлар миқдори}
summ: integer; {қатор ҳадлари йиғиндиси}
i: integer; {цикл ҳисобчиси}
begin
writeln ('1,3,5,7, . . қатор хусусий йиғиндисини ҳисоблаш ');
writeln ('қўшиладиган ҳадлар миқдорини киритинг —>'};
readln (n);
е:=1; {қатор биринчи ҳади }
summ: = 0;
for i:=1 to n do
begin
summ: = sum + e; {йиғиндига қатор навбатдаги ҳадини қўшинг}
е: = е + 2; {кейинги ҳад қийматини ҳисобланг}
end;
writeln ('Қаторнинг биринчи ',n,' ҳадлар йиғиндиси тенг:', summ);
readln;
end.


2 - масала
{Экранга Пифагор квадратини–кўпайтириш жадвалини–чиқариш}
var
i,j: integer; {жадвал сатр ва устун рақами }
р: integer; { i нинг j га кўпайтмаси}
begin
write(' ': 4); {жадвал юқори чап бурчак катаги }
for j:= 1 to 10 do {устун рақами биринчи сатри }
write(j:4);

writeln;

for i: = l to 10 do
begin
write (i:4); {сатр рақами}
for j:= 1 to 10 do {жадвал сатри }
write(i*j:4);
writeln;
end;
readln; {натижа экрандан йўқолмаслиги учун}
end.
3-masala


Quyidagi funksiyaning qiymatini hisoblash uchun dastur yozing

program misol
var
y,x:real;
begin
readln(x);
if x>=1
then y:=sqrt(x)/2
else if x>0
then y:=exp(1/3*ln(x))/3
else y:=exp(1/4*ln(abs(x)))/4;
writeln(‘y=’;y);
end.
4-masala Beshning darajalar jadjalini chiqaruvchi dastur tuzing
var
n: integer; {даража кўрсаткичи)
х: integer; { n даражадаги 5 қиймати}
begin
writeln ('Иккининг даражалар жадвали');
х: = 1;
for n:=0 to 10 do
begin
writeln (n:5, x:6);
x:=x*5;
end;
readln;
end.
5-masala Yig’indini hisoblash dasturini tuzing

Program yig’indi

Uses crt;
Var
I,n:integer; {sikl parametrlari doimo butun toifada bo’lishi kerak, aks holda xato bo`ladi}
S:real;
Begin
clrscr;
S:=0;
Write(‘Sikl sonini kiriting n= ’); Readln(n);
For I:=1 to n do { sikl }
S:=S+0.45/(cos(i)+sin(i)); { sikl tanasi }
Writeln(‘S= ‘, S:6:4);
Readln
End.