Question

Составить блок-схему и написать программу на языке PascalABC.NET. 1. Даны действительные положительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z. 2. Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1, 3).

Answer 1

1. Треугольник будет существовать если будут выполнятся одновременно три неравенства:
x + y > z
x + z > y
y + z > x

Программа:

var x, y, z: real;
begin
  writeln('Введите стороны треугольника x, y, z: ');
  read(x, y, z);
  if (x + y > z) and (x + z > y) and (y + z > x) 
  then writeln('Треугольник существует')
  else writeln('Треугольник не существует');
end.

2. Думаю, здесь излишни объяснения.

Программа:

var x, y, z: real;
begin
  writeln('Введите три числа: ');
  read(x, y, z);
  writeln('В интервале (1; 3) лежат числа: ');
  if (x > 1) and (x < 3) then writeln(x);
  if (y > 1) and (y < 3) then writeln(y);
  if (z > 1) and (z < 3) then writeln(z);
end.

Блок-схемы в приложении:

Answer 2

Проверка на существование треугольника

Для проверки существования треугольника с данными длинами сторон x, y, z, можно воспользоваться правилом треугольника: сумма длин любых двух сторон должна быть больше длины третьей стороны.

program CheckTriangleExistence;
var
  x, y, z: real;
begin
  { Ввод значений x, y, z }
  // ...

{ Проверка на существование треугольника }
  if (x + y > z) and (x + z > y) and (y + z > x) then
    writeln('Треугольник существует')
  else
    writeln('Треугольник не существует');
end.

Выбор чисел из интервала (1, 3)

Для выбора чисел из заданных, которые принадлежат интервалу (1, 3), можно использовать условный оператор.

program SelectNumbersInInterval;
var
  a, b, c: real;
begin
  { Ввод значений a, b, c }
  // ...

{ Выбор чисел из интервала (1, 3) }
  if (a > 1) and (a < 3) then
    writeln('Число a принадлежит интервалу (1, 3)');
  if (b > 1) and (b < 3) then
    writeln('Число b принадлежит интервалу (1, 3)');
  if (c > 1) and (c < 3) then
    writeln('Число c принадлежит интервалу (1, 3)');
end.