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 12 trên 12
  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ác bác giúp em hàm mũ và hàm căn trong Pascal (Function)

    Theo các bác trong pascal viết hàm mũ, hàm căn, logarit như thế nào a? Các bác dùng function cho em và viết chi tiết giúp em nhé! Em cảm ơn các bác nhiều!

  2. #2
    becon91's Avatar
    becon91 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Sep 2009
    Bài
    812
    Cảm ơn
    146
    Điểm
    407/263 bài viết
    VR power
    0

    Default

    Nhanh chóng và gọn nhất
    Trong Pascal hỗ trỡ sẵn 2 hàm:
    PHP Code:
    exp(x)     tức là e^x
    ln
    (x)        tức là ln(x): Loga Neper 
    Từ đó dùng toán ta suy ra
    PHP Code:
    a^x   là       exp(x*ln(a))
    Căn bậc n của x:  sqrt[n](x)   là exp(1/n*ln(x))
    Loga cơ số a của x  log_a{x} = ln(x)/ln(a
    VD: Function
    PHP Code:
    Function mu(real areal x):real;
    Begin
    mu
    :=exp(x*ln(a));
    End
    Thay đổi nội dung bởi becon91; 08-11-2010 lúc 20:00.
    Nhận code BT lớn: C/C++, C#, Java, Assembly
    kiet.heros@gmail.com
    https://www.facebook.com/long.sheng.2012

  3. Có 10 thành viên cảm ơn becon91 cho bài viết này:
    auauau97 (24-06-2011), ductrongcp (23-11-2010), dungdhgt (10-01-2013), duylonghg95 (08-07-2011), longabcd (22-04-2011), luffmevn (06-06-2014), Protossnam (08-11-2010), tridoan (16-09-2011), tuandt5 (29-12-2010), Tung_Huynh (29-12-2010)

  4. #3
    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

    Trích becon91 View Post
    Nhanh chóng và gọn nhất
    Trong Pascal hỗ trỡ sẵn 2 hàm:
    PHP Code:
    exp(x)     tức là e^x
    ln
    (x)        tức là ln(x): Loga Neper 
    Từ đó dùng toán ta suy ra
    PHP Code:
    a^x   là       exp(x*ln(a))
    Căn bậc n của x:  sqrt[n](x)   là exp(1/n*ln(x))
    Loga cơ số a của x  log_a{x} = ln(x)/ln(a
    VD: Function
    PHP Code:
    Function mu(byte ainteger x);
    Begin
    mu
    :=exp(x*ln(a));
    End
    Oh! Em làm thế này có được không ạ (không dùng exp):

    Function LThua10(n:byte):longint;
    Var i: byte;
    Temp:longint;
    Begin
    temp:= 1;
    If n = 0 then temp:=1
    else
    Begin
    For i:= 1 to n do
    temp:=temp * 10;
    End;
    LThua10:=temp;
    End;
    Thay đổi nội dung bởi Protossnam; 08-11-2010 lúc 22:11.

  5. #4
    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

    Question Chuyển chuỗi sang số

    Nhân tiện trong Pascal, em hỏi luôn bài chuyển chuỗi sang số thì làm thế nào đây ạ?

  6. #5
    becon91's Avatar
    becon91 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Sep 2009
    Bài
    812
    Cảm ơn
    146
    Điểm
    407/263 bài viết
    VR power
    0

    Default

    Bạn nên xác định rõ yêu càu đề bài.
    Hàm số mũ a^x tổng quát thì đk là a>0, và x thực bất kỳ
    ( Để tính đc hàm này thì phải dùng hàm exp(x) hỗ trợ)
    Còn như yêu cầu chỉ cần tính a^x ( a : nguyên, n nguyên ) thì dùng vòng lặp tính cũng đc.
    Chuyển chuỗi sang số dùng hàm
    PHP Code:
    val(s,mso,er); : chuyển chuỗi có dạng số S sang giá trị số và gán vào biến mso.
    Nếu chuyển thành công thì er=1ko thành công thì er=
    Nhận code BT lớn: C/C++, C#, Java, Assembly
    kiet.heros@gmail.com
    https://www.facebook.com/long.sheng.2012

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

  8. #6
    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 Code đây...

    Oh! Hôm qua, thầy vừa dạy mình code:

    Program Chuyen_Chuoi_Ra_So;
    Uses crt;
    Var
    Str:string[9];
    i,Do_dai:byte;
    n1:char;
    So:longint;

    Function LThua10(n:byte):longint;
    Var i: byte;
    temp:longint;
    Begin
    temp:=1;
    If n=0 then temp:=1
    else
    Begin
    For i:=1 to n do
    temp:=temp * 10;
    End;
    LThua10:=temp;
    End;

    Function Char2Num(n:char):byte;
    Var temp:byte;
    Begin
    temp:=Ord(n)-48;
    Char2Num:=temp;
    End;

    BEGIN
    Clrscr;
    Write('Nhap chuoi so: ');readln(Str);
    Do_dai:=length(Str);
    For i:=1 to Do_dai do
    Begin
    So:=Char2Num(Str[i])*LThua10(Do_dai-i)+so;
    End;
    Write('So do la: ',so) ;
    Readln;
    END.

    Còn cả bài số sang chuỗi nữa! Ai thấy bảo mình code nha

  9. #7
    Tung_Huynh's Avatar
    Tung_Huynh vẫn chưa có mặt trong diễn đàn Cống hiến cho [V-Z]
    Tham gia
    Jul 2009
    Đến từ
    Thái Nguyên
    Bài
    6.777
    Cảm ơn
    1.540
    Điểm
    4.122/2.748 bài viết
    VR power
    0

    Default

    Trích Protossnam View Post
    Oh! Hôm qua, thầy vừa dạy mình code:

    Program Chuyen_Chuoi_Ra_So;
    Uses crt;
    Var
    Str:string[9];
    i,Do_dai:byte;
    n1:char;
    So:longint;

    Function LThua10(n:byte):longint;
    Var i: byte;
    temp:longint;
    Begin
    temp:=1;
    If n=0 then temp:=1
    else
    Begin
    For i:=1 to n do
    temp:=temp * 10;
    End;
    LThua10:=temp;
    End;

    Function Char2Num(n:char):byte;
    Var temp:byte;
    Begin
    temp:=Ord(n)-48;
    Char2Num:=temp;
    End;

    BEGIN
    Clrscr;
    Write('Nhap chuoi so: ');readln(Str);
    Do_dai:=length(Str);
    For i:=1 to Do_dai do
    Begin
    So:=Char2Num(Str[i])*LThua10(Do_dai-i)+so;
    End;
    Write('So do la: ',so) ;
    Readln;
    END.

    Còn cả bài số sang chuỗi nữa! Ai thấy bảo mình code nha
    Bài của bạn là tìm 10^x rồi..
    Như cách của becon91 là phổ biến đó
    x^y= exp(y*ln(x));
    căn bậc y của x = x^(1/y)=exp(1/y*ln(x));

    Còn bạn làm được Char to num rồi thì num to char cũng tương tự thôi
    cơ bản thế này

    PHP Code:
    i:=1;
    while (
    n>=10) do
    begin
    Str
    [i]:=char((n mod 10)+48);
    n:=n div 10;
    inc(i);
    end;
    Str[i]:=char(n+48);
    Str[i+1]:='<ký hiệu kết thúc xâu>'lâu không dùng nên quên mất nó kết thúc kiểu gì rồi 
    trước khi in ra xâu thì đảo ngược xâu đó lại
    ví dụ nhập n=12345
    thì Str='54321'
    nên phải đổi ngược lại mới chuẩn

  10. #8
    beo0203's Avatar
    beo0203 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Mar 2011
    Đến từ
    Hell
    Bài
    189
    Cảm ơn
    116
    Điểm
    273/70 bài viết
    VR power
    0

    Default

    Very useful. Thanks

  11. #9
    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

    À, đúng rồi, chuyển chuỗi sang số hình như còn cách này thì phải:

    Uses crt;
    Var
    s :string;
    n,code:integer;

    BEGIN
    Clrscr;
    Write('Nhap s: '); Readln(s);
    Val(s,n,code);
    Writeln('So da duoc chuyen la: ',n);
    Readln;
    END.

    Theo các bác thì đây có là cách đúng không ạ (EM DÙNG VAL) ?

  12. Có 1 thành viên cảm ơn Protossnam cho bài viết này:
    auauau97 (26-06-2011)

  13. #10
    liv3rp00lvn's Avatar
    liv3rp00lvn vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2010
    Bài
    9
    Cảm ơn
    0
    Điểm
    5/2 bài viết
    VR power
    0

    Default

    Function LThua10(n:byte):longint;
    Var i: byte;
    temp:longint;
    Begin
    temp:=1;
    If n=0 then temp:=1
    else
    Begin
    For i:=1 to n do
    temp:=temp * 10;
    End;
    LThua10:=temp;
    End;


    UA? chỗ này For i:=1 to n do biến i chạy làm j thế nhi? Cha? thấy liên quan đến câu lệnh saU!

  14. #11
    Tung_Huynh's Avatar
    Tung_Huynh vẫn chưa có mặt trong diễn đàn Cống hiến cho [V-Z]
    Tham gia
    Jul 2009
    Đến từ
    Thái Nguyên
    Bài
    6.777
    Cảm ơn
    1.540
    Điểm
    4.122/2.748 bài viết
    VR power
    0

    Default

    Trích liv3rp00lvn View Post
    Function LThua10(n:byte):longint;
    Var i: byte;
    temp:longint;
    Begin
    temp:=1;
    If n=0 then temp:=1
    else
    Begin
    For i:=1 to n do
    temp:=temp * 10;
    End;
    LThua10:=temp;
    End;


    UA? chỗ này For i:=1 to n do biến i chạy làm j thế nhi? Cha? thấy liên quan đến câu lệnh saU!
    sao lại ko liên quan
    có nó thì lệnh sau mới lặp n lần chứ
    đâu phải cư for i là bắt buộc phải dùng i trong đó đâu

  15. #12
    lanhlung98's Avatar
    lanhlung98 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    May 2013
    Bài
    6
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Thumbs up

    Trích becon91 View Post
    Nhanh chóng và gọn nhất
    Trong Pascal hỗ trỡ sẵn 2 hàm:
    PHP Code:
    exp(x)     tức là e^x
    ln
    (x)        tức là ln(x): Loga Neper 
    Từ đó dùng toán ta suy ra
    PHP Code:
    a^x   là       exp(x*ln(a))
    Căn bậc n của x:  sqrt[n](x)   là exp(1/n*ln(x))
    Loga cơ số a của x  log_a{x} = ln(x)/ln(a
    VD: Function
    PHP Code:
    Function mu(real areal x):real;
    Begin
    mu
    :=exp(x*ln(a));
    End
    cam on pa nhiu mih

 

 

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
  •