PPt4Web Хостинг презентаций

Главная / Информатика / Алгоритмы с ветвящей структурой
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Алгоритмы с ветвящей структурой


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

Презентация на тему: Алгоритмы с ветвящей структурой


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



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

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

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

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

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

Дана программа: Program urok; Var m, n, s, p: integer; BeginRead (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; BeginWrite('введите два числа'); Rea
Описание слайда:

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

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

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

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

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

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

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

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

Решение: Program Рг;Var S1, S2, S3, С: Integer; BeginWriteln(' Введите три числа'); 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;BeginWrite('введите коэффициенты
Описание слайда:

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

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

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

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

Решение:program kv;var a,b,c,D,x1,x2:real;beginRead (a,b,c);D:=b*b-4*a*c;if D<0then Writeln('KOPHEЙ НЕТ')elseif D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1);elsebeginD:=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;beginwrite ('Длины сторон:'); readln (a,b,c);if (a
Описание слайда:

Ответы:1.var а, b, с: integer;beginwrite ('Длины сторон:'); readln (a,b,c);if (a<b+c) and (b<a+c) and (c<a+b) thenwriteln('Треугольник существует.')elsewriteln('Треугольник не существует.');readlnend.

№ слайда 18 2. Var x, y: real;beginwrite('x='); read(x);write('y='); readln(y);write('Hoмep
Описание слайда:

2. Var x, y: real;beginwrite('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')elseif (x>0) and (y<0) then writeln(‘IV')elsewriteln('-. Точка лежит на оси.');readlnend.

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


Презентации по предмету
Презентации из категории
Лучшее на fresher.ru