Transcript Презентация

Ветвление
• Ветвление – участок программы,
позволяющий выбрать для исполнения, в
зависимости от истинности условия, одну
из двух групп команд.
• If - ЕСЛИ
• Then – ТО (ТОГДА)
• Else - ИНАЧЕ
Вася собирает древние монеты. Он
приобрел а динариев и b сестерциев
разного достоинства и года выпуска.
Хватит ли ему места в альбоме, если
там всего с ячеек для монет?
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.
•
•
•
Ветвление в данной задаче является
полным, поскольку используется все
команды( ЕСЛИ, ТО, ИНАЧЕ).
Если ветвление организуется с
помощью команд ЕСЛИ-ТО, то оно
является неполным.
Любая ветвь может быть не линейным
участком программы, а сама
содержать ветвление. Такое ветвление
называется вложенным.
В первом магазине хозяйка приобрела а кг
помидор. Их оказалось b штук. Во
втором магазине – с кг. Их – d штук. В
каком магазине помидоры крупнее?
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.
• Задача 3: Определить, является ли одно из
двух введенных чисел делителем другого.
Примеры программ
10 класс
Пример 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.
Пример 2. Сравнение строк
Составить программу, проверяющую правильность пароля
Предположим, что пароль – это слово «груша». Программа
запрашивает у пользователя пароль, сравнивает его с нашим
паролем. Если пользователь ввел правильный пароль, то для него
доступ открыт, а если пароль не правильный, то доступ закрыт.
Program Pr6;
Var parol :string;
Begin
WriteLn (‘Какой пароль?’);
ReadLn (parol);
If parol=‘груша’
then
writeLn (‘Доступ для Вас открыт’)
Else
writeLn (‘Доступ закрыт!!!’);
ReadLn;
End.
Оператор множественного выбора
CASE
<Списки> могут быть заданы следующими способами:
Вид списка
Список, состоящий из
одного значения
‘a’
8
Список, содержащий
перечисление значений
1, 4, 5
‘a’, ‘b’,’*’,’@’
Список, содержащий
интервалы значений
1..5, 20..30
‘a’ ..’z’
Список, содержащий
смешанную форму
представления значений
1 .. 5, 15, 55
‘a’ ..’z’, ’A’, ’B’
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.
Домашнее задание
1. Написать программу, которая проверяет, делится ли на 3
целое число, введенное с клавиатуры.
2. Написать программу, которая вычисляет оптимальный
вес пользователя, сравнивает его с реальным и выдает
рекомендации о необходимости поправиться или
похудеть. Оптимальный вес вычисляется по формуле:
рост (в сантиметрах) – 100.
3* Составить программу, которая после введенного с
клавиатуры числа (в диапазоне от 1 до 99),
обозначающего денежную единицу, дописывает слово
«Копейка» в правильной форме. Например, 5 копеек, 41
копейка и т. д.