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

Скачать презентацию на тему: "Алгоритмы с ветвящей структурой Урок 30." с количеством слайдов в размере 18 страниц. У нас вы найдете презентацию на любую тему и для каждого класса школьной программы. Мы уверены, что наши слайды помогут найти вам свою аудиторию. Весь материал предоставлен бесплатно, в знак благодарности мы просим Вас поделиться ссылками в социальных сетях и по возможности добавьте наш сайт MirPpt.ru в закладки.

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

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

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

3: Дана программа: Дана программа: Program urok; Var m, n, s, p: integer; Begin Read (m,n); s:mn; p:mn; if mn 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 кратным числу В.

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

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

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

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

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

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

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

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

15: Решение: program kv; var a,b,c,D,x1,x2:real; begin Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:bb-4ac; if D

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

17: Ответы: Ответы: 1. var а, b, с: integer; begin write (Длины сторон:); readln (a,b,c); if (a

18: 2. Var x, y: real; begin 2. Var x, y: real; begin write(x); read(x); write(y); readln(y); write(Hoмep четверти координатной плоскости:); if (x0) and (y0) then writeln (I) Else if (x0) then writeln(II) else if (x

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


MirPpt.ru