Даны 3 вещественных числа. Вывести ** экран те из них, которые принадлежат интервалу (1,6...

Question

Даны 3 вещественных числа. Вывести на экран те из них, которые принадлежат интервалу (1,6 ; 3,8). Если ни одно число не подходит, ты вывести на экран сообщение: "Ни одно число не принадлежит интервалу".

Answer 1

ПЕР
  числа: РЯД 3 ИЗ ВЕЩ;
  сч: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(числа) - 1 ВЫП
    ЕСЛИ числа[сч] > 1.6 И числа[сч] < 3.8 ТО
      Вывод.ЧВещ("%g ", числа[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО
    Вывод.Цепь("Ни одно число не принадлежит интервалу.")
  КОН

Comments

Да прикол в другом. Если делать через полный алгоритм, то бишь, "if (a>1.6) and (a<3.8) then writeln(a) <br>else if (b>1.6) and (b<3.8) then writeln(b) <br> else if (c>1.6) and (c<3.8) then writeln(c)<br> else writeln('Ни одно число не принадлежит интервалу')", то, если уже первое число подходит, то дальше прога не будет работать, а этот алгоритм нам объяснили на уроке, и именно так показали.

---

А если делать через 3 неполных, то бишь "if (a>1.6) and (a<3.8) then writeln(a); if (b>1.6) and (b<3.8) then writeln(b); if (c>1.6) and (c<3.8) then writeln(c);", то непонятно, как вывести сообщение, если все три числа не подходят, а это обязательное условие.

---

Нет, не могу, т.к. мы только паскаль проходим. И я понимаю, что можно это сделать, но задание именно с алгоритмом, че я сделать могу?