Trang 1 của 2 12 CuốiCuối
Kết quả 1 đến 10 của 14
  1. #1
    Vi phạm Nội Quy Banned
    Ngày tham gia
    12 Jul 2011
    Đang ở
    Thanh Hóa City
    Bài viết
    116
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    Smile Giải bài tập Pascal *D2T*

    Mấy hôm đầu học Pascal em làm được hầu hết các bài tập thầy giao, mấy bữa sau thì lại không làm được vì em không ôn lại lí thuyết nên chả làm đc bài trong khi nhiều bạn khác lại làm xong rồi. Hiện text ẩn<-- Mà hôm đó thầy còn bảo em "thử" làm bài đó coi, ai ngờ, chắc thầy thất vọng vì em lắm --> . Hơi buồn nên em lập topic này nếu có bài khó nào thì mấy anh chị giải dùm em nhé

    Bài này em giải mãi không được. Trên lớp em mới chỉ học "For ... to / downto ... do" thôi nên em không dám dùng "while ... do". Anh nào giải được bằng "For ... to / downto ... do" thì giúp em với
    Bài 7 - trang 51 SGK lớp 11: Nhập từ bàn phím tuổi cha và con (hiện tại tuổi cha lớn hơn hai lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình câu trả lời cho câu hỏi "Bao nhiều năm nữa thì tuổi cha gấp đôi tuổi con?"
    Hiện text ẩn<-- "Sáng 29/10/2011 em phải thực hành rồi." -->

  2. #2
    Hội Vật Lý Đào Duy Từ
    Ngày tham gia
    09 Jul 2009
    Đang ở
    644 quang trung 2, đông vệ
    Tuổi
    30
    Bài viết
    1,368
    Thanks
    2
    Thanked 6 Times in 6 Posts
    Rep Power
    51

    Mặc định Re: Giải bài tập Pascal *D2T*

    bài này bắt buộc dùng while ..do hoặc repeat ... until

    em xem bài anh làm nhé

    Code:
     
    
    var t1, t2, i:byte;
           begin
                      write (' nhập tuổi bố, con');
                      readln(t1,t2);
                      While t2*2<t1  do 
                            begin
                                  t1:=t1+1;
                                  t2:=t2+1;
                                  i:=i+1;
                            end;
                      Write (' so nam la', i+1);           
                       readln; 
                end.
    Tôi muốn làm nên tất cả

  3. #3
    Tu luyện đệ tử ĐDT Member s2_Rain's Avatar
    Ngày tham gia
    17 Nov 2010
    Đang ở
    Nơi có mưa và em
    Tuổi
    30
    Bài viết
    181
    Thanks
    0
    Thanked 2 Times in 2 Posts
    Rep Power
    44

    Mặc định Re: Giải bài tập Pascal *D2T*

    lên vn-zoom bạn
    có ngay câu trả lời sau 5 p
    samp19bae2da2fd658b8.jpg

  4. #4
    Hội Vật Lý Đào Duy Từ
    Ngày tham gia
    09 Jul 2009
    Đang ở
    644 quang trung 2, đông vệ
    Tuổi
    30
    Bài viết
    1,368
    Thanks
    2
    Thanked 6 Times in 6 Posts
    Rep Power
    51

    Mặc định Re: Giải bài tập Pascal *D2T*

    Trích dẫn Gửi bởi s2_Rain Xem bài viết
    lên vn-zoom bạn
    có ngay câu trả lời sau 5 p
    Sau 5 phút à bạn. Để mình thử xem sao nhé
    Tôi muốn làm nên tất cả

  5. #5
    Vi phạm Nội Quy Banned
    Ngày tham gia
    12 Jul 2011
    Đang ở
    Thanh Hóa City
    Bài viết
    116
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    Mặc định Re: Giải bài tập Pascal *D2T*

    Ác, thầy có bài tính x^y với x và y nhập từ bàn phím. Ai viết dùm em chương trình lun với. Khó ác

  6. #6
    Hội Vật Lý Đào Duy Từ Apprentice Mod Smileeeee's Avatar
    Ngày tham gia
    03 May 2011
    Tuổi
    29
    Bài viết
    38
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Rep Power
    43

    Mặc định Re: Giải bài tập Pascal *D2T*

    Trích dẫn Gửi bởi —¤÷¤* ߀ߵ *¤÷¤— Xem bài viết
    Ác, thầy có bài tính x^y với x và y nhập từ bàn phím. Ai viết dùm em chương trình lun với. Khó ác
    Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
    var x,y,i,S:integer;
    begin
    clrscr;
    write('moi nhap x.y '); readln(x,y);
    S:=1;
    for i:=1 to y do S:=S*x;
    write('x^y=',S:10);
    readln
    end.

  7. #7
    Hội Vật Lý Đào Duy Từ
    Ngày tham gia
    09 Jul 2009
    Đang ở
    644 quang trung 2, đông vệ
    Tuổi
    30
    Bài viết
    1,368
    Thanks
    2
    Thanked 6 Times in 6 Posts
    Rep Power
    51

    Mặc định Re: Giải bài tập Pascal *D2T*

    Trích dẫn Gửi bởi Smileeeee Xem bài viết
    Hay thế. Tớ cũng thích làm pascal. Tớ làm bài này thế này, cậu xem lại xem có đc không
    var x,y,i,S:integer;
    begin
    clrscr;
    write('moi nhap x.y '); readln(x,y);
    S:=1;
    for i:=1 to y do S:=S*x;
    write('x^y=',S:10);
    readln
    end.
    S:longint em

    s integer thì đc mấy
    Lần sửa cuối bởi thanhkhoeo, ngày 30-10-2011 lúc 06:14 AM.
    Tôi muốn làm nên tất cả

  8. #8
    Hội Vật Lý Đào Duy Từ Apprentice Mod Smileeeee's Avatar
    Ngày tham gia
    03 May 2011
    Tuổi
    29
    Bài viết
    38
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Rep Power
    43

    Mặc định Re: Giải bài tập Pascal *D2T*

    Anh nào giúp em bài này với: in ra màn hình tất cả các số n tố từ 1-> 300. em cảm ơn trc :burn_joss_stick:

  9. #9
    Nhập môn đồ đệ ĐDT Member
    Ngày tham gia
    08 Nov 2011
    Tuổi
    32
    Bài viết
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    41

    Mặc định Re: Giải bài tập Pascal *D2T*

    Nay chỉ học C++ nên anh không nhớ rõ pascal lắm.Em thử cái này xem(Không biết cấu trúc có đúng không.Lâu ngày không học mà ):
    var n:integer;
    begin
    clrscr;
    for i:=1 to 300 do
    write(n:4);
    readln
    end.

  10. #10
    Hội Vật Lý Đào Duy Từ
    Ngày tham gia
    09 Jul 2009
    Đang ở
    644 quang trung 2, đông vệ
    Tuổi
    30
    Bài viết
    1,368
    Thanks
    2
    Thanked 6 Times in 6 Posts
    Rep Power
    51

    Mặc định Re: Giải bài tập Pascal *D2T*

    var j:integer;
    function nguyento(z:integer):boolean;
    var i:integer;
    begin
    nguyento:=true;
    for i:=1 to (sqrt(z)div 1) do
    if z mod i=0 then nguyento:=false;
    end;begin
    clrscr;
    for j:=1 to 300 do if nguyento(j) then
    write(j:4);
    readln
    end.
    Tôi muốn làm nên tất cả

Trang 1 của 2 12 CuốiCuối

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)

Đánh dấu

Quyền viết bài

  • 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ể Sửa bài viết của mình
  •