Тема «операторы ветвления» (урок 8 класс, информатика)

Е Н  Е Е ЛТ

06.12.2017 Операторы ветвления

AB A>= B А меньше В А меньше или равно В А равно В А больше В А больше или равно В A> B А не равно В

Имеет следующий вид:  Оператор  перехода GOTO <метка>. Все метки должны быть описаны в разделе  объявления меток следующим образом:  Label <список меток через запятую>; Например: Label metka,1;

Полный условный оператор IF If <условие>  then  <оператор1>  else   <оператор2>; Где  <условие>       ­  выражение  логического     типа; <оператор1>  ­ выполняется, если условие  верно; <оператор2>  ­ выполняется, если условие  неверно.

Всю структуру ветвления в программе можно  писать на одной строке, но удобнее располагать  условие и ветви структуры на разных строках.  Так программу лучше «видно». If <условие>       then  <оператор1>   else  <оператор2>;

Неполный условный оператор IF В условном операторе может отсутствовать блок  else  <оператор2>; в этом случае условный  оператор будет иметь вид: If <условие>                     then  <оператор1>; Например:        If a>0        then a:=sqr(a);

Пример:  вывести  на  экран  сообщение  о  том,  положительное число или отрицательное.  Program primer1;  uses crt;  var A:real;    begin       clrscr;       write ('Введите число A: ');       readln (A);        if A>0         then writeln(' Число положительное ')        else writeln(' Число отрицательное ');       readln;    end.

Вложенные условия Пример:   if A>0    then writeln (' Число положительное ')     else if A=0   then writeln(' Число 0')     else writeln(' Число отрицательное ');

Program primer1; uses crt; var A:real; begin clrscr; write ('Введите число A: '); readln (A); if A>0    then writeln (' Число положительное ')     else if A=0   then writeln(' Число 0')     else writeln(' Число отрицательное '); readln; end.

Операторный блок if m>n then  begin writeln(‘1­ый мешок больше, его вес:’, m:2:2); go to 1; end; if m

Важно помнить:  1) нельзя ставить ; перед словом «else»  2) при записи операторного блока каждое  зарезервированное слово begin должно  быть «закрыто» словом end, то есть  следует соблюдать правила вложенности  операторных скобок

n

Program primer2; uses crt; label 1; var m,n:real; begin clrscr; write ('Введите вес мешков m, n= '); readln (m, n); if m>n then  begin writeln('первый мешок больше, его вес:', m:2:2); goto 1; end; if m

Задача 1: напишите программу для  определения весовой категории в зависимости  от веса спортсмена.  Всего существует четыре весовые категории: Легкая – все спортсмена менее 62 кг; Средняя – от 62 до 74 кг; Тяжелая – от 75 до 87 кг; Сверхтяжелая – свыше 88 кг.

Задача 2: Оплата за электроэнергию производится  по следующему правилу: за потребленную  мощность до А кВт в месяц оплачиваются В  тенге за 1 кВт, а за потребленную энергию  сверхустановленной нормы оплачиваются  из расчета С тенге за 1 кВт. Напишите  программу, вычисляющую плату за  потребленную электроэнергию.