Написать программу, составить блок-схему к задачам:
1. Найти корни квадратного уравнения и вывести их на экран, если они есть. Если корней нет, то вывести сообщение об этом. Конкретное квадратное уравнение определяется коэффициентами a, b, c, которые вводит пользователь.
2. По длинам трёх отрезков, введённых пользователем, определить возможность существования треугольника, составленного из этих отрезков. Если такой треугольник существует, то определить, является ли он разносторонним, равнобедренным или равносторонним.

1. Программа для нахождения корней квадратного уравнения

Квадратное уравнение имеет вид:

ax² + bx + c = 0

Для нахождения корней сначала вычисляется дискриминант:

D = b² - 4ac

В зависимости от значения дискриминанта:

• если D > 0, уравнение имеет два разных корня;

• если D = 0, уравнение имеет один корень;

• если D < 0, действительных корней нет.

Программа на языке Pascal:

program Kvadratnoe_uravnenie;
var
  a, b, c, D, x1, x2: real;
begin
  writeln('Введите коэффициенты a, b, c:');
  readln(a, b, c);
  if a = 0 then
    writeln('Уравнение не является квадратным')
  else
  begin
    D := b * b - 4 * a * c;
    if D > 0 then
    begin
      x1 := (-b + sqrt(D)) / (2 * a);
      x2 := (-b - sqrt(D)) / (2 * a);
      writeln('Два корня:');
      writeln('x1 = ', x1);
      writeln('x2 = ', x2);
    end
    else
      if D = 0 then
      begin
        x1 := -b / (2 * a);
        writeln('Один корень:');
        writeln('x = ', x1);
      end
      else
        writeln('Корней нет');
  end;
  readln;
end.

Блок-схема:

        Начало
           |
           v
 Ввод a, b, c
           |
           v
       a = 0?
      /      \
    Да        Нет
    |          |
    v          v
 "Не квадрат"  D = b² - 4ac
    |          |
    |          v
    |       D > 0?
    |       /    \
    |     Да      Нет
    |     |        |
    |     v        v
    |  x1,x2     D = 0?
    |     |      /    \
    |     |    Да      Нет
    |     |    |        |
    |     |    v        v
    |     |  x один   "Корней
    |     |  корень   нет"
    |     |    |        |
    |     \____|________|
    |          |
    v          v
        Конец

2. Определение существования и вида треугольника

Для существования треугольника сумма любых двух сторон должна быть больше третьей стороны:

• a + b > c

• a + c > b

• b + c > a

Если условие выполняется, определяем вид треугольника:

• равносторонний — все стороны равны;

• равнобедренный — две стороны равны;

• разносторонний — все стороны разные.

Программа на языке Pascal:

program Vid_treugolnika;
var
  a, b, c: real;
begin
  writeln('Введите длины трех сторон:');
  readln(a, b, c);
  if (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    if (a = b) and (b = c) then
      writeln('Треугольник равносторонний')
    else
      if (a = b) or (a = c) or (b = c) then
        writeln('Треугольник равнобедренный')
      else
        writeln('Треугольник разносторонний');
  end
  else
    writeln('Треугольник не существует');
  readln;
end.

Блок-схема:

             Начало
                |
                v
        Ввод a, b, c
                |
                v
 Проверка:
 a+b>c и a+c>b и b+c>a?
             /       \
           Нет        Да
            |          |
            v          v
 "Треугольник     a=b=c?
 не существует"   /     \
                 Да       Нет
                 |         |
                 v         v
        "Равносторонний"  Есть равные
                          стороны?
                          /       \
                        Да         Нет
                        |           |
                        v           v
             "Равнобедренный" "Разносторонний"
                        |
                        |
                       Конец

Обе программы сначала получают данные от пользователя, затем выполняют проверку условий через операторы ветвления и выводят необходимый результат на экран.