Презентация на тему Условный оператор. Сложные условия

Сложные условия язык программирования Pascal. Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж. нет Основные варианты структуры ветвления: если-то; если-то-иначе; серия команд 1 да да нет серия команд 1 серия команд 2 условие условие Запись команды ветвления на языке программирования Pascal.IF (условие) THEN (серия команд 1) ELSE (серия команд 2) Давайте решим такую задачу: Дано действительное число а. Вычислить f(a), если Решение: Program alg1; Var x,f:real; Beginwriteln(‘введите действительное число:’);readln(x); Решение: Program alg1; Var x,f:real; Beginwriteln(‘введите действительное число:’);readln(x); if x<=0 then f:=0 else if x<=1 then f:=sqr(x)-x else f:=sqr(x)-sin(Pi*x*x); Решение: Program alg1; Var x,f:real; Beginwriteln(‘введите действительное число:’);readln(x); if x<=0 then f:=0 else if x<=1 then f:=sqr(x)-x else f:=sqr(x)-sin(Pi*x*x); writeln(‘значение функции F(x) при x=‘,x,’равно’,f);End. Вопрос № 1.Что получается на экране в результате выполнения следующей группы операторов?a:=10;b:=20;write (a,’ ‘,a+b);c:=a*b;writeln (‘ ‘,c);Ответы:а) 15 10 100;б) 10 30 20;в) 10 30 200. Вопрос № 2 Каким будет результат работы разветвляющегося алгоритма? начало a:=10 a:=a/10 b:=100 c:=b/100 a=c z:=1 z:=0 z конец Ответы:а) 0;б) 1;в) 0,5. да нет Вопрос № 3 Program zadacha;Var x,y,z,m: real;beginwriteln (‘Введите x,y,z’);readln (x,y,z);if x >= y then if x >=z then m:=x else m:=zelse if y >= z then m:=y else m:=z;writeln (m);end. Ответы:а) нахождение min;б) нахождение max;в) нахождение ср. арифметического. Ответьте на вопросы Что нового вы узнали на уроке?С какими трудностями встретились на уроке? Как вы их преодолевали?Что понравилось на уроке. Домашнее задание Мы с вами знаем, что Санкт-Петербург менял свое название несколько раз. Составить программу которая на введенную дату выдает название города. Если:с 1703 – 1914 г. – Санкт Петербургс 1914 – 1924 г. Петроградс 1924 – 1991 г. Ленинградс 1991г. – Санкт Петербург