Полная (расширенная)форма оператора IF
If логическое выражение Then
оператор 1Else
оператор 2;
Пример:
If AElse X:=b:
Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Условный оператор
Содержание
- 1. Условный оператор
- 2. Слайд 2
- 3. Для записи на языке Турбо-Паскаль разветвляющихся алгоритмов
- 4. Слайд 4
- 5. Составить программу, которая выводит на экран компьютера
- 6. Program Pr6;Uses Crt;Var m1, m2, p, otv:
- 7. Вторая серия команд в условном операторе может
- 8. Пример 2 Составьте программу, удваивающую значение
- 9. Выполнив эту программу, вы заметите, что подчеркнутые
- 10. Слайд 10
- 11. Способы ветвления алгоритма на несколько рукавов.
- 12. Один из способов реализации ветвления на несколько рукавов – использование вложенных операторов IFРассмотрим этот способ на примере:
- 13. Программа для нашего примера примет вид:Program Pr4;Var a,x: integer;Begin Writeln('Введите x')Read (x);If x
- 14. Пример 5 Составьте программу, определяющую наибольшее значение
- 15. Сравнение строк
- 16. Пример 6.Составить программу, проверяющую правильность пароляПредположим, что
- 17. Пример 7.Составить программу, которая предлагает Ивану-Царевичу выбрать
- 18. Сегодня мы узнали:Ветвление на три и более
- 19. Оператор варианта case … ofcase выражение
- 20. Пример: case a of
- 21. Задание :Написать программу, которая проверяет, делится ли
- 22. Скачать презентанцию
Для записи на языке Турбо-Паскаль разветвляющихся алгоритмов используется условный оператор Полная (расширенная)форма оператора IFIf логическое выражение Then оператор 1Else оператор 2;Пример:If A
Слайды и текст этой презентации
Слайд 3Для записи на языке Турбо-Паскаль разветвляющихся алгоритмов используется условный оператор
оператор 1
Else
оператор 2;
Пример:
If AElse X:=b:
Слайд 5Составить программу, которая выводит на экран компьютера пример на умножение
двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит
сообщение «Правильно» или «Вы ошиблись» и правильный результат.Пример 1
Слайд 6Program Pr6;
Uses Crt;
Var m1, m2, p, otv: integer;
Begin
Randomize;
M1:=random(9)+1;
M2:=random(9)+1;
P:=m1*m2;
Writeln (‘Сколько будет’,
m1, ‘ x ’, m2,’ ?’);
Writeln (‘Введите ответ и нажмите
Readln (otv);
If otv=p Then Writeln (‘Правильно’)
Else Writeln (‘Вы ошиблись ’, m1, ‘ x ’, m2,’ =’, p);
Readln; End.
Слайд 7Вторая серия команд в условном операторе может отсутствовать. При этом
признак ее начала – служебное слово Else – опускается.
Неполная команда ветвления
выглядит так:If условие Then действие; Здесь при справедливости условия выполняется действие, а если условие нарушено, то сразу переходим к оператору, который следует за условным оператором.
Слайд 8Пример 2
Составьте программу, удваивающую значение целой переменной а,
если а>5.
Решение
Если а > 5, то значение а надо заменить
на 2а. В противном случае (а <= 5) никаких действий производить не нужно.Program Pr2;
Var а : Integer;
Begin
WriteLn (‘Введите число’);
ReadLn (а);
If а >5 Then а := а*2;
WriteLn (‘а =', а);
End.
Слайд 9Выполнив эту программу, вы заметите, что подчеркнутые строки выполняются вне
зависимости от того, какие числа вы ввели. Такая ошибка связана
с тем, что после ключевого слова Then в условном операторе If выполняется только одна команда, стоящая после него. Остальные же строки выполняются вне зависимости от условных операторов, стоящих перед ними.Использование нескольких команд после слов Then и Else
Слайд 12Один из способов реализации ветвления на несколько рукавов – использование вложенных
операторов IF
Рассмотрим этот способ на примере:
Слайд 13Программа для нашего примера
примет вид:
Program Pr4;
Var a,x: integer;
Begin
Writeln('Введите
x')
Read (x);
If x
If x<10 Then a := 2*x
Else a := 0;
Writeln (a);
End.
Слайд 14Пример 5
Составьте программу, определяющую наибольшее значение переменных X,Y,Z.
Program Pr5;
Var
x, y, z, p: integer;
Begin
WriteLn (‘Задайте значения x, y, z’);
ReadLn
(x, y, z);p:=x;
If p
ReadLn;
End.
Второй способ реализации ветвления на несколько рукавов – использование нескольких неполных операторов IF
Слайд 16Пример 6.
Составить программу, проверяющую правильность пароля
Предположим, что пароль – это
слово «груша». Программа запрашивает у пользователя пароль, сравнивает его с
нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт.Program Pr6;
Var parol :string;
Begin
WriteLn (‘Какой пароль?’);
ReadLn (parol);
If parol=‘груша’
then
writeLn (‘Доступ для Вас открыт’)
Else
writeLn (‘Доступ закрыт!!!’);
ReadLn;
End.
Слайд 17Пример 7.
Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути.
У
Ивана-Царевича есть три варианта дальнейшего пути:
направо,
налево,
вперед.
Program Pr7;
Var p :string;
Begin
WriteLn
(‘Куда путь держишь?’);ReadLn (p);
If p=‘направо’ then writeLn (‘Коня потеряешь’);
If p=‘налево’ then writeLn (‘Голову сложишь’);
If p=‘прямо’ then writeLn (‘Невесту найдешь’);
ReadLn;
End.
Слайд 18Сегодня мы узнали:
Ветвление на три и более рукава можно организовывать
с помощью вложенных команд IF, нескольких неполных команд IF, а
также, комбинируя обе возможности.Сравнение строк на компьютере основано на том, что каждый символ имеет свой АSСII-код, и при сравнении строк сравниваются коды составляющих их символов.
Слайд 19Оператор варианта case … of
case выражение of
Р1 :
1>;
P2 : ;
…
Pn : ;
[else :
<оператор>]end;
case выражение of
Р1 : <оператор 1>;
P2 : <оператор 2>;
…
Pn : <оператор n>;
[else : <оператор>]
end;
Слайд 20Пример:
case a of
4
: writeln(‘4’);
5, 6
: wtiteln(‘5 или 6’);7 . . 12 : writeln(‘от 7 до 12’);
end;
Слайд 21Задание :
Написать программу, которая проверяет, делится ли на 3 целое
число, введенное с клавиатуры.
Написать программу, которая вычисляет оптимальный вес
пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – 100.Из трех данных чисел выбрать наибольшее.
