Paskal da chiziqli algoritmlarga doir dasturlar tuzish



Download 12.04 Kb.
Sana10.12.2019
Hajmi12.04 Kb.
Paskal da chiziqli algoritmlarga doir dasturlar tuzish.

1.1-masala. A va B ikkita haqiqy sonlar berilgan. Ularning yig`indisi va ko’paytmasini hisoblash dasturini tuzing



Dastur matni 
program yg`indi;
var a,b,s,p:real;
begin
write('a='); read(a);
write('b='); read(b);
s:=a+b;
p:=a*b;
write('s=',s);
write('p=',p);
end.

1.2-masala. Ikkita musbat son berilgan, bu sonlarning o’rta arifmetik va o’rta geometrik qiymatlarini hisoblash dasturini tuzing.



Dastur matni 
program misol 2;
var a,b,s,p:real;
begin
write('a='); read(a);;
write('b='); read(b);
s:=(a+b)/2;
p:=sqrt(a*b);
write('s=',s);
write('p=',p);

end.


1.3-masala. Tomonlari a va b ga teng bo’lgan to’g’ri to’rtburchakning yuzi va peremetrini hisoblash dasturini tuzing.

Dastur matni 
program misol 3;
var
a,b,s,p: real;
begin
write('a='); read(a);
write('b='); read(b);
s:=a*b; p:=2*(a+b);
write('s=',s);
write('p=',p);

end.


1.4-masala. Teng tomonli uchburchakning tomoni A ga teng. Uchburchakning yuzini topish dasturini tuzing.

Dastur matni 
program misol 4;
var a,s:real;
begin
write('a='); read(a);
S:=(sqrt(3))*a*a/4;
write('S=',S);
end.

1.5-masala. Koordinatalari x1,y1 va x2, y2 ga teng bo’lgan nuqtalar orasidagi masofani hisoblash dasturini tuzing.



Dastur matni 
program misol 5;
var x1,x2,y1,y2,d:real;
begin
write('x1='); read(x1);
write('x2='); read(x2);
write('y1='); read(y1);
write('y2='); read(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
write('d=',d);
end.

1.6-masala. Birinchi hadi a1, ayirmasi d, hadlari soni n ga teng arifmetik progressiyaning hadlarining yig’indisini hisoblash dasturini tuzing.



Dastur matni 
program misol 6;
var a1,d,n,S: real;
begin
write('a1='); read(a1);
write('d='); read(d);
write('n='); read(n);
S:=(2*a1+d*(n-1))/2*n;
write('S=',S);
end.

1.7-masala. Birinchi hadi b, maxraji q va hadlari soni n ga teng geometrik progressiyaning hadlarining yig’indisi S ni hisoblash dasturini tuzing.



Dastur matni 
program misol 7;
var B,N,Q,S:real;
begin
write('B='); read(B);
write('Q='); read(Q);
write('B='); read(B);
S:=(B*(1-exp(N*ln(Q))))/(1-Q);
write('S=',S);
end.

1.8-masala. Berilgan sonning butun qismini aniqlang.



Dastur matni 
program misol 8;
var a,b,s:real;
begin
write('a='); read(a);
write('b='); read(b);
s:=a div b;
write('s=',s);
end.

1.9-masala. Bir tomoni va unga yopishgan ikkita burchagi berilgan uchburchakning uchinchi burchagi va qolgan ikki tomonini aniqlang.



Dastur matni

program misol 9;


var a,ab,bb,b,c,cb:real; 
begin
write('a='); read(a);
write('ab='); read(ab);
write('cb='); read(cb);
cb:=pi-ab*pi/180-bb*pi/180;
b:=a*sin(bb)/sin(ab);
c:=a*sin(cb)/sin(ab);
write('cb=',cb);
write('b=',b);

write('c=',c);



end.
Download 12.04 Kb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2020
ma'muriyatiga murojaat qiling

    Bosh sahifa
davlat universiteti
ta’lim vazirligi
O’zbekiston respublikasi
maxsus ta’lim
zbekiston respublikasi
o’rta maxsus
davlat pedagogika
axborot texnologiyalari
nomidagi toshkent
pedagogika instituti
texnologiyalari universiteti
navoiy nomidagi
samarqand davlat
guruh talabasi
ta’limi vazirligi
nomidagi samarqand
toshkent axborot
toshkent davlat
haqida tushuncha
Darsning maqsadi
xorazmiy nomidagi
Toshkent davlat
vazirligi toshkent
tashkil etish
Alisher navoiy
Ўзбекистон республикаси
rivojlantirish vazirligi
matematika fakulteti
pedagogika universiteti
таълим вазирлиги
sinflar uchun
Nizomiy nomidagi
tibbiyot akademiyasi
maxsus ta'lim
ta'lim vazirligi
махсус таълим
bilan ishlash
o’rta ta’lim
fanlar fakulteti
Referat mavzu
Navoiy davlat
umumiy o’rta
haqida umumiy
Buxoro davlat
fanining predmeti
fizika matematika
universiteti fizika
malakasini oshirish
kommunikatsiyalarini rivojlantirish
davlat sharqshunoslik
jizzax davlat