На оси ОХ даны три точки с действительными координатами. Вывести координаты двух точек, между которыми лежит третья (Паскаль)

[PASKAL12]

Turbo Paskal
Пишет ошибка 26.На оси ОХ определены три точки с действительными координатами х1, х2, х3. Вывести координаты этих двух точек, между которыми лежит третья.

Program Task_27;
uses crt;
var x1,x2,x3:real;
Begin
Write ('enter x1');
Readln (x1);
Write ('enter x2');
Readln (x2);
Write ('enter x3');
Readln (x3);
If ((x1<x2)<x3) then
begin
 Writeln ('middle is','x1','x3)
end
else ((x3<x1)<x2)
begin
 writeln ('mddle is','x3,'x2)
end
 else ((x2<x3)<x1)
begin
  writeln ('middle is','x2','x1');
end
Readln;
End.

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

везде, где Вы пытались написать условие проверки, Вы ошибочно написали нечто непонятное!
да и ключевое слово if тоже не допускается опускать!

когда Вы писали:

If ((x1<x2)<x3) then

Вы, по всей видимости, пытались написать либо

If (x1<x2) and (x1<x3) then

или

If (x1<x2) and (x2<x3) then

...


рискну предложить, что Вы хотели написать примерно такую программу:

program Task_27;
uses crt;
var x1, x2, x3 : real;
begin
  Write('enter x1: ');
  Readln(x1);
  Write('enter x2: ');
  Readln(x2);
  Write('enter x3: ');
  Readln(x3);
  if (x1 = x2) or (x1 = x3) or (x2=x3) then
    { Äâå (èëè áîëåå) òî÷åê ñîâïàäàþò! }
    WriteLn('No middle found! Two (or more) coordinates is equals')
  else
     if ((x1>x2) and (x1<x3)) or ((x1>x3) and (x1<x2))  then
        Writeln('middle is x1 ', x1:0:5)
     else begin
       if ((x3>x2) and (x3<x1)) or ((x3>x1) and (x3<x2))  then
          Writeln('middle is x3 ', x3:0:5)
       else
         writeln('middle is x2 ', x2:0:5);
     end;
  Readln;
end.

[Stilet]

Надо писать так:

If (x1<x2)and(x2<x3) then

И для остальных условий тоже самое.

[Serge_Bliznykov]

всё так.
но я чуть выше уже код программы запостил..

[PASKAL12]

не получается программа помогите))

[ViktorR]

Т.е. есть три числа - координаты точек на оси 0Х.
Если эти три числа ранжировать по возрастанию, то первое и третье - ответ.
Вопрос: "Как выстроить три числа по возрастанию?"
Думаю, что ответ можно поискать на этом форуме.



Как-то так, ...

[Serge_Bliznykov]

код программы дан выше.
Выводится точка, лежащая между двух других. Вывести две оставшиеся в этом же сообщении, думаю, проблем не составляет?..