Program zadacha3_11;

Var

а,b,s:real;

sim:char;

Begin

writeln('Введіть два числа');

Readln(а,b);

writeln('Введіть знак операції');

Readln(sim);

Case sim

'+': s:=a+b;

'-': s:=a-b;

'*': s:=a*b;

'/': s:=a/b;

End;

writeln ('результат',a,sim,b,' = ',s);

End.

В даній програмі відсутня частина else і тому, якщо ввести замість даних арифметичних знаків, ввести будь-який символ, то програма працюватиме, але працюватиме невірно.

Питання для повторення:

1. Скільки рядків може бути записано в списку вибору?

2. Чи може в операторі вибору бути відсутній частина else?

3. Сформулюйте, що може бути ключем вибору?

4. Чи можна оператор вибору замінити умовним оператором if . then?

5. Скільки операторів if thenзнадобилося б для вирішення задачі 3 10?

Завдання для самостійної роботи:

1. Відредагуйте задачу zadacha3_11 так, щоб при введенні довільного символу програма видавала відповідь: "Введена некоректна арифметична операція";

2. Вводиться число від 1 до 10. Дати назву цього числа (1 - один, 2 - два, 10 - десять);

3. Вводиться число від 1 до 7, визначаюче день тижня. Дати назву цього дня (1 - понеділок, 2 - вівторок, 7 - неділя);

4. В спортивних змаганнях Кулька, кіт Матроськін, дядько Федір і листоноша Печкін зайняли відповідно 1, 2, 3 і 4 місця. Скласти програму, яка по номеру місця видає ім'я учасника змагань.

5. Вводиться число від 1 до 15. Вивести дане число, записане римськими цифрами (I, II, III, IV, V, VI .., XV);

6. Вводиться число від 1 до 15. Вивести дане число, записане в двійковій системі счислення (1, 10, 11, 100, 101 .., 1111);

7. Вводиться число від 1 до 12, визначаюче місяць року. Дати назву цього місяця року (1 -Январь, 2 - Лютий .., 12 Грудень);

8. Вводиться номер місяця. Вивести пору року для цього місяця (1 - зима ..., 3 - весна .., 8 - літо.);

9. Вводитися номер пори року. Вивести назви місяців для цієї пори року (1 – грудень, січень, лютий . . .);

10. Вводится число від 1 до 100. Дати назву цього числа (1 - один, 2 - два .., 100 - сто);

11. Дано натуральне число N (N<20), що визначає суму грошей в рублях. Дати для цього числа найменування: "рубель", "рубля", "рублів";

12. Дано натуральне число N (N<100), що визначає вік людини в літах. Дати для цього числа найменування: "рік", "роки", "літ";

13. Вводиться число від 1 до 7, визначаюче день тижня. Вивести розклад уроків у вашому класі цього дня.

Вивчаємо “Розгалуження в Pascal”

Тема уроку:

Умовний оператор.

Оператор вибору.

Практикум по рішення задач на розгалуження.

Мета заняття:

1. Закріпити навики написання алгоритмів з розгалудженнями;

2. Здійснити проміжний контроль знань;

3. Вдосконалення уміння будувати програми мовою Паскаль. Виховувати уважність, активність на уроці.

Завдання для самостійної роботи:

1. Дані дійсні числа х, у. Отримати:

a) max(x,y);

b) min(x,y);

c) max(x,y) і min(x,y);

2. Дані дійсні числа х, у, z. Отримати:

a) max(x,y,z);

b) min(x,y,z);

3. Задано натуральне число а. Чи є воно парним?

4. Задано натуральне число а. Чи є воно кратним 9?

5. Дано тризначне число. Чи кратна сума його цифр семи?

6. Дано ціле число a>9. Чи менше цифра десятків цифри одиниць?

7. Дано тризначне число. Чи є сума його цифр двозначним числом.

8. Дано три натуральні числа x, у, z. Обчислити кількість чисел менших 50.

9. Знайти кількість позитивних чисел серед чотирьох заданих чисел а,b,c,d.

10. Дано два дійсні числа. Зменшити друге число в п'ять разів, якщо воно більше першого по абсолютній величині.

11. Вводиться назва місяця. Вивести пору року для цього місяця (січень - зима .., березень - весна .., серпень - літо.);

12. Вводитися пора року. Вивести назви місяців для цієї пори року.

13. Скласти програму, яка по введеній назві країни Європи виводитиме на екран назву столиці (наприклад, вводимо Греція - одержуємо "Столиця Греції Афіни");

