1. Kết quả Event Ghost 2016


    Dưới đây là danh sách những thành viên đoạt giải thưởng trong Event Ghost 2016

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,120
    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