Ветвление Полное ветвление Если УСЛОВИЕ то КОМАНДА 1 иначе КОМАНДА 2; IF УСЛОВИЕ THEN КОМАНДА 1 ELSE КОМAНДА 2;

Презентация:



Advertisements
Похожие презентации
Условный оператор. Алгоритм с ветвлением – это такой алгоритм, в котором осуществляется выбор одного из двух путей продолжения алгоритма. На TPascal данный.
Advertisements

21 ноября 2013 г. 10а класс. Оператор ветвления в полном варианте IF (условие) THEN (операторы) ELSE (операторы); условие - з- записывается с помощью.
Оператор ветвления. Для реализации ветвления в программе используют условный оператор (оператор ветвления). Условный оператор в полной форме записывается.
Самостоятельная работа по теме «Условный переход».
Во многих жизненных ситуациях принятие того или иного решения зависит от выполнения одного или нескольких условий. Виктор Михайлович Васнецов. Витязь.
Задание 1. Какое значение будет принимать переменная х после выполнения фрагмента программы? 1.f:=5; d:=7; if f>=d then x:=f else x:=d; Ответ: х=7 2.a:=5;
Алгоритмы ветвления. Условный оператор 9 класс. Повторение 1. Что такое алгоритм? 2. Какие типы алгоритмов вы знаете? 3. Какой алгоритм называется линейным?
Условный оператор (ветвление) (урок 5). Ветвление Если то иначе кон If then begin end else begin end;
Задачи по теме Организация ветвления на языке Паскаль урок для 9 класса Селиверстова Ольга Николаевна учитель информатики МБОУ СОШ 17 г.Саров Нижегородской.
Программирование ветвлений на Паскале. Оператор ветвления или условный оператор if then else if - " если ", then - " то ", else - " иначе "
Если прямо пойдешь, то… Ветвления на языке Pascal.
Урок в 10 классе Ветвление. Условный оператор. Сложные условия.
Условный оператор Информатика и ИКТ 9 класс Гимназия 1 г. Новокуйбышевска Учитель информатики: Красакова О.Н.
Алгоритмическая структура «Ветвление» Тема урока.
Pascal Алгоритмы разветвляющейся структуры, программирование на языке Pascal 10 «А» класс.
АЛГОРИТМ ВЕТВЛЕНИЯ ОПЕРАТОР ВЕТВЛЕНИЯ. Какая задача решается по этой программе? Program Z1: Var a,b,c: integer; Begin Write ( vv a,b:); Read (a,b); C:=(a+b)*(b-a);
Условный оператор. Составьте программу, определяющую, является ли число а кратным числу b. Var a, b: integer; Begin Writeln(введите два числа);
Программирование ветвлений на Паскале МОУ СОШ 2 городского округа город Буй Костромской области Учитель Щур А.Н.
Задача. Даны действительные числа A, B, C, D. Найти max(a,b,c), max(a,b,d), max(b,c,d). Написать программу решения задачи PROGRAM ex1; PROCEDURЕ Max (x,
Условный оператор Ширяева Ольга Мухадинновна, учитель информатики 1 категории, МОУ СОШ 2, г. Нягань, ХМАО-Югра.
Транксрипт:

Ветвление

Полное ветвление Если УСЛОВИЕ то КОМАНДА 1 иначе КОМАНДА 2; IF УСЛОВИЕ THEN КОМАНДА 1 ELSE КОМAНДА 2;

Ветвление (полное) услов ие Команда 2Команда 1

Неполное ветвление Если УСЛОВИЕ то КОМАНДА 1; IF УСЛОВИЕ THEN КОМАНДА 1;

Ветвление (не полное) Команда 1 услов ие

Определите значение переменной с после выполнения следующего фрагмента программы: a := 25; b := 2; a := a * 4 / b; if a > b then c := a + 5 * b else c := a - 5 * b;

1) Дано два числа. Определить большее из них. Var a,b:integer; begin writeln (введи два числа); readln (a,b); IF a>b THEN writeln (первое число больше) ELSE writeln (второе число больше); end.

2) Дано три числа. Определить большее из них. Var a,b,c:integer; begin writeln (введи три числа); readln (a,b,c); IF (a>b) and (a>c) THEN writeln (больше 1); IF (b>a) and (b>c) THEN writeln (больше 2); IF (c>b) and (c>a) THEN writeln (больше 3); end.

3) Дано три числа. Определить какие из них кратны одиннадцати. Var a,b,c:integer; begin writeln (введи три числа); readln (a,b,c); IF a mod 11=0 THEN writeln (да) ELSE writeln(нет); IF b mod 11=0 THEN writeln (да) ELSE writeln(нет); IF c mod 11=0 THEN writeln (да) ELSE writeln(нет); end.

4) Известны три стороны треугольника. Определить является ли треугольник прямоугольным. Var a,b,c:integer; begin writeln (введи три стороны треугольника); readln (a,b,c); IF (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) THEN writeln (прямоугольный) ELSE writeln(не прямоугольный); end.