Презентация к уроку по теме "Оператор выбора"

Пример разветвленного алгоритма

Задача. Вычислить отношение двух целых чисел.

Var

a,b : integer;

ratio : real;

Begin

writeln(‘Введите два числа: ‘);

read (a,b);

ratio:= a / b;

writeln (‘Отношение = ‘,ratio:6:2);

End.

Когда вы введете 0 для второго значения, программа напечатает сообщение об ошибке

(Divide by zero - Деление на ноль) и остановится.

Неполная разветвленная структура

Задача. Составить программу, которая, если введенное число отрицательное меняет его на противоположное.

Program Chisla; Var   x : integer; {вводимое число} Begin   writeln(‘Введите число ‘); {вводим целое число}   readln(x);   if x

c)         then           begin             b:=a;              c:=a;           end         else           begin             a:=-a;             b:=-b;             c:=-c;           end   writeln(a,b,c);   readln; End. Задача 4. Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить их квадратами, если abc, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа. " width="640"

Вложенные условные операторы

Program z4; Var   a, b, c : integer; Begin   writeln(‘Введите числа a, b, c’);   readln(a,b,c);   if (ab) and (bc)         then           begin             b:=a;              c:=a;           end         else           begin             a:=-a;             b:=-b;             c:=-c;           end   writeln(a,b,c);   readln; End.

Задача 4. Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить их квадратами, если abc, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

Оператор выбора

Оператор case позволяет сделать выбор между несколькими вариантами:

case of

: ;

[ : ;]

[ : ;]

[ else ;]

end;

Оператор выбора

Пример оператора выбора:

case symbol of

'a'..'z', 'A'..'Z' : writeln('Это латинская буква');

'а'..'я', 'А'..'Я' : writeln('Это русская буква');

'0'..'9' : writeln('Это цифра');

' ',#10,#13,#26 : writeln('Это пробельный символ');

else writeln('Это служебный символ');

end;

Оператор выбора

Задача 5 . Написать программу преобразования цифр в слова.

Program z5; Var   a, b, c : integer; 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; End.

Решение задач

Задача 6 . Чтобы получить одну молекулу серной кислоты H2SO4 нужно 2 атома водорода (Н), 1 атом серы (S) и 4 атома кислорода (О).В химическом реакторе имеется А атомов водорода, В атомов кислорода и С атомов серы. Составьте алгоритм или напишите программу, вычисляющую, сколько молекул серной кислоты может получится из такого количества атомов?

Решение задач

Алгоритм решения этой задачи может быть записан следующим образом:

Переменные: тип - целый A,B,C,M1,M2,K;

Ввести A,D,C;

Вычислить целую часть от деления А на 2

М1=цел.часть (А/2);

Вычислить целую часть от деления B на 4

М2=цел.часть (B/4);

Найти минимальное из трех чисел С, М1, М2

K=min(C,M1,M2);

Выдать на печать: В редакторе образуется К молекул кислоты.