Модел ва алгоритм тушунчаси


Мисол. a сонини b сонига бўлгандаги қолдиқни ҳисоблаш дастури тузилсин. program


Download 0.77 Mb.
bet21/56
Sana18.06.2023
Hajmi0.77 Mb.
#1556825
1   ...   17   18   19   20   21   22   23   24   ...   56
Bog'liq
7 Алгоритмлар мавзуси

Мисол. a сонини b сонига бўлгандаги қолдиқни ҳисоблаш дастури тузилсин.
program qoldiqni_hisoblash;
label 1;
var a,b,qoldiq:byte;
begin
write ('a,b  '); readln(a,b);
if b=0 then
begin
writeln('0 ga bo`linish sodir bo`ldi');
goto 1;
end;
qoldiq:=a mod b;
writeln('qoldiq:',qoldiq);
1: end.


9. Мураккаб шартлар.
Тармоқ операторида катталиклар орасида битта муносабат амали иштирок этган эди. Тармоқ операторида икки ёки ундан ортиқ муносабатлар бирбири билан мантиқий амаллар билан боғланган бўлиши мумкин. Бундай боғланишлар notунар амали, and, or, xor  бинар амаллари билан боғланган бўлиши мумкин.
М
асалан, x>1 ва x<5 муносабатлар «ва» амали билан боғланган. Турбо Паскалда ушбу боғланиш (x>1) and (x<5) каби ёзилади.
Масала 1. A нуқта ўзининг x ва y координаталари билан берилган. Шу нуқтанинг расмдаги текисликка тегишли ёки тегишли эмаслигини аниқлаш дастури тузилсин.
Ечиш. Киритилган A(x,y) нуқта шу фигурага тегишли бўлиши учун нуқтанинг координаталари қуйидаги системани қаноатлантириши керак.

1-расм

program figura;
var x,y:real;
begin
write('x,y  '); readln(x,y);
if (x>=0) and (y>=0) and (x+y<=1) then writeln ('А(',x,',',y,') nuqtq figurqga tegishli')
else writeln('(',x,',',y,') nuqta figuraga tegishli emas');
end.


Масала 2. Ихтиёрий n>7 бутун сон учун 3х+5у=n шартни қаноатлантирувчи барча бутун х ва у сонлар жуфтлигини топинг.
Ечиш. n cонини 5 га бўлиб унинг бутун қисми k га эга бўламиз. у нинг 0уk оралиқдаги барча бутун қийматлари учун n-5у сонини 3 га кетма-кет бўлиб чиқамиз. Хосил бўлган сонлар ичида қолдиқсиз бўлинганлари х нинг мос қийматлари бўлади.



Download 0.77 Mb.

Do'stlaringiz bilan baham:
1   ...   17   18   19   20   21   22   23   24   ...   56




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling