Программирование. Pascal ABC. Условный оператор


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

Условный операторВетвления в 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 - оператор, который будет выполняться, если условие ложно ЗадачаВвести два целых числа.Вывести на экран наибольшее из них.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.
Задача - 2program 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. Задача - 2program 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 отсутствует) ЗаданиеНайти наименьшее из 3-x чисел. Результат вывести на экран.Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. Результат вывести на экран.Ввести число. Если оно четное, умножить его на 5. Результат вывести на экран.Ввести 2 числа. Если их сумма больше 100, напечатать слово "МНОГО", в противном случае напечатать слово "МАЛО".

Приложенные файлы

  • pptx 6Uslovija
    Размер файла: 60 kB Загрузок: 7