процедура Swap

[lilywka]

Proc10. Описать процедуру Swap (X, Y), что изменяет содержание переменных X и Y (X и Y - вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и C и вывести новые значения A, B, C, D.

не могу понять в чем ошибка. в этой программе чего то не хватает. помогите доделать))

{$APPTYPE CONSOLE}

uses
  SysUtils;

Procedure Swap(var a,b:real);
var x:real;
begin
x:=a;
a:=b;
b:=x;
end;
var a,b,c,d:real;
begin
writeln('Ââåäèòå 4 âåùåñòâåííûõ ÷èñëà:');
read(a,b,c,d);
Swap(a,b);
Swap(c,d);
Swap(b,c);
writeln(a:0:2,' ',b:0:2,' ',c:0:2,' ',d:0:2);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

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

Модератор.

[Вадим Мошев]

А в чём именно заключается ошибка? Мне не удалось найти её в вашем коде.

[Sciv]

А в чём именно заключается ошибка? Мне не удалось найти её в вашем коде.

А ее там и нет

[Stilet]

не могу понять в чем ошибка.

Надеюсь это ты в Делфи запускаешь?

[phomm]

a:0:2

А это как Вы объясните ? Не пойду проверять, как оно в реале, но я бы , будь я разработчиком компилятора, бил бы error'ом по голове за 0 в величине знакомест под ВСЁ число, особенно при том, что под знаки после запятой отводится ажно 2 знакоместа. Эти числа должны быть такие, что первое всегда больше второго, ну а пытаться вывести число в 0 знакомест это вообще уму не поддаётся.

ПС. я таки сподобился подкрепить пруфом:

Сообщение от дельфихелп

A write parameter has the form:
OutExpr [: MinWidth [: DecPlaces ] ]
where OutExpr is an output expression. MinWidth and DecPlaces are type integer expressions.
MinWidth specifies the minimum field width, which must be greater than 0.

[Serge_Bliznykov]

Сообщение от phomm

А это как Вы объясните ? Не пойду проверять, как оно в реале

А Вы проверьте в реале...
0 в данном случае означает, вывести только значащие цифры числа.
проверьте:

var x,y : real;
begin
  x := 1237.56778;
  y := -2.456789;
  WriteLn('x= ',x:0:2);
  WriteLn('y= ',y:0:3);
  Readln
end.

p.s. если надо, я подкреплю свой ответ скриншотом

[Stilet]

В этом коде затык может быть только здесь:

read(a,b,c,d);

Нужно readln
По факту он отрабатывает, просто автор не успевает увидеть результат.

[phomm]

Блин, справка меня обманула... The cake is a lie.
Как теперь жить?

Наезды снимаю
Тогда по теме не могу ничего более сообщить.

ПС. замечу, что редко работаю с консольными приложениями.

[Sciv]

А я согласен с Виталием, ибо проверил код. Программа действительно отрабатывает и закрывается.

[lilywka]

спасибо всем за бурное обсуждение программы)) я уже нашла ошибку))