вопрос может и глупый... но почему в консольном приложении с таким кодом:
Код:
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
почему запетая не там стоит? как это исправить ?