VDC khuyen mai
Hiển thị kết quả từ 1 đến 5 / 5
  1. #1
    Tham gia
    21-01-2011
    Bài viết
    3
    Like
    0
    Thanked 0 Times in 0 Posts

    Nói nhỏ nè ! Bài tập về chương trình con giúp em vs ạ!!!

    ở đây có mấy bài toán về chương trình con các bạn giúp mình với
    1) Viết chương trình nhập vào 1 mảng 2 chiều A[1..m, 1..n] gồm các số nguyên dương và cho biết trong đó có bao nhiêu số nguyên tố.
    Yêu cầu:
    - Viết thủ tục nhập mảng từ tệp văn bản MANG.INP
    - Viết hàm NGTO kiểm tra 1 số có là số nguyên tố hay không
    - Viết thủ tục in ra kết quả là số các số nguyên tố trong mảng ra tệp MANG.OUT
    2) Viết chương trình thực hiện tính tổng, hiệu của hai số nguyên X, Y biết rằng mỗi số có thể có tới hàng trăm chữ số.
    Yêu cầu:
    - Viết thủ tục nhập 2 số X, Y từ tệp văn bản BIGNUM.INP (X>=Y), mỗi số viết trên một dòng, các chữ số viết liền nhau không chứa dấu cách
    - Viết 2 thủ tục TONG và HIEU để tính tổng và hiệu của X với Y
    - Viết thủ tục in ra số T và H là giá trị tổng và hiệu của 2 số X và Y ra tệp BIGNUM.OUT.
    Quote Quote

  2. #2
    Tham gia
    25-07-2010
    Bài viết
    11
    Like
    0
    Thanked 0 Times in 0 Posts
    bài 2 dùng chuỗi, bài 1 thì đơn giản rồi @@

  3. #3
    Tham gia
    23-01-2011
    Bài viết
    17
    Like
    0
    Thanked 0 Times in 0 Posts
    bài 1 thi đơn gian còn bài hai thì có thể làn như sau
    nếu có sai thì bạn đường cười nhé .mình mới vào diển đàn này thôi
    program tonghieu;
    const f1='BIGNUM.inp';
    fo='BIGNUM.out';
    var a,b,t,h:integer;
    f:text;
    procedure doc;
    begin
    assign(f,f1);
    reset(f);
    readln(f,a);
    readln(f,b);
    close(f);
    procedure xuli;
    begin
    t:=a+b;
    h:=a-b;
    assign(f,fo);
    rewrite(f);
    writeln(f,'tong la ',t);
    writeln(f,'hieu la ',h);
    close(f);
    end;
    BEGIN
    doc;
    xuli;
    end.

  4. #4
    Tham gia
    25-07-2010
    Bài viết
    11
    Like
    0
    Thanked 0 Times in 0 Posts
    số đó chỉ là số nhỏ vs dữ liệu lớn thì phải dùng chuỗi bạn ạ )
    lúc đầu bạn so sánh 2 số số nào nhỏ hơn thì thêm 0 ở đằng trước
    rồi dùng vòng for chạy ngược từ dưới lên dùng val ra cộng từng cái 1 như quy tắc cộng cơ bản á

  5. #5
    Tham gia
    21-01-2011
    Bài viết
    3
    Like
    0
    Thanked 0 Times in 0 Posts

    >:p

    Quote Được gửi bởi pascalmen_9xpro View Post
    bài 1 thi đơn gian còn bài hai thì có thể làn như sau
    nếu có sai thì bạn đường cười nhé .mình mới vào diển đàn này thôi
    program tonghieu;
    const f1='BIGNUM.inp';
    fo='BIGNUM.out';
    var a,b,t,h:integer;
    f:text;
    procedure doc;
    begin
    assign(f,f1);
    reset(f);
    readln(f,a);
    readln(f,b);
    close(f);
    procedure xuli;
    begin
    t:=a+b;
    h:=a-b;
    assign(f,fo);
    rewrite(f);
    writeln(f,'tong la ',t);
    writeln(f,'hieu la ',h);
    close(f);
    end;
    BEGIN
    doc;
    xuli;
    end.
    không chạy đc bạn ạ dù sao mình cũng cảm ơn

Bookmarks

Quy định

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