1 of 5

ПРОГРАММЫ С УСЛОВИЕМ

2 of 5

ОПРОС:

  • Какой оператор используется для осуществления ветвления?
  • Назовите полную и неполную формы этого оператора.
  • Как выполняется условный оператор?
  • Что может выступать в качестве условия?

3 of 5

3. ПРОГРАММА РЕШАЕТ УРАВНЕНИЕ AX + B = 0, B≠0

Program ur_e;

Var a,b,x:real;

Begin

Write(’Введите коэф-ты’);

Readln(a,b);

If a<>0 then

Begin

x:=-b/a;

writeln(’x=’,x);

end

else Writeln(’реш. нет’)

End.

x:= -b/a

начало

a, b

a ≠ 0

Реш. нет

х

нет

да

конец

4 of 5

4. Программа определяет, является ли Δ со сторонами a, b, c равнобедренным.

Program treug2;

Var a,b,c:real;

begin

Write(’Введите стороны треугольника’);

Readln(a,b,c);

If (a=b)or(b=c)or(c=a) then

Writeln(’Треугольник равнобедренный’)

Else Writeln(’Треугольник не равнобедренный’)

End.

5 of 5

ПРАКТИЧЕСКАЯ РАБОТА

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

a) b) с)*

Без использования f:=abs(x)

Обязательно решение 2-х задач!