Презентации "Изучаем Pascal"

Условный оператор Ветвления в Pascal

Задача Ввести два целых числа. Вывести на экран наибольшее из них.Начало программы понятно: program z; uses crt; var a,b:integer; begin   readln(a,b); … Ввести два целых числа.Вывести на экран наибольшее из них.

Задача Идея: Надо вывести первое число, если оно больше второго, или вывести второе, если оно больше первого. Особенность: Компьютер должен как-то сравнить числа и выполнить действия в зависимости от результата сравнения: •Вывести первое число •Вывести второе число

Сравнения Сравнения данных как и в математике выполняются при помощи операций отношения: = равно > больше < меньше >= больше или равно <= меньше или равно <> не равно

Условия Операцию сравнения в программировании называют условием. Условие может принимать только одно из двух значений: истина или Например: ложь. 10 > 5 – истина 3 = 6 – ложь 11 <= 22 – истина 7 <> 7 – ложь

Условный оператор Условный оператор может иметь две формы: Полную и неполную. Рассмотрим сначала полную форму: if условие then оператор1 else оператор2; Условие – операция сравнения Оператор1 – оператор, который будет выполняться, если условие истинно Оператор2 - оператор, который будет выполняться, если условие ложно if условие then оператор1 else оператор2;

Задача Ввести два целых числа. Вывести на экран наибольшее из них. program z; uses crt; var a,b:integer; begin   readln(a,b);   if a>b then writeln(a) else writeln(b); end. А если нужно найти наименьшее из них? Ввести два целых числа.Вывести на экран наибольшее из них.А если нужно найти наименьшее из них?

Задача - 2 Ввести три целых числа. Вывести на экран наибольшее из них.Начало программы пока ясно: program z; uses crt; var a,b,c:integer; begin   readln(a,b,c);   if a>b then … Выводить пока ничего не нужно… Надо запомнить наибольшее значение из a и b в какой-то другой переменной, например max. Ввести три целых числа.Вывести на экран наибольшее из них.Выводить пока ничего не нужно…Надо запомнить наибольшее значение из a и b в какой-то другой переменной, например max.

Задача - 2 program z; uses crt; var a,b,c,max:integer; begin   readln(a,b,c);   if a>b then max:=a else max:=b; Теперь в переменной max находится наибольшее значение из a и b. Остается сравнить значение max с переменной c. Теперь в переменной max находится наибольшее значение из a и b. Остается сравнить значение max с переменной c.

Задача - 2 program z; uses crt; var a,b,c,max:integer; begin   readln(a,b,c);   if a>b then max:=a else max:=b;   if c>max then max:=c;   writeln(max); end. Неполная форма условного оператора (else отсутствует)

2. Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. Результат вывести на экран. Задание 1. Найти наименьшее из 3-x чисел. Результат вывести на экран. 3. Ввести число. Если оно четное, умножить его на 5. Результат вывести на экран. 4. Ввести 2 числа. Если их сумма больше 100, напечатать слово Задание