7 replies to this topic

[phuongpro]

Lập xâu S1 từ xâu S bằng cách sắp xếp lại các kí tự theo vần a,b,c.


Các bạn giúp nhanh nha, càng chi tiết càng tốt!

[nguyen phat tai]

Lập xâu S1 từ xâu S bằng cách sắp xếp lại các kí tự theo vần a,b,c.
Các bạn giúp nhanh nha, càng chi tiết càng tốt!

var i,j:integer;
	s:string;
	temp:char;
begin
  write('nhap chuoi'); readln(s);
  for i:=1 to length(s) do
	for j:= i+1 to length(s) do
	  if ord(s[i])>ord(s[j]) then
		begin
		  temp:=s[j];
		  s[j]:=s[i];
		  s[i]:=temp;
		end;
  write(s);;
  readln;
end.

[bapwin]

mấy cái code đó là dùng để làm gì vậy bạn

[Nguyễn Thái Vũ]

bạn chưa học tin học lập trình à

[triều]

bạn phattai code như thế chạy lỗi liền àh
biến i chỉ dc chạy tới length(s-1) thôi

[triều]

này bạn phattai , bạn làm cách nào mà ko dùng đến biến trung gian temp đi ^^

[nguyen phat tai]

bạn phattai code như thế chạy lỗi liền àh
biến i chỉ dc chạy tới length(s-1) thôi

lam` như vậy ko sai đâu bạn, chi hơi dư thôi. con` việc ko dùng biến trung gian thì mình ko bjk nữa, nếu bạn bjk thì chỉ cho mình zoi'

[triều]

lam` như vậy ko sai đâu bạn, chi hơi dư thôi. con` việc ko dùng biến trung gian thì mình ko bjk nữa, nếu bạn bjk thì chỉ cho mình zoi'

khi i đã đạt đến length(s) , biến j được tính là i+1, khi chương trình so sánh s[i] và s[j] tức là so sánh s[length(s)] và s[length(s)+1] sẽ bị lỗi , bạn cứ code thử sẽ biết
ko dùng biến trung gian dùng các thủ tục insert và delete