09.12.09 Оператор ветвления (условный оператор) Я услышал и забыл. Увидел ...
Проверка домашнего задания1. Найдите периметр пятиугольникаprogramm 1;begin var a, b, c, d, e, P: integer writeln (‘введ...
program _1;var a, b, c, d, e, P: integer; begin writeln (‘введите стороны пятиугольника’); readln (a,b,c,d,e); P:...
2. Найдите значение выражения 5х2-10х+2 для любого значения хprogram _2;var x, y: integer; begin ...
program _2;var x, y: real; begin writeln (‘введите любое число’); readln (х); y:=5*х^2-10*х+2; writeln (‘значе...
Проверим свои знанияТестирование за ПК
Скажите, с точки зрения алгоритмизации и программирования, что написано на камне? ...
Разветвляющийся алгоритм – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовате...
Основные варианты структуры ветвления: если - то; если – то - иначе; ...
Задача. Да Нет A>B ? B:=B*2 Оператор ветвления в неполной форме
Запись команды ветвленияна языке программирования Pascal
IF (условие) THEN (операторы); IF A>B THEN B:=В*2;
Задача. Из двух чисел найти максимальное. Да Нет A>B ...
IF (условие) THEN (операторы) ELSE (операторы);условие записывается с помощью знаков сравнения и при...
Запишем решение этой задачи на Паскалеprogram maximym;var A, B, max: integer; begin writeln (‘введите любые два числа’)...
Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить ...
Практическая работа в среде Turbo Pascal 1. Проверить работу программы program maximym; var A, B, max: integer; begin ...
Домашнее задание Задача. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увели...
Ответьте на вопросы Что нового вы узнали на уроке? С какими трудностями встретились на уроке? Что понравилось ...
Урок оконченСпасибо всем!
of 20

Pri3

Published on: Mar 4, 2016
Source: www.slideshare.net


Transcripts - Pri3

  • 1. 09.12.09 Оператор ветвления (условный оператор) Я услышал и забыл. Увидел и запомнил. Сделал и понял! Чарльз Бэббидж
  • 2. Проверка домашнего задания1. Найдите периметр пятиугольникаprogramm 1;begin var a, b, c, d, e, P: integer writeln (‘введите стороны пятиугольника’); readln (a,b,c,d,e) P:=a+b+c+d+e; Writeln (‘периметр пятиугольника =‘ P);end
  • 3. program _1;var a, b, c, d, e, P: integer; begin writeln (‘введите стороны пятиугольника’); readln (a,b,c,d,e); P:=a+b+c+d+e; writeln (‘периметр пятиугольника =‘, P); end.
  • 4. 2. Найдите значение выражения 5х2-10х+2 для любого значения хprogram _2;var x, y: integer; begin writeln (‘введите любое число’); readln (х); y=5х2-10х+2; readln (‘значение выражения =‘, y); end.
  • 5. program _2;var x, y: real; begin writeln (‘введите любое число’); readln (х); y:=5*х^2-10*х+2; writeln (‘значение выражения =‘, y); end.
  • 6. Проверим свои знанияТестирование за ПК
  • 7. Скажите, с точки зрения алгоритмизации и программирования, что написано на камне? Направо пойдѐшь - коня потеряешь, налево пойдѐшь – жизнь потеряешь. В. Васнецов “Витязь на распутье”, 1882 г.
  • 8. Разветвляющийся алгоритм – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий.
  • 9. Основные варианты структуры ветвления: если - то; если – то - иначе; ПолнаяНеполна формая форма нет да нет да условие условиесерия команд 1 серия команд 1 серия команд 2
  • 10. Задача. Да Нет A>B ? B:=B*2 Оператор ветвления в неполной форме
  • 11. Запись команды ветвленияна языке программирования Pascal
  • 12. IF (условие) THEN (операторы); IF A>B THEN B:=В*2;
  • 13. Задача. Из двух чисел найти максимальное. Да Нет A>B ? A - максимальное В - максимальное Оператор ветвления в полной форме
  • 14. IF (условие) THEN (операторы) ELSE (операторы);условие записывается с помощью знаков сравнения и принимает два значения: да или нет IF A>B THEN max:=A ELSE max:=B;
  • 15. Запишем решение этой задачи на Паскалеprogram maximym;var A, B, max: integer; begin writeln (‘введите любые два числа’); readln (A,B); if A>B then max:=A else max:=B; writeln (‘ максимальное число‘, max); end.
  • 16. Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. If x>0 then y:=x-50 else y:=x+100;Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран. If a*b<0 then y:=a*b*(-2) else y:=a*b*3;Задача № 3: Ввести 2 числа. Вычесть из большего меньшее. If A>B then C:=A-B;Задача № 4: Ввести число. Если оно больше 8, разделить его на 4, если меньше или равно 8, то умножить на 5. If x>8 then y:=x/4 else y:=x*5;
  • 17. Практическая работа в среде Turbo Pascal 1. Проверить работу программы program maximym; var A, B, max: integer; begin writeln (‘введите любые два числа’); readln (A,B); if A>B then max:=A else max:=B; writeln (‘ максимальное число‘, max); end. 2. Записать программу для любой задачи (задачи из карточки), используя составленные конструкции оператора ветвления и проверить в среде TP.
  • 18. Домашнее задание Задача. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.Написать программыдля любых двух задачиз карточки.
  • 19. Ответьте на вопросы Что нового вы узнали на уроке? С какими трудностями встретились на уроке? Что понравилось на уроке?
  • 20. Урок оконченСпасибо всем!

Related Documents