Число
<<  Дети с множественными нарушениями ? Насколько велико Царство натуральных чисел  >>
Оператор множественного выбора CASE
Оператор множественного выбора CASE
Сегодня наша задача – познакомиться со способами организации в
Сегодня наша задача – познакомиться со способами организации в
В языке Pascal имеются два оператора ветвления: If (ветвление по
В языке Pascal имеются два оператора ветвления: If (ветвление по
Рассмотрим пример:
Рассмотрим пример:
Программа для нашего примера примет вид: Program P2; Var a,x:real;
Программа для нашего примера примет вид: Program P2; Var a,x:real;
В алгоритме вычисления по данной формуле можно предусмотреть проверку
В алгоритме вычисления по данной формуле можно предусмотреть проверку
Программа, реализующая второй способ, такова: Program P4; Var a, x:
Программа, реализующая второй способ, такова: Program P4; Var a, x:
Операция логического умножения И применяется тогда, когда переменная
Операция логического умножения И применяется тогда, когда переменная
Операция логического сложения ИЛИ применяется тогда, когда переменная
Операция логического сложения ИЛИ применяется тогда, когда переменная
Оператор выбора CASE OF
Оператор выбора CASE OF
<Списки> могут быть заданы следующими способами:
<Списки> могут быть заданы следующими способами:
Работу этого оператора можно проиллюстрировать следующим примером:
Работу этого оператора можно проиллюстрировать следующим примером:
Program Pr; Var month: Integer; Begin Writeln (‘Введите номер месяца
Program Pr; Var month: Integer; Begin Writeln (‘Введите номер месяца
Оператор выбора Case
Оператор выбора Case
Найти наибольшее из двух действительных чисел, используя оператор
Найти наибольшее из двух действительных чисел, используя оператор
Сравнить значение переменной ch с различными диапазонами значений
Сравнить значение переменной ch с различными диапазонами значений
Составить программу, которая по номеру дня недели выводит на экран его
Составить программу, которая по номеру дня недели выводит на экран его
Преобразовать символ, если он является строчной русской буквой, в
Преобразовать символ, если он является строчной русской буквой, в
1
1
program z303; var n: longint; begin readln (n); case n mod 100 of 11
program z303; var n: longint; begin readln (n); case n mod 100 of 11
program z303; var n:longint; p1,p2,p3,p4: boolean; s:string; begin
program z303; var n:longint; p1,p2,p3,p4: boolean; s:string; begin
4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год
4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год
Задача №1459
Задача №1459
program z1459; var n,z:integer;s:string; begin readln(n); s:=''; if
program z1459; var n,z:integer;s:string; begin readln(n); s:=''; if
Город
Город
Домашнее задание
Домашнее задание

Презентация на тему: «Оператор множественного выбора CASE». Автор: Eugene. Файл: «Оператор множественного выбора CASE.ppt». Размер zip-архива: 689 КБ.

Оператор множественного выбора CASE

содержание презентации «Оператор множественного выбора CASE.ppt»
СлайдТекст
1 Оператор множественного выбора CASE

Оператор множественного выбора CASE

2 Сегодня наша задача – познакомиться со способами организации в

Сегодня наша задача – познакомиться со способами организации в

егодня наша задача – познакомиться со способами организации в программах ветвления из трех и более ветвей.

3 В языке Pascal имеются два оператора ветвления: If (ветвление по

В языке Pascal имеются два оператора ветвления: If (ветвление по

условию); Case (ветвление по выбору). Если число уровней вложения условного оператора If больше двух-трёх, то лучше воспользоваться оператором ветвления по выбору Case.

Операторы ветвления

3

4 Рассмотрим пример:

Рассмотрим пример:

Здесь можно пойти разными путями. Первый способ В алгоритме вычисления по данной формуле предусмотреть проверку первого условия (и вычисление по первой формуле, если оно истинно); затем проверку второго условия, но только в том случае, если первое ложно; вычисление по второй формуле, если второе условие истинно и по третьей, если ложно. Причем если истинно первое условие, то после вычисления по первой формуле происходит выход из структуры Ветвление.

5 Программа для нашего примера примет вид: Program P2; Var a,x:real;

Программа для нашего примера примет вид: Program P2; Var a,x:real;

Begin Writeln('Введите x') ; Read (x); If x<0 Then a:=x+1 Else If x<10 Then a := 2*x Else a := 0; Writeln (a); End.

6 В алгоритме вычисления по данной формуле можно предусмотреть проверку

В алгоритме вычисления по данной формуле можно предусмотреть проверку

каждого условия (и выполнение серии операторов, если условие истинно). То есть, в отличие от первого способа, после выполнения операторов, соответствующих истинному условию, проверка условий не заканчивается.

Таким образом, при выполнении алгоритма первого способа наибольшее число проверяемых условий на 1 меньше числа разветвлений, а при выполнении алгоритма второго способа число проверяемых условий равно числу разветвлений.

Второй способ организации ветвления

7 Программа, реализующая второй способ, такова: Program P4; Var a, x:

Программа, реализующая второй способ, такова: Program P4; Var a, x:

real; Begin Writeln('Введите x'); Read (x ); If x<0 Then a:=x+1; If (0<=x) and (x<10) Then a:=2*x; If x>=10 Then a:=0; Writeln(a); End.

В условии нельзя непосредственно записать 0<Х<10, а нужно объединить несколько простых условий в одно сложное, в данном случае – таким образом: (0<=Х) and (X<10) Можно заметить, что эта программа заметно проще предыдущих.

8 Операция логического умножения И применяется тогда, когда переменная

Операция логического умножения И применяется тогда, когда переменная

должна удовлетворять одновременно двум более простым условиям.

P, Q – простые условия

9 Операция логического сложения ИЛИ применяется тогда, когда переменная

Операция логического сложения ИЛИ применяется тогда, когда переменная

должна удовлетворять хотя бы одному из двух и более простых условий

10 Оператор выбора CASE OF

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

Здесь селектор – проверяемое целое арифметическое, логическое или символьное выражение. Причем оно может принимать значения лишь некоторых типов, общим свойством для которых является то, что их значения известны точно. Поэтому, в частности, тип селектора не может быть вещественного типа (Real), <Списки> представляют собой перечисления возможных значений выражения селектор. При совпадении значения выражения хотя бы с одним из значений <списка> будет выполняться соответствующее <действие> и на этом выполнение команды выбора завершается.

11 <Списки> могут быть заданы следующими способами:

<Списки> могут быть заданы следующими способами:

Вид списка

Значение

Список, состоящий из одного значения

‘a’ 8 TRUE

Список, содержащий перечисление значений

1, 4, 5 ‘a’, ‘b’,’*’,’@’

Список, содержащий интервалы значений

1..5, 20..30 ‘a’ ..’z’

Список, содержащий смешанную форму представления значений

1 .. 5, 15, 55 ‘a’ ..’z’, ’A’, ’B’

12 Работу этого оператора можно проиллюстрировать следующим примером:

Работу этого оператора можно проиллюстрировать следующим примером:

Составить программу, которая спрашивает у пользователя номер месяца и выводит соответствующее названия времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение об ошибке «Ошибка ввода данных». Ниже приведен рекомендованный вид экрана во время работы программы: Введите номер месяца (число от 1 до 12) и нажмите <Enter> -> 12 Зима

13 Program Pr; Var month: Integer; Begin Writeln (‘Введите номер месяца

Program Pr; Var month: Integer; Begin Writeln (‘Введите номер месяца

(число от 1 до 12) и нажмите <Enter>’); Read (month); Case month of 1, 2, 12: Writeln(‘Зима’); 3 . . 5: Writeln(‘Весна’); 6 . . 8: Writeln(‘Лето’); 9 . .11: Writeln (‘Осень’); Else Writeln (‘Ошибка ввода данных – число должно быть от 1 до 12’); End; End.

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

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

Case x of -128..-1: writeln(‘Отрицательные’); 0: writeln(‘Ноль’); 1..127: writeln(‘Положительные’) Else WriteLn(‘Выход из диапазона’); End;

Case Рост ученика of 16..30 : Вы ученик начальных классов; 31,32,33 : Вы учитесь в 5-6 классе; 34..50 : Вы старшеклассник ; Else Вы явно не ученик; End;

14

Для перечисления значений используется запятая, для выбора диапазона — двоеточие.

15 Найти наибольшее из двух действительных чисел, используя оператор

Найти наибольшее из двух действительных чисел, используя оператор

выбора.

Program Maximum; Var Max, X, Y : Real; Begin Write('Введите два неравных числа:'); ReadLn(X, Y); Case X > Y Of TRUE : Max := X; FALSE : Max := Y End; Write('Максимальное из двух есть ', Max : 12 : 6) End.

16 Сравнить значение переменной ch с различными диапазонами значений

Сравнить значение переменной ch с различными диапазонами значений

var ch: char; begin write ('Введите символ: '); readln (ch); case ch of '0'..'9': write ('Это число'); 'a'..'z','A'..'Z': write ('Это английская буква'); 'а'..'я','А'..'Я': write ('Это русская буква') end; end.

17 Составить программу, которая по номеру дня недели выводит на экран его

Составить программу, которая по номеру дня недели выводит на экран его

название:

Program dni_nedeli; var n: byte; begin readln(n); case n of 1: writeln(‘понедельник ’); 2: writeln(‘вторник ’); 3: writeln(‘среда ’); 4: writeln(‘четверг ’); 5: writeln(‘пятница ’); 6: writeln(‘суббота ’); 7: writeln(‘воскресенье’); else writeln(‘дня недели с номером’, n,’нет’); end; end.

18 Преобразовать символ, если он является строчной русской буквой, в

Преобразовать символ, если он является строчной русской буквой, в

заглавную букву.

Program UpCase; Var C : Char; Begin Write('Введите символ:'); ReadLn(C); Case C Of 'а'..'п' : C := Chr(Ord(C) - 32); 'р'..'я' : C := Chr(Ord(C) - 80) End; WriteLn(C); End.

Так как в альтернативной системе кодировки ASCII строчные русские буквы идут не подряд, а с некоторым разрывом, то в данном случае, в зависимости от того, в какую часть таблицы попадает введенная буква, используется та или иная формула. Если введённый символ не является строчной русской буквой, он выводится без изменения.

19 1

1

1 korova

Задача №303. Коровы По данному числу n закончите фразу "На лугу пасется..." одним из возможных продолжений: "n коров", "n корова", "n коровы", правильно склоняя слово "корова". Формат входных данных Дано число n (n<100). Формат выходных данных Программа должна вывести введенное число n и одно из слов (на латинице): korov, korova или korovy, например, 1 korova, 2 korovy, 5 korov. Между числом и словом должен стоять ровно один пробел. Пример

Ввод

Вывод

20 program z303; var n: longint; begin readln (n); case n mod 100 of 11

program z303; var n: longint; begin readln (n); case n mod 100 of 11

.14: writeln(n,'korov':6) else case n mod 10 of 0,5..9: writeln (n,' korov'); 1: writeln (n,' korova'); 2..4: writeln (n,' korovy');end; end; end.

21 program z303; var n:longint; p1,p2,p3,p4: boolean; s:string; begin

program z303; var n:longint; p1,p2,p3,p4: boolean; s:string; begin

readln(n); p1:=(abs(n mod 100)>=11) and (abs(n mod 100)<=14); p2:=(abs(n mod 10)=1); p3:=(abs(n mod 10)>=2) and (abs(n mod 10)<=4); p4:=((abs(n mod 10)>=5) and (abs(n mod 10)<=9)) or (abs(n mod 10)=0); if p1 then s:='korov' else if p2 then s:='korova' else if p3 then s:='korovy' else if p4 then s:='korov'; if p1 or p4 then writeln(n,s:6 )else if p2 or p3 then writeln(n,s:7); end.

22 4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год

4 : WriteLn('Год Крысы'); 5 : WriteLn('Год Коровы'); 6 : WriteLn('Год

Тигра'); 7 : WriteLn('Год Зайца'); 8 : WriteLn('Год Дракона'); 9 : WriteLn('Год Змеи'); 10 : WriteLn('Год Лошади'); 11 : WriteLn('Год Овцы') END; END.

Program Goroskop; Var Year : Integer; Begin Write('Введите год '); ReadLn(Year); CASE Year MOD 12 OF 0 : WriteLn('Год Обезьяны'); 1 : WriteLn('Год Петуха'); 2 : WriteLn('Год Собаки'); 3 : WriteLn('Год Свиньи');

В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая позволяет ввести номер года и печатает его название по старояпонскому календарю. Справка: 1996 г. — год крысы — начало очередного цикла.

23 Задача №1459

Задача №1459

Римская система счисления Дано число X. Требуется перевести это число в римскую систему счисления.

Формат входного файла Дано число X в десятичной системе счисления (1 ? X ? 100). Формат выходного файла Выведите X в римской системе счисления. Примеры

Ввод

Вывод

4

IV

19

XIX

46

XLVI

24 program z1459; var n,z:integer;s:string; begin readln(n); s:=''; if

program z1459; var n,z:integer;s:string; begin readln(n); s:=''; if

(n>=40) and (n<=100) then case n div 10 of 10: s:='C'; 9: s:='XC'; 5..8:s:='L'; 4: s:='XL'; end; z:=0;{desyatki} if (n>50) and (n<>100) then z:=(n-50)div 10; if (n>10) and (n<40) then z:=n div 10;

case z of 1: s:=s+'X'; 2: s:=s+'XX'; 3: s:=s+'XXX'; end; if n mod 100=10 then s:='X'; case n mod 10 of{edinicy} 1: s:=s+'I'; 2: s:=s+'II'; 3: s:=s+'III'; 4: s:=s+'IV'; 5: s:=s+'V'; 6: s:=s+'VI'; 7: s:=s+'VII'; 8: s:=s+'VIII'; 9: s:=s+'IX';end; writeln(s); end.

Блок прибавления символа десятки (например XX, LXX)

Блок поиска символов С, XC,L,XL (т.е. 100, 90, 50, 40)

Блок прибавления символа единицы (например II - 2, LXXII - 72)

Блок поиска количества десяток (т.е. X)

25 Город

Город

Код

Владивосток

423

2,2

Москва

095

1,0

Мурманск

815

1,2

Самара

846

1,4

Цена минуты (руб.)

Составить программу, вычисляющую стоимость междугородного телефонного разговора (цена одной минуты определяется по таблице). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы: Вычисление стоимости разговора по телефону. Введите исходные данные: Код города -> 812 Длительность (целое количество минут) -> 3 Город: Владивосток Цена минуты:2.20 руб, Стоимость разговора: 6.60 руб.

26 Домашнее задание

Домашнее задание

1. Выучить конспект.

2. Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 41 копейка и т. д.

3. Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В программе учесть количество дней в феврале для високосного и не високосного годов.

«Оператор множественного выбора CASE»
http://900igr.net/prezentacija/russkij-jazyk/operator-mnozhestvennogo-vybora-case-84889.html
cсылка на страницу
Урок

Русский язык

100 тем
Слайды
900igr.net > Презентации по русскому языку > Число > Оператор множественного выбора CASE