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

Tuyển chuyên viên tin tức VN-Zoom 2014

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Hoãn tổ chức offline VN-Zoom 8 năm tại TP HCM

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

Tài trợ VNZ Siêu phẩm Tân Kiếm Thế chibi 3D mới

Tuyển BQT VN-Zoom
kết quả từ 1 tới 8 trên 8
  1. #1
    kaka7596's Avatar
    kaka7596 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jul 2009
    Bài
    121
    Cảm ơn
    24
    Điểm
    14/13 bài viết
    VR power
    0

    Default Giúp em Pascal về câu lệnh lặp

    Bài này dùng cấu trúc For...to...do nhưng em quên mất cách làm rùi , bác nào giúp em với :
    Đề : Lập trình nhập số nguyên dương N:
    a) Viết ra màn hình dãy số tự nhiên từ 1 đến N và tính tổng .
    b) Viết ra màn hình dãy số tự nhiên chẵn từ 1 đến N và tính tổng .
    c) Viết ra màn hình dãy số tự nhiên lẻ từ 1 đến N và tính tổng .
    d) Viết ra màn hình dãy số tự nhiên chia hết cho 3 từ 1 đến N và tính tổng .
    e) Liệt kê các ước tự nhiên của 1 đến N rồi tính tổng.
    Các bác làm riêng từng phần cho dễ hiểu nhé !

  2. #2
    hoangtin14's Avatar
    hoangtin14 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2009
    Đến từ
    Bình Định
    Bài
    127
    Cảm ơn
    8
    Điểm
    13/12 bài viết
    VR power
    0

    Default

    Bài a)
    Program tinhtong;
    Uses crt;
    Var
    i,n,t:integer;
    Begin
    clrscr;
    Write('Nhap so nguyen duong N:');
    Readln(n);
    t:=0;
    For i:=1 to n do
    begin
    Write(i:2);
    t:=t+i;
    End;
    Writeln;
    Writeln('Tong cua cac so tren la:',t);
    Readln
    End.

    b)
    Program tinhtong_sochan;
    Uses crt;
    Var
    i,n,t:integer;
    Begin
    clrscr;
    Write('Nhap so nguyen duong N:');
    Readln(n);
    t:=0;
    For i:=1 to n do
    if i mod 2=0 then
    begin
    Write(i:2);
    t:=t+i;
    End;
    Writeln;
    Writeln('Tong cua cac so tren la:',t);
    Readln
    End.

    c)
    Program tinhtong_sochan;
    Uses crt;
    Var
    i,n,t:integer;
    Begin
    clrscr;
    Write('Nhap so nguyen duong N:');
    Readln(n);
    t:=0;
    For i:=1 to n do
    if i mod 2=1 then
    begin
    Write(i:2);
    t:=t+i;
    End;
    Writeln;
    Writeln('Tong cua cac so tren la:',t);
    Readln
    End.

    d)
    Program tinhtong_sochan;
    Uses crt;
    Var
    i,n,t:integer;
    Begin
    clrscr;
    Write('Nhap so nguyen duong N:');
    Readln(n);
    t:=0;
    For i:=1 to n do
    if i mod 3=0 then
    begin
    Write(i:2);
    t:=t+i;
    End;
    Writeln;
    Writeln('Tong cua cac so tren la:',t);
    Readln
    End.


    Tất cả các chương trình trên đều tương tụ như nhau. Mình làm 4 bài đầu, bài cuối bạn tự làm đi.
    Khi bạn sinh ra mọi người cười trong khi bạn khóc...
    Hãy sống để khi bạn chết, mọi người khóc trong khi bạn cười...

  3. #3
    giangmeo's Avatar
    giangmeo vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Mar 2008
    Bài
    181
    Cảm ơn
    12
    Điểm
    21/19 bài viết
    VR power
    0

    Default

    mấy bài này mà củng nhờ giải nửa bạn.

  4. #4
    Forte_201092's Avatar
    Forte_201092 vẫn chưa có mặt trong diễn đàn Thành viên đang bị kỷ luật
    Tham gia
    Oct 2008
    Đến từ
    Huế City
    Bài
    224
    Cảm ơn
    1
    Điểm
    22/19 bài viết
    VR power
    0

    Default

    Ông giangmeo này nói nhiều quá. Vô giải bài mê cung dùm tui coi.

  5. #5
    nhokdragon94's Avatar
    nhokdragon94 vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Dec 2009
    Bài
    29
    Cảm ơn
    0
    Điểm
    3/3 bài viết
    VR power
    0

    Default

    Bài cuối chả hỉu bạn nói j`

  6. #6
    CTTNHG's Avatar
    CTTNHG vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2010
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Post mình cũng có 1 bai viết chương trình về câu lệnh lặp. Các bạn giải giùm nhá!

    Viết chương trình cho phép nhập tên và hiển tên thị ngoài màn hình "chao ban...'' cho biết tên hiển thị từ 1 đến 40

  7. #7
    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.407/1.516 bài viết
    VR power
    0

    Default

    Trích CTTNHG View Post
    Viết chương trình cho phép nhập tên và hiển tên thị ngoài màn hình "chao ban...'' cho biết tên hiển thị từ 1 đến 40
    PHP Code:
    Uses crt;  
    var     
    hotenstring;  
              
    i,nbyte
      
    BEGIN 
         clrscr

         
    write('Nhap ho ten='); Readln(hoten); 
         
    write('Nhap so lan hien thi: '); Readln(n); 
         For 
    i:=1 to n do
         
    writeln('Chao ban ',hoten);
         
    readln;  
      
    END
    Thay đổi nội dung bởi 19-6; 12-01-2011 lúc 10:20.


  8. #8
    4myheart's Avatar
    4myheart vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Apr 2013
    Bài
    1
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    ba con co ai giai gium minh bai nay voi:Viet chuong trinh in ra man hinh 10 chu "Chao ban" co su dung cau lenh lap.

 

 

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
  •