Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Lời mời tham dự chương trình từ thiện "Giáng Sinh Trong Mắt Em"

Mời offline công nghệ cùng Vn-Zoom tại Hà Nội

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Mời offline công nghệ cùng VN-Zoom tại TP HCM
Trang 1/2 1 2 cuốicuối
kết quả từ 1 tới 15 trên 29
  1. #1
    hieucocc's Avatar
    hieucocc vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Feb 2011
    Đến từ
    ||||||||||||
    Bài
    380
    Cảm ơn
    50
    Điểm
    195/93 bài viết

    Default Giúp viết chương trình pascal

    Giúp mình viết chương trình pascal này với!
    1.viết chương trình đưa ra màn hình bảng chữ cái từ a->z
    2.nhập số nguyên n và tìm tất cả các ước của nó
    3.tính tổng bình phương S= 1^2+2^2+....+n^2 với n là số dương nhập từ bàn phím
    4.Tính bình phương của n số lẻ nguyên dương, với n nhập từ bàn phím.
    5.nhập số nguyên và kiểm tra nó là số hoàn thiện không.
    Cảm ơn trước giúp mình nhanh cho mai kiểm tra rùi

  2. Có 1 thành viên cảm ơn hieucocc cho bài viết này:
    win 8 (24-02-2012)

  3. #2
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.438/1.515 bài viết

    Default

    Bài 1
    Code:
    uses crt;
    var ch: char;
    begin
      clrscr;
      for ch:='a' to 'z' do
       write(ch,' ');
      readln;
    end.
    Bài 2
    Code:
    uses crt;
    var n, i: integer;
    
    begin
     clrscr;
     write('Nhap 1 so: ');
     readln(n);
     writeln('Cac uoc cua ',n,':');
     for i:=1 to n do 
      if n mod i=0 then
       write(i,' ');
     readln;
    end.
    Bài 3
    Code:
    uses crt;
    var n, i,s: integer;
    
    begin
     clrscr;
     write('Nhap 1 so: ');
     readln(n);
     s:=0;
     for i:=1 to n do 
      s:=s+i*i;
     write('Tong la: ',s);
     readln;
    end.
    Bài 5
    Code:
    uses crt;
    var n, i, t: integer;
    
    begin
     clrscr;
     write('Nhap 1 so: ');
     readln(n);
     t:=0;
     for i:=1 to n-1 do 
       if n mod i=0 then 
         t:=t+i;
     if t=n then
      write (n,' la so hoan thien')
     else
      write (n,' khong phai la so hoan thien');
     readln;
    end.
    Thay đổi nội dung bởi 19-6; 05-04-2011 lúc 08:43.


  4. Có 4 thành viên cảm ơn 19-6 cho bài viết này:
    auauau97 (24-11-2011), thanhxuanhd (24-12-2012), Tung_Huynh (25-11-2011), win 8 (24-02-2012)

  5. #3
    firefoxvt's Avatar
    firefoxvt vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Apr 2008
    Bài
    863
    Cảm ơn
    205
    Điểm
    346/198 bài viết

    Default

    Code:
    uses crt;
    var n, i, t: integer;
    
    begin
     clrscr;
     write('Nhap 1 so: ');
     readln(n);
    
    t:=0;
     for i:=1 to n-1 do 
       if n mod i=0 then 
         t:=t+i;
     if t=n then
      write (n,' la so hoan thien')
     else
      write (n,' khong phai la so hoan thien');
     readln;
    end.
    Mình nghĩ để t=0 lúc đầu sẽ dễ hiểu hơn.hj

  6. Có 2 thành viên cảm ơn firefoxvt cho bài viết này:
    19-6 (03-04-2011), win 8 (24-02-2012)

  7. #4
    19-6's Avatar
    19-6 vẫn chưa có mặt trong diễn đàn Moderator
    Tham gia
    Sep 2008
    Đến từ
    Abyss
    Bài
    1.904
    Cảm ơn
    858
    Điểm
    3.438/1.515 bài viết

    Default

    Trích firefoxvt View Post
    Mình nghĩ để t=0 lúc đầu sẽ dễ hiểu hơn.hj
    chết thật, làm vội quá nên bị nhầm, đúng là phải đặt t:=0 ngay từ đầu, thank vì đã góp ý


  8. Có 1 thành viên cảm ơn 19-6 cho bài viết này:
    win 8 (24-02-2012)

  9. #5
    hieucocc's Avatar
    hieucocc vẫn chưa có mặt trong diễn đàn Rìu Bạc
    Tham gia
    Feb 2011
    Đến từ
    ||||||||||||
    Bài
    380
    Cảm ơn
    50
    Điểm
    195/93 bài viết

    Default

    Thank mấy bạn nha!

  10. Có 1 thành viên cảm ơn hieucocc cho bài viết này:
    win 8 (24-02-2012)

  11. #6
    phacach789's Avatar
    phacach789 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2011
    Bài
    5
    Cảm ơn
    0
    Điểm
    3/3 bài viết

    Default

    Ai giúp tớ bài này được không
    Viết chương trình in ra màn hình chỗ ngồi của các học sinh trong lớp. Khi in ra phải có thông tin về học sinh
    Ai có thể giúp nhanh được ko. Mình cần gấp

  12. Có 1 thành viên cảm ơn phacach789 cho bài viết này:
    win 8 (24-02-2012)

  13. #7
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    Default

    Trích phacach789 View Post
    Ai giúp tớ bài này được không
    Viết chương trình in ra màn hình chỗ ngồi của các học sinh trong lớp. Khi in ra phải có thông tin về học sinh
    Ai có thể giúp nhanh được ko. Mình cần gấp
    Thế nghĩ là như thế nào hả bạn ?
    dùng đồ họa vẽ ra cái bàn hay là cho tọa độ ?
    nhập tọa độ bàn và tên học sinh hả bạn ?
    bạn có thể VD thêm không ?
    Nothing is true, everything is permitted

  14. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    win 8 (24-02-2012)

  15. #8
    phacach789's Avatar
    phacach789 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2011
    Bài
    5
    Cảm ơn
    0
    Điểm
    3/3 bài viết

    Default

    Trích auauau97 View Post
    Thế nghĩ là như thế nào hả bạn ?
    dùng đồ họa vẽ ra cái bàn hay là cho tọa độ ?
    nhập tọa độ bàn và tên học sinh hả bạn ?
    bạn có thể VD thêm không ?
    pascal làm gì có đồ họa hả cậu. cậu làm hộ tớ cái tọa độ bàn và tên học sinh được ko
    Tks cậu

  16. Có 1 thành viên cảm ơn phacach789 cho bài viết này:
    win 8 (24-02-2012)

  17. #9
    thecuong064's Avatar
    thecuong064 vẫn chưa có mặt trong diễn đàn Rìu Vàng
    Tham gia
    Jun 2011
    Đến từ
    Hacker's Home
    Bài
    938
    Cảm ơn
    133
    Điểm
    418/259 bài viết

    Default

    Trích phacach789 View Post
    pascal làm gì có đồ họa hả cậu. cậu làm hộ tớ cái tọa độ bàn và tên học sinh được ko
    Tks cậu
    Pascal có đồ hoạ mà bạn. Kiên còi làm game đầy đấy thôi

  18. Có 1 thành viên cảm ơn thecuong064 cho bài viết này:
    win 8 (24-02-2012)

  19. #10
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    Default

    Trích phacach789 View Post
    pascal làm gì có đồ họa hả cậu. cậu làm hộ tớ cái tọa độ bàn và tên học sinh được ko
    Tks cậu
    pascal có đồ họa mà bạn, có mà, bạn lên google tìm đồ họa trong pascal ra cả đống đó, cái tọa độ là nhập hàng và cột hả bạn ?
    nhập cả tên học sinh à ?
    mình dngf kiểu record có được không ?
    hay bạn mới học tới màng ?
    bạn đã học cái function và procedure chưa ?

    ---------- Bài thêm lúc 20:58 ---------- Bài trước là lúc 20:47 ----------

    Trích phacach789 View Post
    pascal làm gì có đồ họa hả cậu. cậu làm hộ tớ cái tọa độ bàn và tên học sinh được ko
    Tks cậu
    bạn xem code này có đúng ý không nhé:
    Code:
    Uses crt;
    Type
      HS= Record
               ten:string[50];
               x,y:real;
             End;
    Var
      a:array[1..50] of HS;
      n,i:longint;
    BEGIN
      Clrscr;
      Writeln('Nhap danh sach hoc sinh:');
      Writeln;
      Write('Nhap so hoc sinh:');
      Readln(n);
      Writeln;
      For i:=1 to n do
        With a[i] do
          Begin
            Write('Nhap ten cua hoc sinh thu ',i,':');
            Readln(ten);
            Writeln('Nhap toa do cho ngoi cua hoc sinh:');
            Write('Nhap hang:');
            Readln(x);
            Write('Nhap cot:');
            Readln(y);
            Writeln;
          End;
      Writeln;
      Writeln('===========================================================================');
      Writeln('In danh sach hoc sinh:');
      For i:=1 to n do
        With (a[i]) do
          Begin
            Writeln('Ten hoc sinh:',ten);
            Writeln('Toa do vi tri cua hoc sinh: hang thu ',x:0:2,' cot thu ',y:0:2);
            Writeln;
          End;
      Readln;
    END.
    Nothing is true, everything is permitted

  20. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    win 8 (24-02-2012)

  21. #11
    phacach789's Avatar
    phacach789 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2011
    Bài
    5
    Cảm ơn
    0
    Điểm
    3/3 bài viết

    Default

    Cậu làm đơn giản hơn đc ko. Mình mới học thôi mà. ví dụ như các câu lệnh lặp, câu lênh if then đó.
    Cậu làm 1 cách đơn giản nhấ giúp mình. Chỉ cần tên học sinh và chỗ ngồi thôi cậu à. tks cậu

  22. Có 1 thành viên cảm ơn phacach789 cho bài viết này:
    win 8 (24-02-2012)

  23. #12
    Tham gia
    Feb 2012
    Bài
    3
    Cảm ơn
    0
    Điểm: 1/1 bài viết

    Default

    Ai giúp em viết CT kiểm tra xem từ 1-n có bao nhiêu số nguyên tố ko. Em xin cảm ơn trước ạ.

    ---------- Bài thêm lúc 11:59 ---------- Bài trước là lúc 11:58 ----------

    Xem giùm em, ngày kia em đi thi rùi

  24. Có 1 thành viên cảm ơn dragonair-crobat cho bài viết này:
    win 8 (24-02-2012)

  25. #13
    auauau97's Avatar
    auauau97 vẫn chưa có mặt trong diễn đàn Rìu Chiến Vàng
    Tham gia
    Jun 2010
    Đến từ
    Hà Nội
    Bài
    6.647
    Cảm ơn
    11.934
    Điểm
    5.263/3.016 bài viết

    Default

    Trích dragonair-crobat View Post
    Ai giúp em viết CT kiểm tra xem từ 1-n có bao nhiêu số nguyên tố ko. Em xin cảm ơn trước ạ.

    ---------- Bài thêm lúc 11:59 ---------- Bài trước là lúc 11:58 ----------

    Xem giùm em, ngày kia em đi thi rùi
    nè bạn, bạn thự khai báo, thêm nốt theo ý mình nhá:
    Code:
    dem:=0;
    for i:=1 to n do
      begin
        kt:=true; 
        for j:=2 to round(sqrt(i)) do
          if i mod j=0 then
            begin
              kt:=false; break;
            end;
        if kt=true them dem:=dem+1;
      end;
    In ra biếm dem chính là số các số nguyên tố từ 1 đến n

  26. Có 1 thành viên cảm ơn auauau97 cho bài viết này:
    win 8 (24-02-2012)

  27. #14
    duytuyendao's Avatar
    duytuyendao vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Oct 2009
    Bài
    6
    Cảm ơn
    0
    Điểm: 7/1 bài viết

    Default

    ai làm dùm bài
    Viết chương trình nhập tên của tất cả các bạn trong lớp và in ra lời chào tên bạn vừa được nhập vào. Nếu như nhập xong hãy in ra dòng thông báo . bạn có muốn tiếp tục nhập . Nếu muốn gõ vào nhấp núa C nếu k gõ vào nhấn chữ K
    lam dum nhe'

  28. #15
    Tham gia
    Apr 2012
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết

    Default

    ai giúp m` giải đề này với: (mảng 2 chiều)
    Nhập ma trận gồm m dòng, n cột. Viết chương trình sắp xếp các phần tử của ma trận tăng dần.
    Gợi ý:
    -Chuyển 2 chiều sang 1 chiều
    -Sắp xếp mảng 1 chiều tăng dần
    -Chuyển về lại 2 chiều

 

 
Trang 1/2 1 2 cuốicuối

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •