Transcript Лекция 6 - Начала программирования на Turbo Pascal 7.0

Шутилина Л.А.
[email protected]
В жизни часто приходится принимать
решения в зависимости от сложившейся
ситуации, когда нужно сделать тот или
иной выбор в зависимости от того,
выполняется
или
не
выполняется
некоторое условие.
Нет
Да
Условие
Действие 1
Действие 2
Полная (расширенная) форма оператора IF
If условие Then
Действие 1
Else
Действие 2;
Пример:
If A<B Then X:=A
Else X:=b;
Задача
Составить программу, которая выводит на экран
компьютера пример на умножение двух однозначных
чисел, запрашивает ответ пользователя, проверяет его
и выводит сообщение «Правильно» или «Вы
ошиблись» и в данном случае выводит правильный
результат.
Program Ex1;
Uses Crt;
Var m1, m2, p, otv: integer;
Begin
Randomize; {генератор случайных чисел < 1}
M1:=random(9)+1;
M2:=random(9)+1;
P:=m1*m2;
Writeln (‘Сколько будет’, m1, ‘ * ’, m2,’ ?’);
Writeln (‘Введите ответ ’)
Readln (otv);
If otv=p Then Writeln (‘Правильно’)
Else Writeln (‘Вы ошиблись ’, m1, ‘ * ’, m2,’ =’, p);
Readln;
End.
Нет
Условие
Да
Действие 2
Вторая серия команд в условном операторе может отсутствовать. При
этом признак ее начала – служебное слово Else – опускается.
Неполная команда ветвления выглядит так:
If условие Then действие;
Здесь при справедливости условия выполняется Действие 2, а если
условие нарушено, то сразу переходим к оператору, который следует за
условным оператором.
Задача 1
Составьте программу, удваивающую значение
целой переменной х, если х>5.
Решение
Если x > 5, то значение x
надо заменить на 2x.
В противном случае (x <= 5)
никаких действий
производить не нужно.
Program Ex3;
Var х : Integer;
Begin
Writeln (‘Введите число’);
Readln (x);
If x >5 Then x := x*2;
Writeln (‘x =', x);
End.
После ключевых слов Then и Else в условном операторе If выполняется
только одна команда, стоящая после них. Остальные же строки
выполняются вне зависимости от условных операторов, стоящих перед
ними.
Чтобы после ключевых слов Then или Else могла выполняться
необходимая последовательность операторов, они должны быть
заключены в операторные скобки – ключевые слова Begin и End.
Операторные скобки охватывают фрагмент исходного текста программы,
который необходимо считать одним оператором. В качестве операторов,
используемых в составном операторе, могут использоваться любые
операторы, допустимые в Турбо Паскале, в том числе условные
операторы.
Составной оператор:
Begin
оператор 1;
оператор 2;
…….
оператор n;
End;
Рассмотрим на примере:
Программа для нашего примера примет вид:
Program Pr4;
Var А,x: integer;
Begin
Writeln('Введите x')
Read (x);
If x<0 then А:=x+1
Else
If x<10
Then А := 2*x
Else А := 0;
Writeln (А);
End.
1. Написать программу, которая проверяет, делится ли на
3 целое число, введенное с клавиатуры.
2. Написать программу, которая вычисляет оптимальный
вес пользователя, сравнивает его с реальным и выдает
рекомендации о необходимости поправиться или
похудеть. Оптимальный вес вычисляется по формуле:
рост (в сантиметрах) – 100.
3. Из трех данных чисел выбрать наибольшее.