PDA

View Full Version : Cực kì bức xúc và khó hiểu..


nvd91
11-12-2009, 01:05
Đề bài : sắp xếp. Mình làm thế này mà nó vẫn kêu sai.
var A:array[1..100] of real;
i, j, N , T : integer; { T la bien trung gian }
begin
write(' muon nhap bao nhieu gia tri: '); readln(N);
for i:=1 to N do
begin
write(' nhap A[',i,'] = ');
readln(A[i]);
end;
{ sap xep }
for i:=1 to N -1 do
for j:=i+1 to N do
begin
if A[i]>A[j] then
begin
T:=A[i]; { Sai o? dong nay >!<}
A[i]:=A[j];
A[j]:=T;
end;
end;
writeln;
write(' Thu tu sap xe la ');
for i:=1 to N do write(A[i]:6);
end.
khuongCOMPUTER
11-12-2009, 01:11
A khai báo là Real, còn T là integer mà gán T:=A sao mà được.
nvd91
11-12-2009, 01:12
A khai báo là Real, còn T là integer mà gán T:=A sao mà được.

hihi.. Em cứ quen tay Array of real ^^