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] Thông Báo Tuyển mod cho toàn diễn đàn


    Forum mới lập rất cần sự giúp đỡ của các bạn vậy nên bạn nào có khả năng thì đăng kí tham gia làm mod để quản lí, phát triển diễn đàn nhé!

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

    quoctuanck99 Member Chính Thức

    57
    6
    8
    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)/
     
  2. skamylove

    skamylove GSM Ban Quản Trị

    1,119
    877
    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