Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Конспект урока+ презентация на тему "Алгоритмы с ветвящей структурой"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Конспект урока+ презентация на тему "Алгоритмы с ветвящей структурой"

Выберите документ из архива для просмотра:

Выбранный для просмотра документ 7c280e685650b075147dc07316309ed1.pptx

библиотека
материалов
 Алгоритмы с ветвящей структурой
 Цель: отработать навык составления программ с ветвящейся структурой.
Дана программа: Program urok; Var m, n, s, p: integer; Begin Read (m,n); s:=m...
Какие структуры называются ветвлением?
 Какие конструкции ветвления бывают?
Задание 1. Составьте программу, определяющую, является ли число A кратным чис...
Решение: Program primer; Var a, b :integer; Begin Write('введите два числа');...
Задание 2. Вводятся две четвертные оценки по математике и русскому языку. Выв...
Решение: Program primer; Var a, b: integer; Begin Write('введите четвертные о...
Задание 3. Составьте программу сортировки по возрастанию значений трех переме...
Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три...
Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи...
 Задание 5. Составьте программу решения квадратного уравнения.
Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c...
Домашнее задание Дано: а, b, с- стороны предполагаемого треугольника. Требует...
Ответы: 1.var а, b, с: integer; begin write ('Длины сторон:'); readln (a,b,c)...
2. Var x, y: real; begin write('x='); read(x); write('y='); readln(y); write(...
18 1

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs

Описание презентации по отдельным слайдам:

№ слайда 1  Алгоритмы с ветвящей структурой
Описание слайда:

Алгоритмы с ветвящей структурой

№ слайда 2  Цель: отработать навык составления программ с ветвящейся структурой.
Описание слайда:

Цель: отработать навык составления программ с ветвящейся структурой.

№ слайда 3 Дана программа: Program urok; Var m, n, s, p: integer; Begin Read (m,n); s:=m
Описание слайда:

Дана программа: Program urok; Var m, n, s, p: integer; Begin Read (m,n); s:=m+n; p:=m*n; if m>n then begin m:=s; n:=p; end else begin m:=p; n:=s; end; Write ('m=', m, ‘n=',n); End. Для решения какой задачи она предназначена?

№ слайда 4 Какие структуры называются ветвлением?
Описание слайда:

Какие структуры называются ветвлением?

№ слайда 5  Какие конструкции ветвления бывают?
Описание слайда:

Какие конструкции ветвления бывают?

№ слайда 6 Задание 1. Составьте программу, определяющую, является ли число A кратным чис
Описание слайда:

Задание 1. Составьте программу, определяющую, является ли число A кратным числу В.

№ слайда 7 Решение: Program primer; Var a, b :integer; Begin Write('введите два числа');
Описание слайда:

Решение: Program primer; Var a, b :integer; Begin Write('введите два числа'); Read(a,b); If a mod b=0 then writeln('a кратно b') else write ('а не кратно b'); End.

№ слайда 8 Задание 2. Вводятся две четвертные оценки по математике и русскому языку. Выв
Описание слайда:

Задание 2. Вводятся две четвертные оценки по математике и русскому языку. Выведите на экран надпись «Молодец!», если их сумма больше или равна 9, иначе надпись — «Подтянись!».

№ слайда 9 Решение: Program primer; Var a, b: integer; Begin Write('введите четвертные о
Описание слайда:

Решение: Program primer; Var a, b: integer; Begin Write('введите четвертные оценки по математике и русскому языку'); Read(a,b); If a+b>=9 then writeln('Молодец!') else writeln('Подтянись!'); End. Использование операторных скобок внутри условного оператора называется составным оператором.

№ слайда 10 Задание 3. Составьте программу сортировки по возрастанию значений трех переме
Описание слайда:

Задание 3. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

№ слайда 11 Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три
Описание слайда:

Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три числа'); Readln(S1,S2,S3); If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2} If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3} If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2} Writeln('Числа в порядке возрастания:', S1,S2,S3) End.

№ слайда 12 Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Описание слайда:

Задание 4. Составьте программу решения линейного уравнения вида Ах — В.

№ слайда 13 Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи
Описание слайда:

Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффициенты а и b:'); Readln(a, b); If a<>0 then write('x0',-b/a) Else If b=0 then write('Kopeнь любое число') Else write('Kopней нет'); End.

№ слайда 14  Задание 5. Составьте программу решения квадратного уравнения.
Описание слайда:

Задание 5. Составьте программу решения квадратного уравнения.

№ слайда 15 Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c
Описание слайда:

Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c; if D<0 then Writeln('KOPHEЙ НЕТ') else if D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1); else begin D:=sqrt(D); xl:=(-b+D)/(2*a); x2:=(-b-D)/(2*a); Writeln('xl=',xl); Write Ln('x2=',x2); end; end.

№ слайда 16 Домашнее задание Дано: а, b, с- стороны предполагаемого треугольника. Требует
Описание слайда:

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

№ слайда 17 Ответы: 1.var а, b, с: integer; begin write (&#039;Длины сторон:&#039;); readln (a,b,c)
Описание слайда:

Ответы: 1.var а, b, с: integer; begin write ('Длины сторон:'); readln (a,b,c); if (a<b+c) and (b<a+c) and (c<a+b) then writeln('Треугольник существует.') else writeln('Треугольник не существует.'); readln end.

№ слайда 18 2. Var x, y: real; begin write(&#039;x=&#039;); read(x); write(&#039;y=&#039;); readln(y); write(
Описание слайда:

2. Var x, y: real; begin write('x='); read(x); write('y='); readln(y); write('Hoмep четверти координатной плоскости:'); if (x>0) and (y>0) then writeln (‘I’) Else if (x<0) and (y>0) then writeln('II') else if (x<0) and (y<0) then writeln('III') else if (x>0) and (y<0) then writeln(‘IV') else writeln('-. Точка лежит на оси.'); readln end.

Выбранный для просмотра документ Тема.docx

библиотека
материалов

Тема: Алгоритмы с ветвящей структурой

Тип урока: комбинированный урок

Цели:

  • Сформировать представление у учащихся об основных понятиях темы:язык программирования, системы программирования, компьютер как исполнитель алгоритмы, величины, системы команд, команда присваивания, команды ввода и вывода;

  • Развитие информационного видения явлений и процессов окружающего мира;

  • Воспитание информационной культуры учащихся, внимательность, аккуратность, дисциплинированности, усидчивости;

  • Воспитание познавательного интереса школьников.

Оборудование:

  • ПК;

  • Интерактивная доска;

  • MS PowerPoint

Ход урока:

I.Организационный момент (2 мин.)

Приветствие. Проверка присутствующих. Сообщение темы урока.

II. Актуализация знаний (1 мин.)

Отработать навык составления программ с ветвящейся структурой

III. Теоретическая часть (25мин.)


Дана программа:

Program urok;

Var m, n, s, p: integer;

Begin

Read (m,n); s:=m+n; p:=m*n;

if m>n then begin m:=s; n:=p; end

else begin m:=p; n:=s; end;

Write ('m=', m, ‘n=',n);

End.

Для решения какой задачи она предназначена?

  • Какие структуры называются ветвлением?

Какие конструкции ветвления бывают?

  • Задание 1.

Составьте программу, определяющую, является ли число A кратным числу В.

Решение:

Program primer;

Var a, b :integer;

Begin

Write('введите два числа');

Read(a,b);

If a mod b=0 then writeln('a кратно b')

else write ('а не кратно b');

End.

  • Задание 2.

Вводятся две четвертные оценки по математике и русскому языку. Выведите на экран надпись «Молодец!», если их сумма больше или равна 9, иначе надпись — «Подтянись!».

Решение:

Program primer;

Var a, b: integer;

Begin

Write('введите четвертные оценки по математике и русскому языку');

Read(a,b);

If a+b>=9 then writeln('Молодец!') else writeln('Подтянись!');

End.

Использование операторных скобок внутри условного оператора называется составным оператором.

  • Задание 3.

Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

Решение:

Program Рг;

Var S1, S2, S3, С: Integer;

Begin

Writeln(' Введите три числа');

Readln(S1,S2,S3);

If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2}

If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3}

If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2}

Writeln('Числа в порядке возрастания:', S1,S2,S3)

End.

  • Задание 4.

Составьте программу решения линейного уравнения вида АхВ.

Решение:

Program linear_equation;

Var a, b: real;

Begin

Write('введите коэффициенты а и b:');

Readln(a, b);

If a<>0 then write('x0',-b/a) Else

If b=0 then write('Kopeнь любое число')

Else write('Kopней нет');

End.

Задание 5. Составьте программу решения квадратного уравнения.

Решение:
program kv;

var a,b,c,D,x1,x2:real;

begin

Read (a,b,c);

D:=b*b-4*a*c;
if D<0

then Writeln('KOPHEЙ НЕТ')

else

if D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1);

else

begin

D:=sqrt(D);

xl:=(-b+D)/(2*a);

x2:=(-b-D)/(2*a);

Writeln('xl=',xl);

Write Ln('x2=',x2);

end;

end.


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

  • Дано: а, b, с- стороны предполагаемого треугольника. Требуется сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольника с такими сторонами не существует.

  • Написать программу, определяющую по координатам точки, в какой четверти она находится.

Ответы:

1.var а, b, с: integer;

begin

write ('Длины сторон:');

readln (a,b,c);

if (a

writeln('Треугольник существует.')

else

writeln('Треугольник не существует.');

readln

end.

2. Var x, y: real;

begin

write('x='); read(x);

write('y='); readln(y);

write('Hoмep четверти координатной плоскости:');

if (x>0) and (y>0) then writeln (‘I’)

Else if (x<0) and (y>0) then writeln('II')

else if (x<0) and (y<0) then writeln('III')

else

if (x>0) and (y<0) then writeln(‘IV')

else

writeln('-. Точка лежит на оси.');

readln

end.


IV. Итоги урока.

V.Домашнее задание (1 мин.)


Автор
Дата добавления 28.10.2016
Раздел Информатика
Подраздел Конспекты
Просмотров66
Номер материала ДБ-296408
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

Похожие материалы

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