14. Скласти програму, яка по введеному на російській мові назві домашньої тварини виведе переклад його на англійську мову (наприклад, вводимо кіт - одержуємо cat);

15. Придумайте програми перекладачі, енциклопедії, словники і ін. По подібності попереднього завдання.

16. Задане x. Обчислити у

a) б)

17. Задано два числа.

a) Чи є кожне з цих чисел великим 10?

b) Чи є хоча б одне з цих чисел великим 10?

c) Чи є тільки одне з цих чисел великим 10?

18. Задано два числа.

a) Чи є кожне з цих чисел парним?

b) Чи є хоча б одне з цих чисел парним?

c) Чи є тільки одне з цих чисел парним?

19. Задані два натуральні числа. Чи є перше число двухзначным, а друге однозначним?

20. Задано два числа. Чи є перше число негативним, а друге позитивним?

21. Дано двозначне число. Чи є сума його цифр двозначним числом кратним трьом.

22. Перевірити, чи є число тризначним, у якого цифри утворюють геометричну прогресію (наприклад: 139, 842).

23. Задані x1, y1, x2, y2 (x1,y1,x2,y2 ?0). Чи лежать крапки (x1, y1) і (x2, y2):

a) в одній четверті;

b) в різних четвертях.

24. Задані дійсні x і у. Чи належить точка (x, у) гілки параболи (y=x2) лежачої в другій четверті?

25. Задані дійсні x і у. Чи належить точка (x, у) заштрихованої частини площини:

26. Визначити, чи є дане ціле число N парним тризначним числом.

a. Дано натуральне число N (N<100), що визначає суму грошей в рублях. Дати для цього числа найменування: "рубель", "рубля", "рублів".

28. Дані дійсні позитивні числа x, у, z.

a) З'ясувати, чи існує трикутник з довжинами сторін x,y,z.

b) Якщо трикутник існує, то відповісти – чи є він гострокутним.

29. Дані дійсні позитивні числа а, b, з, x, у. З'ясувати, чи пройде цеглину з ребрами а, b, з в прямокутний отвір із сторонами x і у. Просовувати цеглину в отвір дозволяється тільки так, щоб кожне його ребро паралель або перпендикулярно кожної із сторін отвору.

30. Дано натуральне число n (n £ 9999).

a) Чи є це число палиндромом (перевертышем) з урахуванням чотирьох цифр, як, наприклад, числа 2222, 6116, 0440 і т.д.?

b) Чи вірно, що це число містить рівно три однакові цифри, як, наприклад, числа 6676, 4544, 0006 і т.д.?

c) Чи вірно, що всі чотири цифри числа різні?

31. Поле шахівниці визначається парою натуральних чисел, кожне з яких не перевершує восьми: перше число – номер вертикалі, друге – номер горизонталі. Дані натуральні числа до, l, m, n, кожне з яких не перевершує восьми. Потрібен:

a) З'ясувати, чи є поля (к,l) і (m,n) полями одного кольору.

b) На полі (до, l) розташований ферзь. Чи загрожує він полю (m, n)?

c) Аналогічно b), але ферзь замінюється на коня.

d) З'ясувати, чи можна з поля (до, l) одним ходом тури потрапити на поле (m, n). Якщо ні, то з'ясувати, як це можна зробити за два ходи (вказати поле, на яке приводить перший хід).

e) Аналогічно d), але тура замінюється на ферзя.

Вивчаємо “Цикли”

Тема уроку:

Алгоритми з повтореннями.

Цикл з параметром FOR.

Мета заняття:

1. Сформувати поняття про цикли;

2. Навчитися використовувати рахунковий цикл FOR;

3. Отримати навики рішення алгоритмів з повтореннями.

В мові Паскаль існує трьох різних операторів за допомогою яких можна запрограмувати фрагменти програми, що повторюються (трьох операторів циклу):

- рахунковий цикл FOR;

- цикл WHILE з предусловием;

- цикл REPEAT.UNTIL з постусловием.

На першому нашому занятті постараємося познайомитися і навчимося використовувати рахунковий цикл FOR.

Змінна усередині циклу змінюється автоматично від до до n (n>k) з кроком 1.

Формат запису циклу: for i:=k to n do

або

від n до до (n>k) з кроком -1.

Формат запису циклу: for i:=n dawnto до do

Якщо в циклі повинні виконуватися декілька операторів, то використовуємо операторні дужки: begin .. end;

Цикл FOR зручно використовувати тоді, коли точно відома кількість повторень.

Розглянемо декілька прикладів:

Знайти суму всіх натуральних чисел від 1 до n.