Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Оператор выбора
2
составим программу, которая по номеру дня недели выводит на экран его название: 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. Пример программы с использованием Case of
3
Задание 1 Составьте программу, которая по номеру месяца выводит на экран его название.
4
Решение задания 1 Program mes; Var n: integer; Begin Readln(n); Case n of 1: writeln(' январь '); 2: writeln(' февраль '); 3: writeln(' март '); 4: writeln(' апрель '); 5: writeln(' май '); 6: writeln(' июнь '); 7: writeln(' июль '); 8: writeln(' август '); 9: writeln(' сентябрь '); 10: writeln(' октябрь '); 11: writeln(' ноябрь '); 12: writeln(' декабрь '); else writeln(' месяца с номером ', n, ' нет '); end; end.
5
Задание 2 Написать алгоритм нахождения числа дней в месяце, если даны: Номер месяца n – целое число и а, равное 1 для високосного года и равное 0 в противном случае.
6
Решение задания 2 program z1; var a,n:integer; begin writeln('Введите n от 1 до 12 и a - 0 либо 1'); read(n,a); case n of 1,3,5,7,8,10,12: writeln('31 день'); 2: if a=1 then writeln('29 дней') else writeln('28 дней'); 4,6,9,11: writeln('30 дней'); end; end.
7
Задание 3 Арифметические действия над числами пронумерованы следующим образом: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. Дан номер действия N (целое число в диапазоне 1-4) и вещественные числа A и B (B не равно 0). Выполнить над числами указанное действие и вывести результат.
10
Решение задания 4 var a,b:integer; begin writeln('Введите масть карты от 1 до 4'); read(a); Writeln('Введите достоинство карты от 6 до 14'); read(b); case b of 6: write('шестерка '); 7: write('семерка '); 8: write('восьмерка '); 9: write('девятка '); 10: write('десятка '); 11: write('валет '); 12: write('дама '); 13: write('король ); 14: write('туз '); end; case a of 1: writeln('пик'); 2: writeln('крести'); 3: writeln('бубен'); 4: writeln('черви'); end; end.
11
Задание 5 По введенному Вами дню и месяцу рождения вывести на экран сообщение о Вашем знаке зодиака. Овен 21 марта - 20 апреля Овен Телец 21 апреля - 21 мая Телец Близнецы 21 мая - 20 июня Близнецы Рак 21 июня - 22 июля Рак Лев 23 июля - 22 августа Лев Дева 23 августа - 23 сентября Дева Весы 24 сентября - 23 октября Весы Скорпион 24 октября - 21 ноября Скорпион Стрелец 22 ноября - 21 декабря Стрелец Козерог 22 декабря - 19 января Козерог Водолей 20 января - 18 февраля Водолей Рыбы 19 февраля - 20 марта Рыбы
12
Решение задания 5 program zodiak; var mesiac,den:integer; begin write('Введите день Вашего рождения -> '); readln(den); write('Введите месяц, в котором вы родились -> '); readln(mesiac); case mesiac of 1: if (den
13
4: if (den
14
11: if (den
15
Домашнее задание Дано целое число в диапазоне 100 – 999. Вывести строку – словесное описание данного числа, например: 256 – «двести пятьдесят шесть», 814 – «восемьсот четырнадцать».
Еще похожие презентации в нашем архиве:
