Trang 1 / 2 12 LastLast
Hiển thị kết quả từ 1 đến 10 / 19
  1. #1
    Tham gia
    10-01-2007
    Location
    Huế
    Bài viết
    38
    Like
    0
    Thanked 0 Times in 0 Posts

    Làm giúp em bài này với các pác

    Viết chương trình con in ra số đảo ngược của 1 số. Ví dụ: Số nhập vào là 1234 => số đảo ngược là 4321. Cảm ơn các pác nhìu nhìu. Mong nhận được lời giải sớm nhất
    Quote Quote

  2. #2
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post
    var n:integer;
    begin
    n:=1234;
    pereat
    write(n mod 10);
    n:=n div 10;
    Until n=0;
    end.

  3. #3
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post
    trên là cái sườn cơ bản nhất thôi, nếu muốn lấy nó ra dùng vào việc khác thì bạn tự thêm vào việc (nhân thêm 1000 hay 100.....theo biến đếm nào đó {tự thêm biến đếm}), hay nếu thích thì bạn "quăng" nó vào cái procedure hay Function là xong thôi, chúc bạn thành công.

  4. #4
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post
    cách 2: biến nó thành String rồi đảo ngược rồi VAL()...xong.

  5. #5
    Tham gia
    02-02-2005
    Bài viết
    219
    Like
    0
    Thanked 3 Times in 3 Posts
    function dao( s:string):string;
    var i:integer; s1:string;
    begin
    s1:=''; for i:=1 to length (s) do s1:=s[i]+s1; dao:=s1;
    end;

    function dao_so(so:longint):longint;
    var s: string; code:integer;
    begin
    str(so,s);
    s:=dao(s);
    val (s,so,code);
    if code<>0 then writeln(' toi roi.');
    dao_so:=so;
    end;

  6. #6
    Tham gia
    14-08-2007
    Bài viết
    64
    Like
    0
    Thanked 0 Times in 0 Posts
    Nếu dữ liệu vào từ file thì có thể nhập các số vào 1 mảng kiểu char và in theo chiều ngược lại.

  7. #7
    Tham gia
    25-11-2007
    Location
    TP.HCM
    Bài viết
    100
    Like
    0
    Thanked 4 Times in 3 Posts
    Code:
    program daoso;
    uses crt;
    var i : integer;
        s:string;
    begin
    clrscr;
    write('n = ');
    readln(s);writeln('Dao cua n : ');
    for i:=length(s) downto 1 do
      begin
        write(s[i]);
      end;
    readln;
    end.
    Được sửa bởi QuyNam lúc 20:21 ngày 17-04-2008

  8. #8
    Tham gia
    08-08-2006
    Bài viết
    10
    Like
    0
    Thanked 0 Times in 0 Posts
    cần gì phải phức tạp thế, theo mình thì chuyển số thành chuỗi, sau đó viết chuổi theo thứ tự ngược lại, rồi lại dùng hàm val để chuyển chuổi thành số. Thuật toán này trong pascal của Quách Tuấn Ngọc hình như cũng có đấy.

  9. #9
    Tham gia
    02-05-2008
    Bài viết
    50
    Like
    0
    Thanked 0 Times in 0 Posts
    Cái cách 1 mà anh/chị thuonghcm đó thì có vẻ là vẫn cho ra kết quả đúng về mặt hị̀nh thức nhưng thực chất bên trong thì số xuất ra chỉ là các kí tự được viết lần lượt sát nhau mà thôi chứ không phải là 1 số mà là tập hợp các số được viết sát nhau
    VD: nhập 1234
    xuất 4321
    Ở đây không phải số 4321 mà là các số 4, 3, 2, 1 được viết sát nhau.
    Xin mọi người cho ý kiến về bài viết của em.
    Add nick: hung06061995 để cùng thảo luận

  10. #10
    Tham gia
    25-09-2006
    Bài viết
    533
    Like
    0
    Thanked 1 Time in 1 Post
    éc...dễ quá mà hong bít làm à???
    so:=0;
    repeat
    so:=so*10 +n mod 10;
    n:=n div 10
    until n=0;
    write('KQ LA; ', so);
    Vay duoc chua???????

Trang 1 / 2 12 LastLast

Bookmarks

Quy định

  • Bạn không thể tạo chủ đề mới
  • Bạn không thể trả lời bài viết
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •