Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
kết quả từ 1 tới 5 trên 5
  1. #1
    Protossnam's Avatar
    Protossnam vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    May 2009
    Đến từ
    Hà Nội
    Bài
    385
    Cảm ơn
    270
    Điểm
    156/95 bài viết
    VR power
    0

    Default Cách đổi từ hệ số 16 sang hệ số 10 trong PASCAL

    Ai giúp em bài đổi các số từ hệ số 16 sang hệ số 10 trong PASCAL với (không phải đổi từ 10 sang 16 đâu nhé). Em cảm ơn nhiều
    VD:
    Input: 10 - Output: 16
    Input: 2F - Output: 47

    (Em nghĩ là nhập vào sâu rồi tách từng ký tự ra và xử lý - em đang không biết xử lý nó thế nào đây )

  2. #2
    ho_lat's Avatar
    ho_lat vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2011
    Đến từ
    Quê Phú Yên - Ở Khánh Hoà
    Bài
    222
    Cảm ơn
    17
    Điểm
    77/65 bài viết
    VR power
    0

    Default

    var s:string;
    so,t,t1:real;
    i:integer;
    begin
    write('Nhap he 16: ');readln(s);
    so:=0;
    t1:=1/16;
    for i:= length(s) downto 1 do
    begin
    t1:=t1*16;
    case s[i] of
    '0': t:=0;
    '1': t:=1;
    '2': t:=2;
    '3': t:=3;
    '4': t:=4;
    '5': t:=5;
    '6': t:=6;
    '7': t:=7;
    '8': t:=8;
    '9': t:=9;
    'A': t:=10;
    'B': t:=11;
    'C': t:=12;
    'D': t:=13;
    'E': t:=14;
    'F': t:=15;
    end;
    so:=so+t*t1;
    end;
    write('He 10: ',so:0:0);
    end.

  3. Có 2 thành viên cảm ơn ho_lat cho bài viết này:
    Protossnam (25-11-2012), tansonpro9x (25-11-2012)

  4. #3
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    549
    Cảm ơn
    37
    Điểm
    78/71 bài viết
    VR power
    0

    Default

    Trích ho_lat View Post
    var s:string;
    so,t,t1:real;
    i:integer;
    begin
    write('Nhap he 16: ');readln(s);
    so:=0;
    t1:=1/16;
    for i:= length(s) downto 1 do
    begin
    t1:=t1*16;
    case s[i] of
    '0': t:=0;
    '1': t:=1;
    '2': t:=2;
    '3': t:=3;
    '4': t:=4;
    '5': t:=5;
    '6': t:=6;
    '7': t:=7;
    '8': t:=8;
    '9': t:=9;
    'A': t:=10;
    'B': t:=11;
    'C': t:=12;
    'D': t:=13;
    'E': t:=14;
    'F': t:=15;
    end;
    so:=so+t*t1;
    end;
    write('He 10: ',so:0:0);
    end.
    vậy đổi ngc lại thế nào bác
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này

  5. Có 2 thành viên cảm ơn tansonpro9x cho bài viết này:
    Protossnam (25-11-2012), thien-nguyen (05-12-2012)

  6. #4
    thienlequy's Avatar
    thienlequy vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2010
    Đến từ
    Vinh
    Bài
    193
    Cảm ơn
    24
    Điểm
    58/33 bài viết
    VR power
    0

    Default

    Trích tansonpro9x View Post
    vậy đổi ngc lại thế nào bác
    của bạn đây
    mình làm nhanh nên chưa tối giản thuật toán, h mình sửa lại và đưa qua bên topic của mình, bạn nào đọc thì qua topic mình nhé
    Thay đổi nội dung bởi thienlequy; 25-11-2012 lúc 11:49.

  7. Có 1 thành viên cảm ơn thienlequy cho bài viết này:
    Protossnam (25-11-2012)

  8. #5
    thienlequy's Avatar
    thienlequy vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Aug 2010
    Đến từ
    Vinh
    Bài
    193
    Cảm ơn
    24
    Điểm
    58/33 bài viết
    VR power
    0

    Default

    Trích Protossnam View Post
    Ai giúp em bài đổi các số từ hệ số 16 sang hệ số 10 trong PASCAL với (không phải đổi từ 10 sang 16 đâu nhé). Em cảm ơn nhiều
    VD:
    Input: 10 - Output: 16
    Input: 2F - Output: 47

    (Em nghĩ là nhập vào sâu rồi tách từng ký tự ra và xử lý - em đang không biết xử lý nó thế nào đây )
    Trích ho_lat View Post
    var s:string;
    so,t,t1:real;
    i:integer;
    begin
    write('Nhap he 16: ');readln(s);
    so:=0;
    t1:=1/16;
    for i:= length(s) downto 1 do
    begin
    t1:=t1*16;
    case s[i] of
    '0': t:=0;
    '1': t:=1;
    '2': t:=2;
    '3': t:=3;
    '4': t:=4;
    '5': t:=5;
    '6': t:=6;
    '7': t:=7;
    '8': t:=8;
    '9': t:=9;
    'A': t:=10;
    'B': t:=11;
    'C': t:=12;
    'D': t:=13;
    'E': t:=14;
    'F': t:=15;
    end;
    so:=so+t*t1;
    end;
    write('He 10: ',so:0:0);
    end.
    Bạn Protossnam nghĩ hướng đó là đúng rồi, bạn chỉ cần biết cách đổi hệ, sau đó sẽ nghĩ thuật toán cho ctrình theo cách đổi hệ mà bạn hiểu
    nếu bạn chưa thể nghĩ ra thuật toán thì cứ viết cách đổi hệ ra giấy, sau đó sẽ tìm ra quy luật
    Còn bạn ho_lat làm dài quá, bài này có thể làm gọn hơn rất nhiều, hơn nữa bài bạn mìh chưa test nhưng nó sẽ không đúng nếu xâu nhập vào là kí tự chữ thường, bài mình làm cho kq đúng dù là chữ hoa hay chữ thường, thậm chí cả 2 trộn vào nhau
    trong TH đổi nhiều số thì phải dùng ctrình con, còn nếu chỉ đổi đơn giản 1 lần 1 số thì cthể bỏ qua
    đây là bài mình làm, vào topic mình đọc nhé
    Thay đổi nội dung bởi thienlequy; 25-11-2012 lúc 12:26.

  9. Có 1 thành viên cảm ơn thienlequy cho bài viết này:
    Protossnam (25-11-2012)

 

 

Quyền sử dụng

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