linkedin facebook linkedin facebook nod32

Paskal da takrorlanuvchi (sikl) algoritmlarga doir misollar

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-11-03

Paskal da takrorlanuvchi (sikl) algoritmlarga doir misollar


3.1- masala. N natural son va X haqiqiy sonlar berilgan. Quyidagi yig’indini hisoblang.
sinx+sin 2x+...sinnx

Yechish. Izlanayotgan yig’indini S bilan belgilaymiz.

program misol 1;
var n,i:byte; x,s:real;
begin
write('n='); read(n);
write('x='); read(x);
s:=0; x:=sin(x);
for i:=1 to n do
s:=s+exp(i*ln(x));
write('s=',s);
end.

3.2- masala. N! Aniqlansin. Bunda N natural son.

Yechish. N<34 bo’lganda natural sonlar faktorialini hisoblash mumkin.

program misol 2;
var n,i:integer; f:integer;
begin
write('n='); read(n);
f:=1;
for i:=1 to n do
f:=f*i;
write('f=',f);

end.

3.3- masala. 1dan 20 gacha natural sonlar kvadratlari yig’indisini toping.
Yechish. Izlanayotgan yig’indini S bilan belgilaymiz.

program misol 3;
var n,i:integer; f:int64;
begin
write('n='); read(n);
f:=0;
for i:=1 to n do
f:=f+sqr(i);
write('f=',f);

end.

3.4- masala. A sonining N darajasini takrorlash buyrug’i yordamida hisoblang.
Yechish. A sonning n – darajasiga teng kattalikni y bilan belgilaymiz.

program misol 4;
var n,i,a,f:integer;
begin
write('n='); read(n);
write('a='); read(a);
f:=1;
for i:=1 to n do f:=f*a;
write('f=',f);

end.

3.5-masala. 1 dan 9 gacha bo’lgan sonlarni ko’paytirish jadvalini ekranga chiqaring.

Yechish. Bu masalani yechish uchun 3 marta sikl buyrug’idan foydalanamiz. Birinchi siklda birinchi ko’paytuvchi 1 dan 3 gacha, ikkinchisi esa, 1 dan 9 gacha o’zgaradi. Ikkinchisi siklda birinchi ko’paytuvchi 4 dan 6 gacha, ikkinchisi esa, 1 dan 9 gacha o’zgaradi. Uchinchi siklda birinchi ko’paytuvchi 7 dan 9 gacha, ikkinchisi esa, 1 dan 9 gacha o’zgaradi.

program misol 5;
var a,b,i,j,s:integer;
begin
write('a='); read(a);
write('b='); read(b);
for i:=a to b do
for j:=1 to 10 do begin
Write(i*j);

end.

3.6-masala. L nomerli Fibonachchi sonini ekranga chiqaring.

Yechish. 1,1,2,3,5,8,13,21,34,...sonlar Fibonachchi sonlar ketma-ketligini ifodalaydi. Bu sonlar ketma-ketligida uchinchi hadidan boshlab har bir son o’zidan oldingi ikkita sonning yig’indisiga teng.

program misol 6;
var n,v,w,r,i:integer;
begin
write('n='); read(n);
w:=0;v:=1;i:=1;
while i<n do begin
r:=v+w; w:=v; v:=r;
i:=i+1;end;
Writeln('v=',v);
end.

3.7-masala. N natural son va A haqiqiy son berilgan. Quyidagi ko’paytmani hisoblang:
A(A+1)(A+2) ... (A+N)
Yechish. Berilgan ko’paytmani k bilan belgilaymiz.

program misol 7;
var a,p:real;i,n:integer;
begin
write('n='); read(n);
write('a='); read(a);
p:=1;
for i:=0 to n do
p:=p*(a+i);
write('p=',p);

end.

3.8-masala. Natural sonni tub ko’paytuvchilarga ajrating.

program misol 8;
var n,i:integer;
begin
write('n='); read(n);
for i:=1 to n do
if n mod i=0 then begin
write('i=',i);

end.

3.9-masala. 1 dan 10 gacha bo’lgan sonlardan sikl qadami 1 ga teng holda kvadrat chiqaring.

Yechish. Berilgan x sondan chiqarilgan kvadrat ildizning qiymatini y bilan belgilaymiz.y=x2

program misol 9;
var a,b,i:byte;
s:real;
begin
write('a='); read(a);
write('b='); read(b);
for i:=a to b do begin
Writeln(sqr(i));
end.

2879 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений