Оператор ветвления в Паскаль

Презентация содержит 11 слайдов.

Ветвление – форма организации действий, при которой в зависимости от условия выполняется одна, либо другая серия действий.

Условный оператор – это оператор, обеспечивающий в программе проверку условий и организацию ветвлений

Структура условного оператора

If <условие>then <действие 1> else <действие 2>

Если<условие>то<действие 1> иначе <действие 2>

Оператор ветвления

Условный оператор

Вопросы для повторения

Вопросы:

1. Назовите оператор и их значение:

Read

end

begin

Write

Readln

uses

Writeln

Var

Проверим домашнее задание:

Проверка домашнего задания

Y:= ((a*d)+(b-c))/(a*d)

Y:=b*b –(4*a*c)

Y:= (4* (a+d))/2

Y:= a/(b*c)

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

Если всей семьей купаться Вы отправились к реке, Не мешайте папе с мамой Загорать на берегу. Не устраивайте крика, Дайте взрослым отдохнуть. Ни к кому не приставая, Постарайтесь утонуть.

Если вы по коридору Мчитесь на велосипеде, А навстречу вам из ванной Вышел папа погулять, Не сворачивайте в кухню, В кухне - твердый холодильник. Тормозите лучше в папу. Папа мягкий. Он простит.

Г. Остер

Ветвление – форма организации действий, при которой в зависимости от условия выполняется одна, либо другая серия действий.

Условный оператор – это оператор, обеспечивающий в программе проверку условий и организацию ветвлений

Переход улицы

Схема условного оператора

Стоим

Да

Нет

Условие

Действие 1

Действие 2

Идем

Структура условного оператора

If then else

Если то иначе

b then writeln (‘Число «а» больше’) else writeln (‘Число «b» больше’); end. " width="640"

Задача 1. Даны два числа А и В. Найти наибольшее из них.

uses crt;

var a,b: integer;

begin

writeln(‘введи два числа’);

readln(a,b);

if ab then writeln (‘Число «а» больше’)

else writeln (‘Число «b» больше’);

end.

0 then x:=x+1 else x:=x-2; Даны два числа. Вывести меньшее из них. If _____ then ______ else Даны два числа. Если первое число больше второго, то посчитать сумму этих чисел, иначе найти их разность. If _____ then ______ else Даны два числа. Если они равны, то найти их произведение, иначе найти их среднее арифметическое. If _____ then ______ else " width="640"

Напишите условный оператор к задаче:

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

If x0 then x:=x+1 else x:=x-2;

Даны два числа. Вывести меньшее из них.

If _____ then ______ else

Даны два числа. Если первое число больше второго, то посчитать сумму этих чисел, иначе найти их разность.

If _____ then ______ else

Даны два числа. Если они равны, то найти их произведение, иначе найти их среднее арифметическое.

If _____ then ______ else

Задача 2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

uses crt;

Var x:integer;

begin

writeln (‘Введите число') ;

Readln (x);

If … then … else …;

Writeln (x);

end .

Домашнее задание.

• Выучить условный оператор.
• Выучить знаки отношений.