Cần trợ giúp PASCAL GẤP

Thảo luận trong 'Thư giãn' bắt đầu bởi solomonking, 25/3/11.

  1. solomonking

    solomonking Legend of Zelda Lão Làng GVN

    Tham gia ngày:
    29/9/02
    Bài viết:
    1,095
    Nơi ở:
    L2F.Gaming
    topic này của bartender nhờ lập giùm nhé
    Tình hình là không còn ai để nhờ,mấy thằng bạn học cntt k ai nhớ cả,FE cũng thế :-w
    Nên chui vô hỏi AE thôi :-<.Ai giúp được mình mời chầu café [cho bạn chọn quán luôn]
    câu 1 :
    Viết CT hoàn chỉnh nhập vào 1 số X bất ỳ ko quá 45 ký tự.Xử lý và xuất ra mh:
    Độ dài của xâu,Xuất ra mh theo thứ tự ngược lại,xuất xâu X in hoa,Đếm xem xâu X có bao nhiêu ký tự A
    câu 2 :
    Viết ct nhập vào n dày số nguyên (n<=50).Tính và xuất ra mh
    Số lượng số lẻ,số lượng số chẵn,GTNN và vị trí của nó
    câu 3 :
    Viết CT nhập vào 1 lớp n học sinh (n<=60).HS có các thuộc tính sau : họ tên,ngày sinh,toán,văn,anh văn,ĐTB,Xếp loại.Xử lý và xuất ra thông tin và xếp loại của hs
    Biết DTB >=8,các môn còn lại >=6.5 => giỏi
    8>DTB >=7,các môn còn lại >=5.0 => khá
    7>DTB >=5,các môn còn lại >=6.5 => TB
    còn lại Yếu
    AE giải xong pm profile để lại sđt nhé nếu k ở SG thì hậu tạ = 1 cảd đt 50k
     
  2. Guo Jia

    Guo Jia C O N T R A

    Tham gia ngày:
    14/10/03
    Bài viết:
    1,950
    Nơi ở:
    Hội Vườn Đ
    Anh em với nhau giúp đỡ thì việc gì phải bày đặt cafe với công card gì hả bạn :|















     

    Tem ass là đủ rồi :">
     
  3. thelassamurai

    thelassamurai Mr & Ms Pac-Man Lão Làng GVN

    Tham gia ngày:
    14/4/08
    Bài viết:
    179
    bỏ 50k đó ra mua cuốn lập trình pascal, mấy bài này có trong đó hết đấy.
     
  4. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ
    cần gấp thì coi làm gì :|
    Mà chỉ con bé xong rồi có dùng tới nửa đâu
    thì động lưc cho AE + coi như giao lưu luôn
     
  5. ness_sco

    ness_sco C O N T R A

    Tham gia ngày:
    31/12/07
    Bài viết:
    1,793
    Nơi ở:
    Huế <--> Đà
    năm trước đi thi cái này cho trường
    năm nay trả hết cho thầy cô rồi >"<
     
  6. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ
    giúp ta với :(((((((((((((((((((((((((((((((((((((
     
  7. FlyinDance

    FlyinDance Donkey Kong Lão Làng GVN

    Tham gia ngày:
    19/12/07
    Bài viết:
    388
    Mấy cái này chỉ là bài tập lập trình đơn giản. AI biết sẽ làm nhanh cho bạn thôi. Yên tâm đi.

    MÌnh học lâu rồi, cũng 1 thời đam mê lập trình, nhưng cũng chỉ để giải trí. Giờ thì cũng quên lệnh rồi.
     
  8. mastergrez

    mastergrez Fire in the hole! Lão Làng GVN

    Tham gia ngày:
    10/9/10
    Bài viết:
    2,608
    Câu 1 thì tham khảo lại các hàm xử lý của Pascal với string xem , hình như có hàm trả về độ dài string , bí quá xài mảng mà duyệt

    Câu 2 làm mảng rồi dùng hàm lặp for duyệt từ 1 đến n thôi

    Câu 3 ... chắc vẫn là array , vừa nhập vừa dùng if kiểm tra điều kiện rồi gán giá trị ...

    Sơ sài thì là thế , bạn hỏi giải thuật thì được chứ câu lệnh thì chịu 8-}

    Avatar giống hệt nhau ...
     
    Chỉnh sửa cuối: 25/3/11
  9. championknight

    championknight Persian Prince Lão Làng GVN

    Tham gia ngày:
    19/8/05
    Bài viết:
    3,983
    Nơi ở:
    regoerjgoerjgoof
    Ba cái này giải thuật thì dễ còn code thì ai mà nhớ :<
     
  10. dajk9x

    dajk9x The Warrior of Light Lão Làng GVN

    Tham gia ngày:
    18/6/08
    Bài viết:
    2,257
    thời nào rồi còn học pascal
    c thì ta giúp đc :">
     
  11. namkaka12

    namkaka12 C O N T R A Lão Làng GVN

    Tham gia ngày:
    21/3/10
    Bài viết:
    1,542
    Ngồi viết bên chỗ lập trình mà mãi ko thấy ai trả lời...
    Cho em quote sang đây
     
  12. Meiji1412

    Meiji1412 C O N T R A

    Tham gia ngày:
    4/1/10
    Bài viết:
    1,877
    ^Đề của ku Bar đó, giải đi :>
    Hay chê đề dễ quá ko làm =))
     
  13. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ
    Giúp tớ nào
    quên sạch rồi,cậu nói thế tớ chịu
    biết là dùng những cái đó nhưng viết ct hoàn chỉnh thì k đc
     
  14. Bão...

    Bão... The Warrior of Light Lão Làng GVN

    Tham gia ngày:
    12/11/09
    Bài viết:
    2,197
    Nơi ở:
    Hanoi, Vietnam
    mấy bài này dễ :)) cơ mà pascal mình quên rồi , C thì :">
     
  15. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ
    đề này e nó làm k nổi đâu
    cũng từng học tuyển tin như chú a biết :">
    mà giờ 5 6 năm k dùng quên cmnr
    giúp ta đi bão :(( fan MU luôn mà :">
     
  16. Sniper_12192

    Sniper_12192 Persian Prince ➹ Marksman ➹ Lão Làng GVN

    Tham gia ngày:
    19/6/07
    Bài viết:
    3,923
    Nơi ở:
    HCM City
    ta thề bài này khá dễ, h cho quay lại năm 11 đi làm cái 1 luôn :))
     
  17. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ
    nói thế tao cũng nói đc =)))))))))))
     
  18. minhcloud

    minhcloud Mr & Ms Pac-Man

    Tham gia ngày:
    8/3/07
    Bài viết:
    156
    Post hộ Haseo4ever:
    Bài 1
    [spoil]program bai1;
    var xau: string[45];
    i,x,dem: integer;
    begin
    write ('Nhap xau:'); readln(xau);
    x:=length(xau);
    writeln('Do dai cua xau la: ',x); { tìm độ dài xâu}
    for i:= length(xau) downto 1 do
    write(xau); { viết ngược xâu}
    for i:=1 to length(xau) do
    xau := upcase(xau);
    write(xau); {viết hoa xâu}
    dem:=0
    for i:=1 to length(xau) do
    if xau = 'A' then dem := dem + 1;
    write('So lan xuat hien ki tu A la: ', dem); {đếm số lần xuất hiện kí tự A trong xâu}
    readln
    end.[/spoil]

    Bài 2:

    [spoil]program bai2;
    var i,n,soluongsole,soluongsochan,min,csmin:integer;
    a :array[1..50];
    begin
    write('Nhap so luong cac so:');readln(n);
    for i:=1 to n do
    begin
    write('Nhap so' thu' ', i); readln(a);
    end;
    soluongsole:=0;
    soluongsochan:=0;
    for i:=1 to n do
    if a mod 2 = 1 then soluongsole:=soluongsole + 1 ;
    writeln('So luong so le la: ', soluongsole);
    if a mod 2 = 0 then soluongsochan:=soluongsochan + 1;
    writeln('So luong so chan la: ', soluongsochan);
    min:= a[1]
    csmin:= 1
    for i:= 1 to n do
    if a < min then
    begin
    min := a;
    csmin:= i;
    end;
    writeln('Gia tri nho nhat la: ', min);
    writeln('Vi tri cua no la: ', csmin);
    readln
    end.[/spoil]

    Đề bài 3 chưa chặt chẽ:-?
     
    Chỉnh sửa cuối: 25/3/11
  19. nh0kpr0300

    nh0kpr0300 Mr & Ms Pac-Man

    Tham gia ngày:
    7/9/10
    Bài viết:
    149
    chủ thớt add yh đi chỉ tận tình cho. Giải 3 pascal toàn tỉnh vũng tàu đây :">
     
  20. |Night Fury|

    |Night Fury| Mr & Ms Pac-Man

    Tham gia ngày:
    16/1/11
    Bài viết:
    128
    Nơi ở:
    ɷG√Nɷ

    ghi nhận bro
    để đọc đã
    cảm ơn trước nhé
     

Chia sẻ trang này