Условный оператор If Решение задач с использованием оператора. 20 марта Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж. - презентация

1 Условный оператор If Решение задач с использованием оператора. 20 марта Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж.

2 Цели урока: -углубление и закрепление материала по теме Условный оператор IF; -применение полученных знаний при решении задач различной направленности.

3 Запись команды ветвления на языке программирования Pascal. IF (условие) THEN (серия команд 1) ELSE (серия команд 2)

4 Обмен информацией : Разработать алгоритм и написать программу для следующей задачи : Ввести число. Если это число положительное, то на экран вывести сообщение "Положительное число". Если это число отрицательное, то на экран вывести сообщение "Отрицательное число".

5 Начало "Введите число" Ввод число Х Х>=0 "Положительное число""Отрицательное число" Конец =0 "Положительное число""Отрицательное число" Конец">

6 Program Р1; var х : integer; begin write ('Введите число'); readln (Х); if Х >= 0 then writeln ('Положительное число') else writeln ('Отрицательное число'); end.

7 Program Р1; var х : integer; begin write ('Введите число'); readln (х); if Х >= 0 then writeln ('Положительное число'); else writeln ('Отрицательное число'); end. Экспериментальная работа

8 Вывод на экран сообщения 'Число равно 0'

9 Тестовый опрос: 1. Что получается на экране в результате выполнения следующей группы операторов? a:=10; b:=20; write (a,,a+b); c:=a*b; writeln (,c); Ответы: а) ; б) ; в)

10 Вопрос 2. Какая запись верна? 1)Program zadaca 2)Programm zadaca 3)Program zadaca ;

11 Вопрос 3 Program zadacha; var x, y, max: real; begin writeln (Введите два числа); write (x); readln (x); write (y); readln (y); if x >= y then max:=x else max:=y; writeln (max, max); readln; end. Ответы: а) нахождение min; б) нахождение max; в) нахождение ср. арифметического.

12 Практическая работа Давайте решим такую задачу: Разработать программу, которая вычисляет значение заданной функции:

13 Решение: Program Р2; var x,у:real; begin writeln(х); readln(x); if x4 then y:= x+6 else y:= х-3; writeln (у, у); readln; end.

14 Закончи предложение (интервью) сегодня я узнал … было интересно … было трудно … я выполнял задания … я понял, что … теперь я могу … я почувствовал, что … я приобрел … я научился … у меня получилось … я смог … урок дал мне для жизни …

15 18б. – « 10 » 16-17б. – « 9 » 14-15б. – « 8 » 11-13б. – « 7 » 8-10б. – « 6 » 6-7б. – « 5 »

16 Домашнее задание Мы с вами знаем, что Санкт- Петербург менял свое название несколько раз. Составить программу которая на введенную дату выдает название города. Если: Мы с вами знаем, что Санкт- Петербург менял свое название несколько раз. Составить программу которая на введенную дату выдает название города. Если: с 1703 – 1914 г. – Санкт Петербург с 1703 – 1914 г. – Санкт Петербург с 1914 – 1924 г. Петроград с 1914 – 1924 г. Петроград с 1924 – 1991 г. Ленинград с 1924 – 1991 г. Ленинград с 1991г. – Санкт Петербург с 1991г. – Санкт Петербург

17 Стр. 89, упр. 4

18 Все получилось!!!

19 Было трудно, многое не понял

20 Был пассивен

21 Дополнительное задание. Написать программу: Используя оператор if…then…else составьте программу, которая бы в ответ на введённую оценку по информатике выводила на экран следующий текст: -если оценка «10», то «молодец, я тобой горжусь!» иначе « будь внимательней» -если оценка «9», то «я рад, надеюсь, будет хорошо» иначе «8» -если оценка «8», то «не ленись и всё получится» иначе « ты, наверное, не внимателен на уроках »

22 program usl_2; var x: char; Begin writeln ('какие оценки по информатике ты получаешь чаще всего?'); readln(x); if x=10 then writeln('молодец! Я тобой горжусь!') else writeln ( будь внимательней); if x=9 then writeln(я рад! Надеюсь будет ) else writeln (8); if x=8 then writeln('не ленись и всё получится! ') else writeln('ты, наверное не ходишь на уроки'); readln; end.