1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

Set of boolean;

бундай ани=ланган тыпламнинг =ийматлари тыплами:
[ ], [true], [false], [true, false]


3. type
oy = (yanv, fev, ..., dek);
yiloyi = Set of oy
bool = Set of boolean;
var
bolalar: Set of (ugil, kiz);
oylar: yiloyi;
mantiq: bool;

Тыпламли =ийматларни тыпламли ызгарувчиларга ызлаштириш учун ызлаштириш оператори ишлатилади:

V:=S;

бу ерда V - тыплам типига тегишли ызгарувчи;
S - тыпламли ифода.

Тыпламли ифодага мисоллар:

1. 
   [1, 2, 5, 6,7] * [2, 6] + [3,9], натижаси [2, 3, 5, 6, 9];
   
2. 
   ([3,4,5]+[1-,3,6,7]) * [5..7]-[6], натижаси [5,7].
   

Энди тыпламлар устида бажариладиган амалларга доир =уйидаги мисол дастурини яратайлик.

Киритилган =аторнинг фа=ат сон, лотин щарфлари ва быш жойлардан ташкил топганлигини ани=лаш программасини тузинг.


Program Tuplamlar;
Var
Str:string;
L:Byte;
Tru:Boolean;
Begin
Writeln(‘+аторни киритинг’);
Readln(Str);
L:=Length(Str); {Киритилган символлар сони}
Tru:=L>0; {True, агар быш =атор былмаса}
While Tru and (l>0) do {+атор охиригача текшириш }
Begin
Tru:=Str[L] in [‘0’..’9’, ’A’..’Z’, ’a’..’z’, ’ ‘];
{Символлар ты\рилигини текшириш }
Dec(L); {Олдинги символ }
End;
If Tru Then Writeln(‘Ты\ри ёзилган =атор’)
Else Writeln(‘Ноты\ри ёзилган =атор’);
End.
+уйида фа=ат ща=и=ий сонларни =абул =ила оладиган функцияни яратиш дастури келтирилган:


Program Set_Of;
Uses Crt;
Var
R:Real;
Function Input_R:Real; {Ща=ий=ий сонларни киритиш функцияси}
Var
S:String[15]; {S ызгарцвчига кыпи билан 15 та белги си\ади}
S1:Set Of Char; {Белгиларни текшириш учун тыплам}
Ch:Char; {Белгиларни =абул =иладиган ызгарувчи}
Code:Integer;
R1:Real;
Begin
S:='';
S1:=['0'..'9','.','-'];
Repeat
Ch:=Readkey;
If Ch in S1 Then {Ch га киритилган белгини S1 тыплам ичидан текшириш}
Begin
S:=S+Ch;
Write(Ch);
End;
Until Ch=#13; {Enter клавиши босилгунча цикл айланади}
Val(S,R1,Code);
Input_R:=R1;
End;
Begin
R:=Input_R; {Input_R функциядан фойдаланиш}
Writeln;
Writeln('1-натижа= ',R:10:4);
Writeln('2-натижа= ',Input_R:10:4); {Input_R функциядан фойдаланиш}
Readln;
End.
Назарий саволлар ва таянч иборалар:

1. 
   Комбинацияли тип (ёзув) деб нимага айтилади?
   
2. 
   Ёзувларнинг =ийматлари нимадан иборат?
   
3. 
   Оддий ёзувлар =андай ани=ланади?
   
4. 
   Комплекс сонни ани=лаш ёзувини яратинг;
   
5. 
   Комплекс сонлар устида ёзувлардан фойдаланиб амаллар бажаринг;
   
6. 
   Иерархик ёзувларни оддий ёзувлардан фар=и нима?
   
7. 
   Ызингиз ха=ингиздаги маълумотларни иерархик ёзув кыринишида расмийлаштиринг.
   
8. 
   Тыплам деб нимага айтилади?
   
9. 
   Тыплам щадлари сони =анча былиши мумкин;
   
10. 
    Тыплам =андай типли =ийматлар =абул =илиши мумкин?
    
11. 
    Тыпламлар устида =андай муносабат амалларни бажариш мумкин?
    
12. 
    Тыпламлар устида =андай амалларни бажариш мумкин?
    
13. 
    Тыплам типлари =андай ани=ланади?
    
14. 
    Тыпламли ифодалардан мисоллар келтиринг.