Паскаль тілінде программалау

Паскаль тілінде программалау

• Тақырып 2. Тармақталу

• Тармақталу алгоритмдері

• Есеп. Екі бүтін сан енгізіп,экранға олардың үлкенін шығару.
• Шығару амалы: бірінші сан екінші саннан үлкен болса, біріншісін, ал егер кіші болса екіншісін экранға шығару.
• Ерекшелігі: атқарушының әрекеті кейбір шарттардың орындалуына байланысты болады (егер …әйтпесе …).

• Қадамдардың тізбектеп орындалуы кейбір шарттарға байланысты болатын алгоритмдерді тармақталу алгоритмдері деп атайды.

• Нұсқа 1. Блок-схема

• басы

• max:= a;

• енгізу a,b

• шығару max

• a > b?

• max:= b;

• соңы

• иә

• жоқ

• Тармақталудың толымды түрі

• «таңдау» блогі

• Егер a = b?

• ?

• Нұсқа 1. Программа

• max := a;

• max := b;

• шартты оператордың толымды түрі

• program qq;
• var a, b, max: integer;
• begin
• writeln(‘Екі бүтін сан енгіз');
• read ( a, b );
• if a > b then begin
• end
• else begin
• end;
• writeln (‘Екі санның үлкені', max);
• end.

• Шартты оператор

• if <шарт> then begin
• {егер шарт орындалса, не істеу керек}
• end
• else begin
• {егер шарт орындалмаса, не істеу керек}
• end;

• Ерекшеліктері:
• else-тің алдында нүктелі үтір болмауы керек
• екінші бөліктің (else …) болмауы да мүмкін (толымсыз түрі)
• егер блокта бір ғана оператор болса, begin мен end сөздерін жазбауға да болады

• Қай жері дұрыс емес?

• if a > b then begin
• a := b;
• end
• else
• b := a;
• end;

• if a > b then begin
• a := b;
• else begin
• b := a;
• end;

• if a > b then begin
• a := b;
• end;
• else begin
• b := a;
• end;

• if a > b then begin
• a := b;
• end
• else b > a begin
• b := a;
• end;

• begin

• end

• begin

• end

• Нұсқа 2. Блок-схема

• тармақталудың толымсыз түрі

• басы

• max:= a;

• енгізу a,b

• шығару max

• max:= b;

• соңы

• иә

• жоқ

• b > a?

• Нұсқа 2. Программа

• program qq;
• var a, b, max: integer;
• begin
• writeln(‘Екі бүтін сан енгіз');
• read ( a, b );
• max := a;
• if b > a then
• max := b;
• writeln (‘Екі санның үлкені', max);
• end.

• шартты оператордың толымсыз түрі

• Нұсқа 2Б. Программа

• program qq;
• var a, b, max: integer;
• begin
• writeln('Екі бүтін сан енгіз');
• read ( a, b );
• max := b;
• if ??? then
• ???
• writeln ('Екі санның үлкені', max);
• end.

• max := a;

• a > b

• Қай жері дұрыс емес?

• if a > b then begin
• a := b;
• else b := a;

• if a > b then begin
• a := b;
• end;
• else b := a;

• if a > b then
• else begin
• b := a;
• end;

• if a > b then
• a := b;
• else b := a; end;

• a := b

• end

• a := b

• if b >= a then
• b := a;

• Тапсырмалар

• "4": Үш сан енгізіп олардың үлкенін табу.
• Мысал:
• Үш сан енгіз:
• 4 15 9
• Ең үлкен сан 15
• "5": Бес сан енгізіп олардың үлкенін табу.
• Мысал:
• Бес сан енгіз:
• 4 15 9 56 4
• Ең үлкен сан 56