Pascal ABC

 

ГЛАВНАЯ
УСТАНОВКА
ОКНО ПРОГРАММЫ
ЛИНЕЙНЫЕ АЛГОРИТМЫ
ЧЕРТЁЖНИК
GraphABC
    РОБОТ
АЛГОРИТМЫ С ВЕТВЛЕНИЯМИ
АЛГОРИТМЫ С ПОВТОРЕНИЯМИ
ПРОЦЕДУРЫ И ФУНКЦИИ
ТЕСТЫ
ТВОРЧЕСКИЕ РАБОТЫ
ОЛИМПИАДНЫЕ ЗАДАНИЯ
 
 

 

 

 

АЛГОРИТМЫ С ВЕТВЛЕНИЯМИ ◊

Структура условного оператора Алгоритмы с ветвлениями.  Часть 1 Часть 2 Часть 3 Часть 4 Самостоятельная работа Часть 5 Часть 6 Операторные скобки. Составной оператор Оператор case Задачник

Конструкция ветвления- это часть алгоритма, в которой в зависимости от выполнения или невыполнения некоторого условия выполняется либо одна, либо другая последовательность действий.
    Алгоритм, в котором используется конструкция ветвления, называется алгоритмом с ветвлением.

Алгоритмы с ветвлениями. Часть 1

Контроль знаний

Тест: Структура условного оператора

Тест: Условный оператор

Вопросы для повторения:

1. Какие формы записи оператора if вам известны?

2. Объясните исполнение оператора if.

Условия, используемые при составлении алгоритмов с ветвлениями

x mod 2 = 0

x число четное

x mod 2 = 1

x число не четное

x mod 2 <>0

x число не четное

x mod 3 = 0

x число кратное 3

x mod 4 = 0

x число кратное 4

.....

.....

x mod 9 = 0

x число кратное 9

x > 0

х число положительное

x < 0

х число отрицательное

a=int(a)

а число целое

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

  Пример 1. Задано число a. Кратно ли оно 3.

 

Этапы выполнения задания.

I. Определение исходных данных: переменная а.

II. Определение результатов: сообщение кратно число или нет.

III. Алгоритм решения задачи.

1.  Ввод исходных данных

2. Проверка условия a mod 3 = 0 , если условие выполняется, то  число кратно 3, иначе число не кратно 3.

3. Вывод результата.

IV. Описание переменных:

Переменная типа longint.

V. Программа:

 

program zadacha_1;

var а:longint;

Begin

   writeln(' Введите число'); readln(а);

   if a mod 3 =0 then writeln(a,' кратно 3’)

                       else  writeln(a,' не кратно 3’); 

End.

Можешь загрузить!       Пример 1

VI. Тестирование программы:

1. Запустите программу.

введите значение х Проверьте, результат должен быть следующим:
3 3 кратно 3
36 36 кратно 3
0 0 не кратно 3
1 1 не кратно 3

2. Поэкспериментируйте с программой вводя различные значения.

3. Вместо условия a mod 3=0 напишите условие int(a/3)=a/3. Придумайте свои условия и проверьте их правильность.

 

  Пример 2. Дано число. Дать характеристику числа:

  • положительное, отрицательное;

  • чётное, нечётное;

  • целое, не целое.

Этапы выполнения задания.

I. Определение исходных данных: переменная а.

II. Определение результатов: характеристика числа.

III. Алгоритм решения задачи.

1.  Ввод исходных данных

2. Проверка условия a<0, если условие выполняется, то k:='отрицательное', иначе k:=' положительное'. Проверка условия a=int(a), если условие выполняется, то  m:=' целое', иначе m:='не целое'. Проверка условия a/2=int(a/2), если условие выполняется, то  p:=' чётное', иначе p:=' нечётное '.

3. Вывод результата.

IV. Описание переменных:

Переменная a типа real, переменные k,m,p имеют тип string.

V. Программа:

 

program zadacha_2;

var a:real; k,m,p:string;

Begin writeln('Введите число'); readln(a);

   if a<0 then k:='отрицательное' else k:=' положительное';

  if a=int(a) then m:=' целое' else m:='не целое';

  if a/2=int(a/2) then p:=' чётное' else p:=' нечётное ';

  writeln('число ',a,' - ',k,' ; ',m,' ; ',p);

End.

Можешь загрузить!       Пример 2

VI. Тестирование программы:

1. Запустите программу и введите значение: а=9.

Проверьте, результат должен быть следующим:

число 9 - положительное ; целое ; нечётное

2. Поэкспериментируйте с программой вводя различные значения.

 

  Пример 3. Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных.

Этапы выполнения задания.

I. Определение исходных данных: переменные x, y, z.

II. Определение результатов: сумма.

III. Алгоритм решения задачи.

1.  Ввод исходных данных

2. Проверка условия x>0, если условие выполняется, то  sum:=sum+x. Аналогично проверяются условия с y и z.

3. Вывод результата.

IV. Описание переменных:

Все переменные, определенные для решения задачи, имеют тип real.

V. Программа:

 

program zadacha_6;

var x,y,z,sum:real;

Begin writeln('Введите три числа'); readln(x,y,z);

   sum:=0;

   if x>0   then  sum:=sum+x;

   if y>0   then  sum:=sum+y;

   if z>0   then  sum:=sum+z;

   writeln('сумма положительных чисел = ',sum);

End.

Можешь загрузить!       Пример 3

VI. Тестирование программы:

1. Запустите программу и введите значение: x=2,y=-4,z=9.

Проверьте, результат должен быть следующим:

сумма положительных чисел = 11

2. Поэкспериментируйте с программой вводя различные значения.

  Проверка знаний  

Тест: Алгоритмы с ветвлениями 1

Тест: Алгоритмы с ветвлениями 2

Задачи для самостоятельного решения

  1. Задано натуральное число a. Является ли оно чётным? Решите задачу a) используя операцию mod; b) используя функцию int.

  2. Задано натуральное число a. Является ли оно кратным 7?

  3. Задано натуральное число a. Заканчивается ли оно на 0?

  4. Дано трехзначное число. Кратна ли сумма его цифр шести?

  5. Дано целое число a>9. Больше ли цифра десятков цифры единиц?

  6. Дано двузначное число. Является ли сумма его цифр              a) однозначным числом; b) двузначным числом.

  7. Задано двухзначное число. Дайте характеристику числа по следующему плану:

    - сумма цифр числа;

    - число чётное (нечётное);

    - число большее (меньше) пятидесяти;

    - первая цифра равна (неравна) второй цифре.

  8. Даны два вещественных числа. Уменьшить первое число в пять раз, если оно больше второго по абсолютной величине.

  9. Заданы три числа x, y, z. Вычислить произведение только отрицательных чисел из трех данных.

  10. Заданы четыре целых числа x, y, z, w. Вычислить сумму только четных чисел из четырёх заданных.

  11. Дано три числа x, y, z. Вычислить количество чисел больших 7.

 

 

СЕРВИС 

Copyright © 2008 СОШ №2 им. Н.П. Массонова г.Свислочь © Синица А.А.