1. Hãy ủng hộ PhienBanMoi.Com bằng cách LIKE trang FANPAGE , GOOGLE+ dưới mỗi bài viết hoặc chia sẻ website nếu thấy hữu ích. Trân trọng cảm ơn!
  2. [Thông Báo] Tuyển thành viên viết bài KIẾM TIỀN trên PhienBanMoi.Com


    Nhằm mục đích phát triển Phienbanmoi.com hơn nữa, có thêm các bài viết thông tin thực sự hữu ích từ những thành viên tích cực. BQT đã quyến định tạo ra cơ hội kiếm tiền từ các bài viết được đăng tải và chia sẻ trên diễn đàn

CẦN PRO GIÚP GẤP BÀI TẬP PASCAL

Thảo luận trong 'Pascal, C , C++' bắt đầu bởi quoctuanck99, 15 Tháng mười hai 2013.

  1. quoctuanck99 Member Chính Thức

    57
    6
    8

    Lượt xem: 1,059


    b1. viết chương trình nhập vào n rồi In ra màn hình:
    Chữ số đầu và chữ số cuối của n
    Số n có bao nhiêu chữ số 3
    Đổi chỗ chữ số đầu và cuối cho nhau rồi tính tổng số đầu và cuối
    b2. Cho số tự nhiên m. Tìm số nguyên k lớn nhất thỏa mãn 4^k<m (Với m nhập từ bàn phím)/
     

    Bình Luận Bằng Facebook

  2. skamylove

    skamylove https://skamylove.blogspot.com/ Ban Quản Trị

    1,122
    880
    113
    Tên thật:
    Long SK
    :D..sang bên vn-zoom mà hỏi bạn nhé..rum này k rành cái này đâu.:brick:
    chỉ rành C++ thôi :byebye:
     
  3. Nguyễn Đức Linh

    Nguyễn Đức Linh Member Mới

    4
    2
    1
    bài 1 nè bạn:
    uses crt;
    var
    n,so,j,k,i,tg:longint;
    a:array[1..100] of longint;
    function mu(so,luy:longint):longint;
    var ii,ss:longint;
    begin
    ss:=so;
    for ii:=2 to luy do
    ss:=ss*so;
    mu:=ss;
    end;
    {----------------------------------}
    BEGIN
    write('n=');readln(n);
    {a}
    so:=n;
    k:=0;
    while so<>0 do
    begin
    k:=k+1;
    a[k]:=so mod 10;
    so:=so div 10;
    end;
    {dao mang a thanh so ban dau}
    for i:=1 to k do
    begin
    for j:=k+1 downto i+1 do
    a[j]:=a[j-1];
    a:=a[k+1];
    end;
    writeln('so dau, cuoi=', a[1],' ',a[k]);
    {b}
    writeln('so cac chu so =', k);
    tg:=a[1];
    a[1]:=a[k];
    a[k]:=tg;
    so:=0;
    for i:=1 to k do
    so:=so*10+a;
    writeln(n,' ',so);
    writeln('tong=',n+so);
    readln
    END.
     
    D.Doraemon thích bài này.
  4. Nguyễn Đức Linh

    Nguyễn Đức Linh Member Mới

    4
    2
    1
    còn đây là bài 2
    uses crt;
    var m,k,i:longint;
    function mu(so,luy:longint):longint;
    var ii,ss:longint;
    begin
    ss:=1;
    for ii:=1 to luy do
    ss:=ss * so;
    mu:=ss;
    end;
    {----------------------------------------}
    BEGIN
    write('m=');readln(m);
    if m=1 then k:=-1
    else
    if m=2 then k:=0
    else
    for i:=trunc(sqrt(m)) downto 0 do
    if mu(4,i)<m then
    begin
    k:=i;
    break;
    end;
    writeln('k=',k);
    readln
    END.
     
    D.Doraemon thích bài này.
  5. Nguyễn Đức Linh

    Nguyễn Đức Linh Member Mới

    4
    2
    1
  6. lll_C7G_lll

    lll_C7G_lll ♥→ Milker ←♥

    304
    75
    28
    Tên thật:
    Trần Công
    4rum này thì pascal chìm lắm nếu muốn hỏi thêm thì có thể sang vn zoom sang box pascal tìm nick mình có tên o0olllforeverlllo0o pm nhé
     
  7. danggg

    danggg Member Chính Thức

    19
    2
    3
    đù.. tg? thế nào. bác ktra lỗi chưa z mak post.. e nghĩ dữ liểu kiểu mảng chắc chỉ có integer vs real nhể.. e cũng có chút kt lập trình nên ms nói.. sai phạm j ....:brick::beat_brick:
     
  8. lll_C7G_lll

    lll_C7G_lll ♥→ Milker ←♥

    304
    75
    28
    Tên thật:
    Trần Công
    mảng thì kiểu dữ liệu cơ bản nào cũng cho vào được mà bạn
     

Chia sẻ trang này