linkedin facebook linkedin facebook nod32

Paskal da tarmoqlanuvchi algoritmlarga doir dasturlar tuzish

Muallif: Mengliyev SH.

Qo`shilgan sana: 2014-11-01

Paskal da tarmoqlanuvchi algoritmlarga doir dasturlar tuzish.

2.1-masala. Tarmoqlanuvchi dasturlarga doir Paskal da kvadrat tenglamaning haqiqiy ildizlarini topish dasturi tuzilgan. Bu dasturga mos prosteduralarning ko’rinishi quyidagicha bo’ladi:

Program kvadrat;
var d,a,b,c,x1,x2:real;
begin
write('a=');read(a);

write('b=');read(b);

write('c=');read(c);
d:=b*b-4*a*c;
if d<0 then Write('xaqiqiy echimi yo`k')
else begin x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);

Write(''x1= ,x1);

Write(''x2= ,x2);;
end;
end;

end.

2.2masala. Ikki butun musbat son m va n larning eng katta umumiy bo’luvchisi (EKUB) ni aniqlash dasturini tuzing.

Dastur matni
program ekub;
label 1,2;
var m,n,x,y:ineteger;
begin
write('m=');read(m);
write('n=');read(n);
x:=m;y:=n;
1: if x=y then goto 2;
if x>y then x:=x-y else y:=y-x; goto 1;
2: write('x=',x);;
end.

2.3masala. Ikkita x va y sonlarning kattasini tanlash (EKT) dacturini tuzing.

Dastur matni
program ekt;
var m,y,x:ineteger;
begin
write('x=');read(x);
write('y=');read(y);
if x>y then begin m:=x; write('m=',m); end
else if y>x then begin m:=y; write('m=',m); end
else write('‘Bu sonlar teng!’);
end.

2.4 masala. Raketa v (km/soat) tezlik bilan Er ekvatoridagi nuqtadan Erning quyosh atrofidagi orbitasi bo’ylab uchiriladi. Raketani uchirish natijasi qanday bo’ladi?

Dastur matni
program raketa;

var a:real;
begin
write('a=');read(a);
if a<7.9 then write('Raketa Yerga qaytib tushadi');
if (a>=7.9) and (a<11.2) then write('Raketa Yerning sun`iy yo`ldoshiga aylanadi');
if (a>=11.2) and (a<16.7) then write(' Quyoshning sun`iy yo`ldoshiga aylanadi');
if a>=16.7 then write('Raketa Galaktikaning sun`iy yo`ldoshiga aylanadi');
end.

2.5-masala. Optimal og’irlikni aniqlash dasturini yozing. Dastur formasi quyidagicha ko’rinishga ega.

Dastur matni

program optimal;
var w,h,opt,d:real;
begin
write('w=');read(w);
write('h=');read(h);
opt:=h-100;
if w=opt then
begin

write('optimal');
end
else
if w<opt then
begin d:=opt-w;
write('siz semirishingiz kerak');
end
else
begin
d:=w-opt;
write('siz ozishingiz kerak',d ,'ga');
end;
end;
end.

2.6-masala. Agar kvadratning tomoni A, doiraning radiusi r ga teng bo’lsa, kvadrat va doiraning yuzlarini solishtirib kattasini aniqlang.

Dastur matni

program kvadrat;
var a,r,sk,sd:real;
begin
write('a=');read(a);
write('r=');read(r);
sk:=a*a;sd:=pi*r*r;
if sk>sd then write(’Kvadratning yuzi katta!’) else if sk<sd then write(’Doiraning yuzi katta!’) else write('Yuzlari teng!');
end.


2.7-masala. Quyidagi funkstiya hisoblansin: x>0 bo’lganda 1 ga teng; x=0 da nolga teng; x<0 da -1 ga teng.

Dastur matni
progran funksiya;
var x,y:real;
begin
write('x=');read(x);
if x>0 then y:=1 else if x=0 then y:=0 else y:=-1;
write('y=',y);
end.

2.8-masala. Berilgan N yil kabisa yili bo’lish-bo’lmasligini aniqlang.
Izoh. Agar N 100 ga karrali son bo’lmasa va uning oxirgi ikki raqami 4 ga karrali son bo’lsa, u holda N-yil kabisa yilidir. Agar N soni 100 karrali bo’lsa, u holda N soni 400 ga karrali bo’lgandagina mazkur yil kabisa yili bo’ladi.

Dastur matni
program kabisa;
var n:integer;
begin
write('n=');read(n);
if n mod 100=0 then begin if n mod 400 =0 then write('Bu yil kabisa yili!') else write('Bu yil kabisa yili emas!'); end else

if n mod 4 =0 then write('Bu yil kabisa yili!') else write('Bu yil kabisa yili emas!');
end.

 

2.9-masala. a, b, c sonlar mos ravishda uchta kesmaning uzunliklarini ifodalaydi. Agar kesmalar uchburchakning tomonlarini ifodalasa, uchburchakning yuzi s, uchburchakka tashqi va ichki chizilgan aylanalarning radiuslari r1 va r2 larni toping.

Dastur matni
program uchburchak;
var a,b,c,r1,r2,s,p:real;
begin
write('a=');read(a);
write('b=');read(b);
write('c=');read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r2:=s/p;
r1:=a*b*c/(4*s);
write('r1=',r1);
write('r2=',r2);
write('s=',s); end else write('Kiritilgan sonlar uchburchak tomonlarini ifodalamaydi!');
end.

5452 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
счетчик посещений