Информационные технологии

Меню

Реклама
Похожие статьи:

Популярные записи

1

  • Алгоритмы с разветвлениями. Команда IF

    - Рассмотреть команду разветвления в языке Паскаль и ее приложение во время составления простых программ из розгалуженями;

    - развивать алгоритмическое и логическое мышление на примерах конкретных задач;

    - воспитывать информационную культуру, культуру алгоритмической записи.

    Оборудование: переносная доска.

    Ход урока

    I Проверка домашньОго задание.

    избирательно проверяется домашнее задание у отдельных учеников.

    ии Актуализация опорных знаний.

    Устно рассматриваются задания, записанные на переносной доске, :

    1 Какое назначение функций trunk; round; операций mod, div?

    2 Что будет результатом выполнения таких операций :

    А 10div52;

    B 5+9mod53;

    C round5/3;

    E sqrt36

    F abs - 5;

    G abs2 - sqrt9;

    H cos1div2

    I sqr5 - 3;

    J sqrtabs - 9;

    K pred12;

    L succ23;

    M odd100.

    3 Или правильно записаны выражения:

    А м1+м2/м3; b sin2x+cosx?

    4 Как записать ?

    5 Записать выражение для вычисления суммы цифр трехзначительного числа А.

    иии Объявления темы и цели урока.

    ИV Изучение нового материала.

    1. Коротко рассказывается история возникновения алгоритмов с разветвлениями: команду разветвления для изменения порядка действий в алгоритме предложила еще 150 лет тому назад дочь Дж. Байрона, Ада Лавлейс, которая считается первой программист творю в мире. Ее идеи реализовали лишь через 100 лет. Так возникли алгоритмы с разветвлениями.

    2. Разветвление - это алгоритмическая конструкция, где проверяется условие и в зависимости от ее истинности или ошибочности выполняется но другая серия ли команд.

    Разветвления бывают несколько видов:

    1 полное; 2 неполное; 3 выбор.

    На данном уроке рассматриваем первые 2 вида разветвлений.

    Полное разветвление.

    Задачу формулируют так: нужно выполнить или команду 1, если условие истинно, или команду 2 если условие ошибочно.

    В НАМ, полная команда разветвления имеет такой вид:

    Если условие

    То серия команд 1

    Иначе серия команд 2

    Все

    Соответственно блок-схема полной команды разветвления имеет вид:

    В языке Паскаль полный условный оператор записывают так;

    IF логическое выражение then команда 1 else команда 2

    На месте команды 1 или команды 2 может быть также команда разветвления IF.

    Если после слов then или else надо записать не один, а несколько операторов то эти операторы берутся в так называемые операторные скобки begin, end.

    Пример Вычислить значение сложной функции Y для заданного значения Х формулой:

    Алгоритм

    Алг Функция

    арг дийсн х

    рез дийсн Y

    поч ввести х

    если х0

    то Y:=x+3

    иначе y:=x - 5

    Все

    PROGRAM F1;

    Var x, y: real;

    Begin

    Writeln 'Введите х:'

    Readln x;

    If x0 then y:=x+3

    Else y :=x - 5;

    Wrieteln'y=', y;

    End.

    Неполное разветвление.

    Неполное разветвление является частичным случаем полного. Соответствующую задачу формулируют так: выполнить серию операторов, если исполняется некоторое условие

    Если Условие

    То Серия команд

    Все

    Блок схема полного разветвления

    В языке Паскаль неполный условный оператор записывают так:

    IF логическое выражение then команда

    Пример 1. Квадратный корень величины В с учетом условия существования вычисляют так: if В=0 then d:=sgrtВ.

    Приклада 2. Рассмотрим операцию деления числа А на В. Результат обозначим D. Деление можно выполнить, если В 0, то есть if В0 then D:=A/в.

    V. Развязывание задач.

    1. Устно развязать задачу, записанную на переносной доске, :

    Какой результат выполнения программы Ех1, если ввести значение К Так: 3; 0?

    PROGRAM Ex1;

    Var k, m: integer;

    Begin writeln 'Введите К';

    Readln k;

    m:=7;

    if k2 then m:=kk;

    if k2 then m:=k+7;

    writelnm;

    End.

    2. Развязать квадратное уравнение А 0

    Ах +BХ+с=0

    ученик около доски

    PROGRAM Equation;

    Var a, b, c, x1, x2, d: real:

    Begin writeln 'Введите коэффициенты :';

    Readln a, b, c,;

    D:=bb - 4ac;

    If d0 then writeln 'корешей нет' else

    Begin

    X1 :=- b+sqrtd/2a;

    X2 :=- b - sgrtd/2a;

    Writeln 'корни есть': x1: 6:2, x2:6:2;

    End.

    End.

    Совершенствуем программу, уменьшив количество операций. Вследствие этого во внутренних операторных скобках запишем так:

    d:=sgrtd;

    A:=2a;

    X1 :=- b+d/a;

    X2 :=- b - d/a;

    Выполняем трассировку программы для некоторых входных данных, чтобы удостовериться в правильности программы.

    3. Увести целое число. Вывести сообщение или число парное, непарное ли.

    ученик около доски

    PROGRAM chyslo;

    Var a : integer;

    Begin writeln 'Введите целое число :';

    Readln a;

    If 2rounda/2=a then writeln 'число парное' else writeln 'число непарное';

    End.

    Как записать условие, используя операции mod; div?

    самостоятельно

    4. Составить программу, которая дает справку о названии столицы st и количестве населения nas, в миллионах некоторой страны kr из такого перечня: Венгрия, Италия, Греция, Турция, Египет, Бельгия, Россия.

    PROGRAM Countries;

    Var kr, st: string; nas: integer;

    Begin

    Write 'Уведить название страны'; readlnkr;

    If kr='Венгрия' then begin st:='Будапешт';nas:=11 end;

    If kr='Италия' then begin st:='Рим';nas:=60 end;

    If kr='Греция' then begin st:='Афины';nas:=10 end;

    If kr='Турция' then begin st:='Анкара';nas:=55 end;

    If kr='Египет' then begin st:='Каир';nas:=53 end;

    If kr='Бельгия then begin st:='Брюссель';nas:=10 end;

    If kr='Россия' then begin st:='Москва';nas:=85 end;

    Writeln 'Столица -' st,'населення -', nas, 'млн. лиц'

    End.

    Задание. Дополнить программу информацией об Украине.

    VI Итог урока.

    Вопрос к классу

    1 Какое действие команды полного разветвления?

    2 Какое действие команды неполного разветвления?

    3 Или можно ставить перед else знак ';'?

    4 Что значит усовершенствовать программу?

    VII Выставляются оценки за урок отдельным ученикам. Ученики записывают домашнее задание: п. 2.5, №15.