'

Ветвление

Понравилась презентация – покажи это...





Слайд 0

Ветвление


Слайд 1

Ветвление – участок программы, позволяющий выбрать для исполнения, в зависимости от истинности условия, одну из двух групп команд. If - ЕСЛИ Then – ТО (ТОГДА) Else - ИНАЧЕ


Слайд 2

Вася собирает древние монеты. Он приобрел а динариев и b сестерциев разного достоинства и года выпуска. Хватит ли ему места в альбоме, если там всего с ячеек для монет?


Слайд 3

Program money; Var A,b,c: integer; Begin Write(‘Сколько динариев купил Вася? ‘); readln(a); Write(‘Сколько сестерциев купил Вася? ‘); readln(b); Write(‘Cколько свободных ячеек в альбоме? ‘); readln(с); If a+b<=c then Writeln(‘Места в альбоме хватит’) Else Writeln(‘Места а альбоме не хватит’); Readln; End.


Слайд 4

Ветвление в данной задаче является полным, поскольку используется все команды( ЕСЛИ, ТО, ИНАЧЕ). Если ветвление организуется с помощью команд ЕСЛИ-ТО, то оно является неполным. Любая ветвь может быть не линейным участком программы, а сама содержать ветвление. Такое ветвление называется вложенным.


Слайд 5

В первом магазине хозяйка приобрела а кг помидор. Их оказалось b штук. Во втором магазине – с кг. Их – d штук. В каком магазине помидоры крупнее?


Слайд 6

Program magazin; Var A,b,c,d,m1,m2: real; Begin Write(‘Введите массу и количество помидор в первом магазине ‘); readln(a,b); Write(‘Введите массу и количество помидор во втором магазине ‘); readln(c,d); M1:=a/b; M2=c/d If m1>m2 then Writeln(‘в первом магазине помидоры крупнее’) Else If m1<m2 then Writeln(‘во втором магазине помидоры крупнее’) Else Writeln(‘помидоры одинаковые’); Readln; End.


Слайд 7

Задача 3: Определить, является ли одно из двух введенных чисел делителем другого.


Слайд 8

Примеры программ 10 класс


Слайд 9

Пример 1 Составьте программу, определяющую наибольшее значение переменных X,Y,Z. Program Pr5; Var x, y, z, p: integer; Begin WriteLn (‘Задайте значения x, y, z’); ReadLn (x, y, z); p:=x; If p<y then p:=y; If p<z then p:=z; WriteLn(‘Наибольшее значение =’, p:6); ReadLn; End.


Слайд 10

Пример 2. Сравнение строк Составить программу, проверяющую правильность пароля Предположим, что пароль – это слово «груша». Программа запрашивает у пользователя пароль, сравнивает его с нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт. Program Pr6; Var parol :string; Begin WriteLn (‘Какой пароль?’); ReadLn (parol); If parol=‘груша’ then writeLn (‘Доступ для Вас открыт’) Else writeLn (‘Доступ закрыт!!!’); ReadLn; End.


Слайд 11

Оператор множественного выбора CASE


Слайд 12

<Списки> могут быть заданы следующими способами:


Слайд 13

Program Pr; Var month: Integer; Begin Writeln (‘Введите номер месяца (число от 1 до 12) и нажмите <Enter>’); Read (month); Case month of 1, 2, 12: Writeln(‘Зима’); 3 . . 5: Writeln(‘Весна’); 6 . . 8: Writeln(‘Лето’); 9 . .11: Writeln (‘Осень’); Else Writeln (‘Ошибка ввода данных – число должно быть от 1 до 12’); End; End.


Слайд 14

Домашнее задание 1. Написать программу, которая проверяет, делится ли на 3 целое число, введенное с клавиатуры. 2. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100. 3* Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 41 копейка и т. д.


×

HTML:





Ссылка: