lập trình pascal

Thảo luận trong 'Tin học văn phòng' bắt đầu bởi tu310, 14 Tháng mười một 2008.

Lượt xem: 2,371

  1. tu310

    tu310 Guest

    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    giúp em lập trình 2 bài này em cảm ơn chân tình


    bài 1: lập trình giải bài toán sau: nhập số nguyên dương n từ bàn phím. tìm số nguyên k nhỏ nhất thoã mãn điều kiện 3^k>n. đưa ra màn hình số k và giá trị 3^k.

    bài 2: lập trình các số fibonacci f0,f1,........,fk,......,f44 và ghi các kết quả tính được ra văn bản FIBO.DAT, mỗi số được ghi trên một dòng dưới dạng số nguyên, biết rằng:
    f0=f1=1;
    fk=fk-1+fk-2;
    k=2,3,.....,44.
     
  2. congtu200860

    congtu200860 Guest

    hãy sử dụng máy tính fx570-MS để giải hãy nhập vào màn hình
    1shift sto A
    1shift sto B
    bấm vào màn hình dãy : A=A+B:B=B+A
    rồi bấm liên tục ========........
    rồi sẽ được kết quả f44= 701408733
    lưu ý số dấu bằng mà bấm mấy lần thì ra f(mấy lần) tuỳ thuộc vào số lần bấm
    Chúc em thành công ........tien
     
  3. harry18

    harry18 Guest

    Cho bạn chương trình câu 1 đây này. Tui chạy thử rồi, chạy được á.
    Bạn copy cái này vào word rồi lưu lại, ra ngoài mở bằng pascal thì đỡ phải chép lại, vì cái này không copy vào pascal được

    Program Tinh;
    uses crt;
    Var n, k, A:integer;
    Function Luythua(k:integer):integer;
    var m,B:integer;
    begin
    B:=1;
    For m:=1 to k do B := B * 3;
    Luythua:= B
    end;
    Begin
    Clrscr;
    Write('Nhap n: '); Readln(n);
    k:=2; A:= luythua(k);
    While n>A do
    Begin
    k:=k+1; A:= luythua(k);
    end;
    Writeln(' k = ',k);
    Writeln('3^k = ', A);
    Readln
    End.
     
  4. xilaxilo

    xilaxilo Guest

    tiếp bài nữa nè

    nhập n (n<50)
    a/ khai báo mảng số nguyên B
    b/ tìm giá trị max
    - chỉ số chẵn
    - chia hết cho 3
     
  5. vuongquiman

    vuongquiman Guest

    tặng bạn nè mình cũng học cách lập phương trình rồi
    Program Tinh;
    uses crt;
    Var n, k, A:integer;
    Function Luythua(k:integer):integer;
    var m,B:integer;
    begin
    B:=1;
    For m:=1 to k do B := B * 3;
    Luythua:= B
    end;
    Begin
    Clrscr;
    Write('Nhap n: '); Readln(n);
    k:=2; A:= luythua(k);
    While n>A do
    Begin
    k:=k+1; A:= luythua(k);
    end;
    Writeln(' k = ',k);
    Writeln('3^k = ', A);
    Readln
    End.
     
  6. anh_cvp

    anh_cvp Guest

    tìm số max trong các chỉ số chẵn hay là số max trong các số chẵn vậy?
    "Chia hết cho 3" cũng vậy
     
  7. ducd32

    ducd32 Guest

    Làm ơn chỉ cho tui hàm y^x với x, y bất kì trong Pascal viết thế nào ?
    Cú pháp exp(x*ln(y)) chỉ đúng với y>0 thôi.
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->