Содержание
- 2. Для начала решим одну задачу уже известным способом Условие: по введенному 8-мизначному числу определить является ли
- 3. Вводится восьмизначное число в формате ДДММГГГГ. Необходимо выяснить, существует ли такая дата. В решении необходимо учитывать
- 4. Вводится восьмизначное число в формате ДДММГГГГ. Необходимо выяснить, существует ли такая дата. Нам понадобятся переменные для
- 5. Вводится восьмизначное число в формате ДДММГГГГ. Необходимо выяснить, существует ли такая дата. Итак, если год високосный,
- 6. Вводится восьмизначное число в формате ДДММГГГГ. Необходимо выяснить, существует ли такая дата. if (vis=0) and (m=2)
- 7. РЕШЕНИЕ var a, d, m,o1, vis,o2:integer; BEGIN read (a); d:=a div 1000000; {день} m:=a mod 1000000;
- 8. Тестируем программу: Программа работает вполне корректно. Задача решена.
- 9. СЛОЖНО!!! Можно проще!!! Для этого сначала разберем Оператор выбора case
- 10. СУТЬ ОПЕРАТОРА Оператор выбора case является обобщением оператора if и позволяет сделать выбор из произвольного числа
- 11. Оператор выбора выполняет одно действие из нескольких в зависимости от значения некоторого выражения, называемого переключателем. Он
- 12. Переключатель представляет собой выражение целого, символьного типа или логического типа, а списки выбора содержат константы того
- 13. Если при выполнении условия действий больше одного, то вид оператора выбора будет таким: case переключатель of
- 14. ПРАВИЛО РАБОТЫ ОПЕРАТОРА: 1.Вычисляется значение выражения. 2.Это значение сравнивается с константами, стоящими после слова of 3.Если
- 15. Оператор case работает следующим образом. Если в одном из списков выбора найдено текущее значение переключателя, то
- 16. БЛОК - СХЕМА
- 17. Список выбора состоит либо из одной константы, либо из диапазона значений вида a..b (константа a должна
- 18. Списки выбора не должны пересекаться. Например, следующий фрагмент приведет к ошибке компиляции "Пересечение диапазонов меток в
- 19. Задача Нарисовать блок-схему и составить программу, позволяющую получить словесное описание школьных отметок (1-плохо, 2-неудовлетворительно, 3-удовлитворительно,4-хорошо,5-отлично) Если
- 20. Блок-схема начало Ввод N N=1 N=2 N=3 N=4 N=5 ДА ДА ДА ДА ДА НЕТ НЕТ
- 21. На Паскале Program Zadacha; var n:integer; begin writeln (‘Введите номер оценки’); readln(n); case n of 1:writeln
- 22. Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 -
- 23. Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 -
- 24. По номеру дня недели вывести соответствующее ему название
- 25. program prim1; var z: integer; begin writeln('введи номер дня недели'); readln(z); case z of 1:writeln('понедельник'); 2:
- 26. по введенному номеру дня недели определить рабочий день или будний, в случае ошибки ввода сообщить на
- 27. ПРИМЕРЫ Решение: var n: integer; BEGIN Read(n); case n of 1..5: writeln('Будний день'); 6,7: writeln('Выходной день');
- 28. Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную
- 29. program c; var a: integer; begin writeln ('количество копеек = '); readln (a); case (a) of
- 30. В одной компьютерной игре не существует числительных. Потому фраза «у вас семь чёрных драконов, а у
- 31. var a:integer; BEGIN readln(a); case a of 1..4 :writeln(‘несколько’); 5..9 :writeln(‘немного’); 10..19 :writeln(‘отряд’); 20..49 :writeln(‘толпа’); 50..99
- 32. Найти наибольшее из двух действительных чисел, используя оператор выбора.
- 33. Program Usl1; Var A, F : Real; Begin WriteLn('Введите действительное число: '); ReadLn(A); IF A F
- 34. Найти наибольшее из двух действительных чисел, используя оператор выбора. II способ Var Max, X, Y :
- 35. Дано действительное число a. Вычислить f(a), если
- 36. Program Usl1; Var A, F : Real; Begin WriteLn('Введите действительное число: '); ReadLn(A); IF A F
- 37. Написать программу которая показывает чётное число или нет, если оно меньше 10. В случае, если 9
- 38. Примеры: Программы показывает чётное число или нет, если оно меньше 10. В случае, если 9 case
- 39. В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра,
- 40. Поскольку цикл является двенадцатилетним, поставим название года в соответствие остатку от деления номера этого года на
- 41. Program Goroskop; Var Year : Integer; Begin Write('Введите год '); ReadLn(Year); CASE Year MOD 12 OF
- 42. Пример программы, которая по введённому числу вида nn.nn.nnnn выводит название месяца и год по китайскому календарю
- 43. САМОСТОЯТЕЛЬНО! Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. В
- 44. Program first; var n:integer; begin writeln('введите номер месяца'); readln(n); case n of 1:writeln('январь'); 2:writeln('Февраль'); 3:writeln('март'); 4:writeln('апрель');
- 45. Теперь решим другим способом задачу решенную в самом начале Условие: по введенному 8-мизначному числу определить является
- 46. var a,d,m,g,vis:integer; BEGIN read (a); d:=a div 1000000; m:=a mod 1000000; g:=m mod 10000; m:=m div
- 48. Скачать презентацию