Презентация, Тема: "Тандоо оператору"

CASE Тандоо оператору. Маселе чыгаруу .

Биздин максат

• Тандоо оператору менен таанышуу жана маселе иштөө
• Өз алдынча ар түрдөгү маселени чыгарууну үйрөнүү
• Бири –биринин оюн угуу менен

бири-бирине үйрөтүү

Көрсөткүч

• Тандоо оператору менен таанышуу жана маселе иштөөнү билишсе
• Өз алдынча ар түрдөгү маселени чыгарууну үйрөнүшсө
• Бири –биринин оюн угуу менен

бири-бирине үйрөтүшсө

Өтүлгөн теманы кайталоо

Эки бөлүктүү күндөлүк ыкмасын колдонобуз

CASE тандоо оператору -бутактануунун көп багыты боюнча программалоого мүмкүндүк берет

Параметр боюнча -селектор туюнтма , анын мааниси жөнөкөй иреттүү тип (бүтүн, символдук, логикалык)

Жалпы жазылуу ворматы төмөндөгүдөй

case туюнтма of

1-маани: оператор ( операторлордун группасы);

2-маани : оператор (операторлордун группасы);

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

N- маани : оператор (операторлордун группасы)

else оператор (операторлордун группасы);

end ;

Операторду аткаруу менен эсептөөдөн башталып, алынган маани константалар менен салыштырылат жана тиешелүү операторлор аткарылат.эгерде маанисине дал келбесе,анда ELSE сөзүнөн кицйинки операторлор аткарылат.

case NUMBER mod 2 of   0 : writeln (NUMBER, ‘- жуп сан‘) else : writeln (NUMBER, ‘- так сан‘); end;

эгер бир оператор бир нече маанини кабыл алса анда, утур белгиси менен ажыратылып жазылат

case MONTH of   1, 2, 3 : writeln (‘биринчи квартал‘);   4, 5, 6 : writeln (‘экинчи квартал‘);   7, 8, 9 : writeln (‘учунчу квартал‘);   10, 11, 12 : writeln (‘төртүнчү квартал‘); end;

Маселе иштейбиз .

Мектеп окуучуларынын бааларын чыгаруучу программа түзөбүз.

PROGRAM  CASE_1;

USES: crt;

VAR  A : integer; BEGIN clrscr ; Write(‘бааларды киргизгиле: ‘);

Read(A);      CASE  A OF         2 : Write(‘канааттандырарлык эмес’);         3 : Write(‘канааттандырарлык’);         4 : Write(‘жакшы’);         5 : Write(‘эн жакшы’)          ELSE  Write(‘ката!’)

     END ;

While not keypressed do;

END.

маселе .

(0 дөн 9 га чейинки ) цифраларды тамгалар менен алмаштыргыла

( жупта иштөө)

… ..

0 : writeln (‘ноль‘); 1 : writeln (‘бир‘);

… ..

Берилген тапшырманы текшеребиз

Program Number2; Var a : integer; 

Uses: crt;

Begin   writeln(‘ цифра киргиз ‘);    readln(a);   case a of     0 : writeln (‘ноль‘);     1 : writeln (‘бир‘);     2 : writeln (‘эки‘);     3 : writeln (‘үч‘);     4 : writeln (‘төрт‘);     5 : writeln (‘беш‘);     6 : writeln (‘алты‘);     7 : writeln (‘жети‘);     8 : writeln (‘сегиз‘);     9 : writeln (‘тогуз‘)   else writeln (‘бул сан цифра боло албайт‘);   end;   readln;

While not keypressed do;

End.

маселе .

(0 дөн 9 га чейинки ) цифраларды латын тамгалар менен алмаштыргыла

( ТОПТО иштөө)

… ..

0 : writeln (‘zero‘); 1 : writeln (‘one‘);

… ..

Текшеребиз!!!

Program Number1; Var   a : integer; 

Uses: crt;

Begin   writeln(‘цифра киргиз ‘);    readln(a);       case a of         0 : writeln (‘zero‘);         1 : writeln (‘one‘);         2 : writeln (‘two‘);         3 : writeln (‘three‘);         4 : writeln (‘four‘);         5 : writeln (‘five‘);         6 : writeln (‘six‘);         7 : writeln (‘seven‘);         8 : writeln (‘eight‘);         9 : writeln (‘nine‘);

else writeln (‘бул сан цифра боло албайт‘);

      end;   readln;

While not keypressed do;

End.

Меню түзөбүз

Ротация ыкмасы менен иштейбиз .

Менюну текшеребиз

Program Number2; Var a : integer; 

Uses: crt;

Begin   writeln(‘ цифра киргиз ‘);    readln(a);   case a of     1 : writeln (‘лагман‘);     2 : writeln (‘манты‘);     3 : writeln (‘палоо‘);     4 : writeln (‘бешбармак‘);     5 : writeln (‘шорпо‘);     6 : writeln (‘куурдак‘);     7 : writeln (‘кесме‘);       else writeln (‘ тамак жок!‘);   end;   readln;

While not keypressed do;

End.

Бышыктоо

• Тандоо оператору деген эмне?
• Кандай оператордун жардамында жазылат.

Үй тапшырма:

1. Жуманын кундөрүн атап жазуучу программа туз

2. 1-12 ге чейинки сандар туура келген айлардын аталышын жаза турган программа түз