ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

Содержание

1. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ
2. Ключевые словаусловный операторнеполный условный операторсоставной операторвложенные ветвления
3. Общий вид условного оператораПеред else знак «;»
4. Условный операторuses crt; var x, a, b:
5. Неполный условный операторuses crt; var max, a,
6. Составной операторВ условном операторе и после then,
7. Блок-схема решения КВУРКонецВывод «Корни уравнения:х1=», х1, «х2=»,
8. begin
9. Вложенные ветвления if then
10. Решение линейного уравненияprogram n_12; var a, b,
11. Самое главноеПри записи на языке Паскаль разветвляющихся
12. Вопросы и заданияКак на языке Паскаль записывается
13. Опорный конспектУсловный операторif then else if then begin endПолная формаНеполная формаСоставной оператор
14. Скачать презентанцию

Ключевые словаусловный операторнеполный условный операторсоставной операторвложенные ветвления

Главная
Разное
ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

Слайды и текст этой презентации

Слайд 1ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ

Слайд 2Ключевые слова
условный оператор
неполный условный оператор
составной оператор
вложенные ветвления

Слайд 3Общий вид условного оператора
Перед else знак «;» не ставится.
Полная форма

условного оператора:
if then else
Неполная форма условного оператора:
if

<условие> then <оператор>

Операции
отношений

Логические
операции

Простые

Сложные

Условия - логические выражения

Общий вид условного оператораПеред else знак «;» не ставится.Полная форма условного оператора:if then else Неполная форма условного

Слайд 4Условный оператор
uses crt;
var x, a, b: real;
begin
writeln ('Определение

принадлежности

точки отрезку');
write ('Введите а, b:');
readln (a, b);
write ('Введите x:');
readln (x);
if (x>=a) and (x<=b) then
writeln ('Точка принадлежит отрезку')
else writeln ('Точка не принадлежит отрезку')
еnd.

Слайд 5Неполный условный оператор
uses crt;
var max, a, b, c: integer;
begin

writeln ('Нахождение наибольшей из трёх величин');
write ('Введите а, b,

с:');
readln (a, b, c);
max:=a;
if (b>max) then max:=b;
if (c>max) then max:=c;
writeln (‘max=', max)
end.

Неполный условный операторuses crt; var max, a, b, c: integer;begin writeln ('Нахождение наибольшей из трёх величин'); write

Слайд 6Составной оператор
В условном операторе и после then, и после else

можно использовать только один оператор.
Если в условном операторе после

then или после else
нужно выполнить несколько операторов, то
используют составной оператор – конструкцию вида:
begin <последовательность операторов> end

Составной операторВ условном операторе и после then, и после else можно использовать только один оператор. Если в

Слайд 7Блок-схема решения КВУР
Конец
Вывод
«Корни уравнения:
х1=», х1, «х2=», х2
х1:=(-b+sqrt(d))/2/a
Начало
Введите коэффициенты

a, b, c
d:=bb-4a*c
d < 0
да
Вывод
«Корней нет»
нет
d:= 0
да
x:=-b/2/a
Вывод
«Корень уравнения х=», х
нет
х2:=(-b-sqrt(d))/2/a

Блок-схема решения КВУРКонецВывод «Корни уравнения:х1=», х1, «х2=», х2х1:=(-b+sqrt(d))/2/aНачало Введите коэффициенты a, b, cd:=b*b-4*a*cd < 0даВывод«Корней нет»нетd:= 0даx:=-b/2/aВывод«Корень

Слайд 8 begin
x1:=(-b+sqrt(d))/2/a;

x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');

writeln ('x1=', x1:9:3);
writeln ('x2=', x2:9:3)
end

begin
x:=-b/2/a;
writeln ('Корень уравнения x=', x:9:3)
end

program n_11;
var a, b, c: real;
var d: real;
var x, x1, x2: real;
begin
writeln ('Решение квадратного уравнения');
write ('Введите коэффициенты a, b, c >>');
readln (a, b, c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет')
else
if d=0 then

else

end.

begin x1:=(-b+sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a; writeln ('Корни

Слайд 9Вложенные ветвления

if then

if <условие2> then <оператор1>
else <оператор2>
else <оператор3>

else всегда относится к ближайшему оператору if

Слайд 10Решение линейного уравнения
program n_12;
var a, b, x: real;
begin
writeln

('Решение линейного уравнения');
write ('Введите коэффициенты a , b>>');
readln

(a, b);
if a<>0 then
begin
x:=-b/a;
writeln ('Корень уравнения x=', x:9:3)
end
else if b<>0 then writeln ('Корней нет')
else writeln ('x – любое число');

end.

Решение линейного уравненияprogram n_12; var a, b, x: real;begin writeln ('Решение линейного уравнения'); write ('Введите коэффициенты a

Слайд 11Самое главное
При записи на языке Паскаль разветвляющихся алгоритмов используют условный

оператор:
if then else
Для записи неполных ветвлений используется

неполный условный оператор:
if <условие> then <оператор>
Если при некотором условии требуется выполнить определённую последовательных операторов, то их объединяют в один составной оператор, имеющий вид:
begin <последовательность операторов> end

Самое главноеПри записи на языке Паскаль разветвляющихся алгоритмов используют условный оператор:if then else Для записи неполных ветвлений

Слайд 12Вопросы и задания
Как на языке Паскаль записывается полное и неполное
ветвление?

Является ли условным оператором последовательность символов?
а) if x

else read (y)
б) if x>=y then x:=0; y:=0 else write (z)
в) if x

Что такое составной оператор?
Для чего он используется в условном операторе?

Используя составной оператор, упростите следующий фрагмент программы:
if a>b then c:=1;
if a>b then d:=2;
if a<=b then c:=3;
if a<=b then d:=4

Дано трёхзначное число.
Напишите программу, которая определяет:

есть ли среди цифр заданного целого трёхзначного числа одинаковые;

является ли число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Даны две точки в плоской прямоугольной системе координат. Напишите программу, определяющую, которая из точек находится ближе к началу координат.

Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон.
Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).

Имеются данные о количестве полных лет трёх призёров спартакиады.
Напишите программу, выбирающую и выводящую возраст самого младшего призёра.

Напишите программу, определяющую, лежит ли точка
А(ха, ya):
а) на прямой y = kx + l, над ней или под ней;

Напишите программу, которая производит обмен
значений переменных x и y, если x больше y.

Дан условный оператор:
If a<5 then c:=1
else if a>5 then c:=2
else c:=3
Какое значение имеет переменная а, если в результате выполнения условного оператора переменной с присваивается значение 3?

Напишите программу, вычисляющую значение функции:

-1 при x<0
0 при x=0
1 при x>0

y =

Составьте программу для решения задачи:
Известно, что 31 января 2011 года приходится на понедельник. Какие значения должны быть присвоены литерной переменной y в алгоритме, определяющем день недели для любого числа (chislo) января 2011 года?
chislo:= chislo mod 7
если chislo=3 то у:='…‘
если chislo=4 то у:='…‘
если chislo=5 то у:='…‘
если chislo=6 то у:='…‘
если chislo=0 то у:='…‘
если chislo=1 то у:='…‘
если chislo=2 то у:='…‘

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8.
Напишите программу, которая по введённым координатам двух полей (k, l) и (m, n) определяет, являются ли эти поля полями одного цвета.

Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а - случайное число, меньшее 100).
Ответ пользователя проверяется и комментируется.

Вопросы и заданияКак на языке Паскаль записывается полное и неполноеветвление? Является ли условным оператором последовательность символов?а) if

