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!
pascal
Bắt đầu bởi phuongpro, 15-12-2009 - 15:51
#1
Đã gửi 15-12-2009 - 15:51
#2
Đã gửi 18-12-2009 - 16:13
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.
#3
Đã gửi 23-01-2010 - 21:16
mấy cái code đó là dùng để làm gì vậy bạn
Không có gì để nói
#4
Đã gửi 24-01-2010 - 08:17
bạn chưa học tin học lập trình à
#5
Đã gửi 24-01-2010 - 08:51
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
biến i chỉ dc chạy tới length(s-1) thôi
TÔI KHÔNG THÔNG MINH, TÔI CHỈ THÍCH ĐƯỢC KHÁM PHÁ
#6
Đã gửi 24-01-2010 - 08:58
này bạn phattai , bạn làm cách nào mà ko dùng đến biến trung gian temp đi ^^
TÔI KHÔNG THÔNG MINH, TÔI CHỈ THÍCH ĐƯỢC KHÁM PHÁ
#7
Đã gửi 20-02-2010 - 12:32
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'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
#8
Đã gửi 23-03-2010 - 12:20
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ếtlam` 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'
ko dùng biến trung gian dùng các thủ tục insert và delete
TÔI KHÔNG THÔNG MINH, TÔI CHỈ THÍCH ĐƯỢC KHÁM PHÁ
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh