Trang 37 / 38 FirstFirst ... 323435363738 LastLast
Hiển thị kết quả từ 361 đến 370 / 373
  1. #361
    Tham gia
    27-01-2016
    Location
    THCS Phan Đăng Lưu
    Bài viết
    57
    Like
    1
    Thanked 92 Times in 39 Posts
    Mình chả hiểu bạn viết gì luôn
    - Trước khi viết ct nếu có thể thì bạn nên viết ý tưởng trước thì người đọc mới có thể hiểu được
    - Bài này dễ mà , mình có cách khác hay hơn nhiều bạn tham khảo nhé...
    Ý tưởng:
    - Tính n!
    - Chuyển kq của n! sang xâu
    -Chạy xâu,nếu s[i]=0 thì viết ký tự thứ i+1 ra và thoát ra khỏi vòng lặp.
    Code:
    program gt;
    uses crt;
    var i,n,j,k,l:integer;
    s,s1,s2:string;
    begin
    clrscr;
    write('Nhap n=');readln(n);
    t:=1;
    for i:=1 to n do
    t:=t*i;
    str(t,s);
    write('So sau so 0 cua ',n,'! la: ');
    for i:=1 to length(s) do
    if s[i]='0' then
    begin
    write(s[i+1]);
    break;
    end;
    readln
    end.

  2. #362
    Tham gia
    01-07-2012
    Bài viết
    123
    Like
    10
    Thanked 27 Times in 26 Posts
    ^ n > 9 là bị sai

    Công thức là n div 5 + n div 25 + ...

  3. #363
    Tham gia
    03-09-2016
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    Ai giúp mình bài này đi
    Chèn mã hợp ngữ vào chương trình Pascal (Mình xài Free Pascal)
    Nó cứ báo lỗi "AH not found"

  4. #364
    Tham gia
    13-08-2012
    Location
    Vĩnh Cửu, Đồng Nai
    Bài viết
    78
    Like
    7
    Thanked 9 Times in 8 Posts
    Bạn đưa chương trình của bạn lên đây đi, để mọi người cùng dịch thử và soát lỗi ..
    Unus Pro Omnibus, Omnes Pro Uno

  5. #365
    Tham gia
    05-12-2008
    Location
    Tây Ninh
    Bài viết
    151
    Like
    1
    Thanked 4 Times in 2 Posts
    Quote Được gửi bởi Tống Vũ View Post
    Ai giúp mình bài này đi
    Chèn mã hợp ngữ vào chương trình Pascal (Mình xài Free Pascal)
    Nó cứ báo lỗi "AH not found"
    Bạn nói chung chung thế thì khó mọi người quá, post code lên đi bạn

  6. #366
    Tham gia
    22-05-2017
    Bài viết
    12
    Like
    1
    Thanked 0 Times in 0 Posts
    Chèn mã asm vào pascal thì xài
    procedure vidu(s:string);assembler;
    asm
    ...
    end;
    Sau đó gọi cái vidu bình thường thôi, chủ yếu là thêm assembler và thay begin bằng asm

  7. #367
    Tham gia
    01-06-2017
    Bài viết
    1
    Like
    0
    Thanked 0 Times in 0 Posts
    bạn hướng dẫn mình code pascal cách tính định thức 1 ma trận vuông được ko . Tks ban

  8. #368
    Tham gia
    27-10-2008
    Bài viết
    27
    Like
    0
    Thanked 0 Times in 0 Posts
    Help mình bài này.
    Viết chương trình nhập vào hai mảng A và B. Nối hai mảng A và B thành 1 mảng duy nhất C. In C ra màn hình.
    Cám ơn mọi người nhiều.

  9. #369
    Tham gia
    17-11-2009
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts
    1/ Cho một danh sách gồm n họ và ten người.Đưa ra các họ và số lần xuất hiện họ đó.
    2/ Lập trinh đua ra các số từ 1 đến n^2 ,(0<n<50), xoay vòng theo chiều kim đồng hồ,trên 1 ma tran vuông có cạnh la n=3.

    1 2 3
    8 9 4
    7 6 5
    Giúp mình các bạn oi!

  10. #370
    Tham gia
    28-08-2017
    Bài viết
    2
    Like
    0
    Thanked 0 Times in 0 Posts
    : cho 1 số tự nhiên N≤9. Giữa các số từ 1 → N hãy thêm các dấu + và – sao cho kết quả thu được bằng 0. Tìm tất cả khả năng có thể.

Trang 37 / 38 FirstFirst ... 323435363738 LastLast

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
  •