[eXplorer]

вопрос может и глупый... но почему в консольном приложении с таким кодом:

Код:

var
i:integer;
Xm,Ym:real;
X,y:array [1..6] of real;
begin

//çàïîëíåíèå ìàññèâîâ
for i:=1 to 6 do begin
write('X'+inttostr(i));
read(X[i]);
end;

for i:=1 to 6 do begin
write('Y'+inttostr(i));
read(Y[i]);
end;

//Ðåøåíèå
Xm:=0;
for i:=1 to 6 do begin
Xm:=Xm+X[i]*X[i];
Ym:=Ym+Y[i]*Y[i];
end;
Xm:=sqrt(Xm);
Ym:=sqrt(Ym);
Writeln(Xm);
Writeln(Ym);
if Xm>Ym then
Write('X>Y');
if Xm<Ym then
Write('X<Y');
if Xm=Ym then
Write('X=Y');
readln;
readln;
end.

в ответе получается не
17,2287550333737
11,8903322073019

а...
1,72287550333737E+0001
1,18903322073019E+0001

почему запетая не там стоит? как это исправить ?

[eXplorer]

проблема решена... еще вопрос.. можно ли в консольном приложении подключить модуль делфи Math ? нужно использовать RandomRange... и другие функции из этого модуля....

[Janom]

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

[eXplorer]

аааааааааа.... блин ... незнаю что со мной сегодня.. модули начал через ; прописывать извените... спасибо !)))