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

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Bóc hộp và reviews

Mời anh em tham gia Vn-zoom support team

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

Tin tức công nghệ sản phẩm mới
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
    VZD
    2.213
    Cảm ơn
    270
    Điểm
    157/96 bài viết

    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
    842
    VZD
    2.239
    Cảm ơn
    147
    Điểm
    419/272 bài viết

    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ó 11 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), phong0910 (05-11-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
    VZD
    2.213
    Cảm ơn
    270
    Điểm
    157/96 bài viết

    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
    VZD
    2.213
    Cảm ơn
    270
    Điểm
    157/96 bài viết

    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
    842
    VZD
    2.239
    Cảm ơn
    147
    Điểm
    419/272 bài viết

    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
    VZD
    2.213
    Cảm ơn
    270
    Điểm
    157/96 bài viết

    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.769
    VZD
    31.212
    Cảm ơn
    1.540
    Điểm
    4.136/2.750 bài viết

    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
    184
    VZD
    1.262
    Cảm ơn
    116
    Điểm
    274/70 bài viết

    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
    VZD
    2.213
    Cảm ơn
    270
    Điểm
    157/96 bài viết

    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
    VZD
    158
    Cảm ơn
    0
    Điểm
    5/2 bài viết

    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.769
    VZD
    31.212
    Cảm ơn
    1.540
    Điểm
    4.136/2.750 bài viết

    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
    VZD
    0
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    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
  •