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
