Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

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

Vui thể thao quà ý nghĩa

VPS siêu rẻ cho VNZ 150k/tháng.Server 2 CPU, 16GB RAM,300GB SAS 3tr/tháng
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
    386
    Cảm ơn
    269
    Đ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 )
    Mình muốn có một chút gold ở Gladiatus quá. Ai click giúp mình với:

    Hidden Content

  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
    225
    Cảm ơn
    17
    Điểm
    80/67 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
    626
    Cảm ơn
    36
    Điểm
    88/81 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 Hidden Content

  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
    231
    Cảm ơn
    26
    Điểm
    68/42 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
    231
    Cảm ơn
    26
    Điểm
    68/42 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
  •