Слайд 13Опорный конспект
Условный оператор
if then else
if then

begin end
Полная форма
Неполная форма
Составной оператор

Скачать презентацию

Разделы презентаций

ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

Содержание

Слайды и текст этой презентации

Слайд 1ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ

Слайд 2Ключевые слова
условный оператор
неполный условный оператор
составной оператор
вложенные ветвления

Слайд 3Общий вид условного оператора
Перед else знак «;» не ставится.
Полная форма

условного оператора:
if then else
Неполная форма условного оператора:
if

Слайд 4Условный оператор
uses crt;
var x, a, b: real;
begin
writeln ('Определение

принадлежности

Слайд 5Неполный условный оператор
uses crt;
var max, a, b, c: integer;
begin

writeln ('Нахождение наибольшей из трёх величин');
write ('Введите а, b,

Слайд 6Составной оператор
В условном операторе и после then, и после else

можно использовать только один оператор.
Если в условном операторе после

Слайд 7Блок-схема решения КВУР
Конец
Вывод
«Корни уравнения:
х1=», х1, «х2=», х2
х1:=(-b+sqrt(d))/2/a
Начало
Введите коэффициенты

a, b, c
d:=bb-4a*c
d < 0
да
Вывод
«Корней нет»
нет
d:= 0
да
x:=-b/2/a
Вывод
«Корень уравнения х=», х
нет
х2:=(-b-sqrt(d))/2/a

Слайд 8 begin
x1:=(-b+sqrt(d))/2/a;

x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');

Слайд 9Вложенные ветвления

if then

Слайд 10Решение линейного уравнения
program n_12;
var a, b, x: real;
begin
writeln

('Решение линейного уравнения');
write ('Введите коэффициенты a , b>>');
readln

Слайд 11Самое главное
При записи на языке Паскаль разветвляющихся алгоритмов используют условный

оператор:
if then else
Для записи неполных ветвлений используется

Слайд 12Вопросы и задания
Как на языке Паскаль записывается полное и неполное
ветвление?

Является ли условным оператором последовательность символов?
а) if x

Слайд 13Опорный конспект
Условный оператор
if then else
if then

begin end
Полная форма
Неполная форма
Составной оператор

Обратная связь

Что такое TheSlide.ru?

Разделы презентаций

ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

Содержание

Слайды и текст этой презентации

Слайд 1ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВНАЧАЛА ПРОГРАММИРОВАНИЯ

Слайд 2Ключевые словаусловный операторнеполный условный операторсоставной операторвложенные ветвления

Слайд 3Общий вид условного оператораПеред else знак «;» не ставится.Полная форма

условного оператора:if then else Неполная форма условного оператора:if

Слайд 4Условный операторuses crt; var x, a, b: real;begin writeln ('Определение

принадлежности

Слайд 5Неполный условный операторuses crt; var max, a, b, c: integer;begin

writeln ('Нахождение наибольшей из трёх величин'); write ('Введите а, b,

Слайд 6Составной операторВ условном операторе и после then, и после else

можно использовать только один оператор. Если в условном операторе после

Слайд 7Блок-схема решения КВУРКонецВывод «Корни уравнения:х1=», х1, «х2=», х2х1:=(-b+sqrt(d))/2/aНачало Введите коэффициенты

a, b, cd:=b*b-4*a*cd < 0даВывод«Корней нет»нетd:= 0даx:=-b/2/aВывод«Корень уравнения х=», хнетх2:=(-b-sqrt(d))/2/a

Слайд 8 begin x1:=(-b+sqrt(d))/2/a;

x2:=(-b-sqrt(d))/2/a; writeln ('Корни уравнения:');

Слайд 9Вложенные ветвления if then

Слайд 10Решение линейного уравненияprogram n_12; var a, b, x: real;begin writeln

('Решение линейного уравнения'); write ('Введите коэффициенты a , b>>'); readln

Слайд 11Самое главноеПри записи на языке Паскаль разветвляющихся алгоритмов используют условный

оператор:if then else Для записи неполных ветвлений используется

Слайд 12Вопросы и заданияКак на языке Паскаль записывается полное и неполноеветвление?

Является ли условным оператором последовательность символов?а) if x

Слайд 13Опорный конспектУсловный операторif then else if then

begin endПолная формаНеполная формаСоставной оператор

Похожие презентации

Обратная связь

Что такое TheSlide.ru?

Слайд 1ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ

Слайд 2Ключевые слова
условный оператор
неполный условный оператор
составной оператор
вложенные ветвления

Слайд 3Общий вид условного оператора
Перед else знак «;» не ставится.
Полная форма

условного оператора:
if then else
Неполная форма условного оператора:
if

Слайд 4Условный оператор
uses crt;
var x, a, b: real;
begin
writeln ('Определение

Слайд 5Неполный условный оператор
uses crt;
var max, a, b, c: integer;
begin

writeln ('Нахождение наибольшей из трёх величин');
write ('Введите а, b,

Слайд 6Составной оператор
В условном операторе и после then, и после else

можно использовать только один оператор.
Если в условном операторе после

Слайд 7Блок-схема решения КВУР
Конец
Вывод
«Корни уравнения:
х1=», х1, «х2=», х2
х1:=(-b+sqrt(d))/2/a
Начало
Введите коэффициенты

a, b, c
d:=bb-4a*c
d < 0
да
Вывод
«Корней нет»
нет
d:= 0
да
x:=-b/2/a
Вывод
«Корень уравнения х=», х
нет
х2:=(-b-sqrt(d))/2/a

Слайд 8 begin
x1:=(-b+sqrt(d))/2/a;

x2:=(-b-sqrt(d))/2/a;
writeln ('Корни уравнения:');

Слайд 9Вложенные ветвления

if then

Слайд 10Решение линейного уравнения
program n_12;
var a, b, x: real;
begin
writeln

('Решение линейного уравнения');
write ('Введите коэффициенты a , b>>');
readln

Слайд 11Самое главное
При записи на языке Паскаль разветвляющихся алгоритмов используют условный

оператор:
if then else
Для записи неполных ветвлений используется

Слайд 12Вопросы и задания
Как на языке Паскаль записывается полное и неполное
ветвление?

Является ли условным оператором последовательность символов?
а) if x

Слайд 13Опорный конспект
Условный оператор
if then else
if then

begin end
Полная форма
Неполная форма
Составной оператор