Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » Học lập trình » Bài tập pascal dùng cấu trúc lặp.

Thi thử đại học 2014



Trả lời
  #1  
Cũ 31-01-2012
test19 test19 đang ngoại tuyến
Thành viên
Bàn phó
 
Tham gia : 26-10-2011
Bài viết: 59
Điểm học tập:3
Đã cảm ơn: 29
Được cảm ơn 7 lần
Bài tập pascal dùng cấu trúc lặp.

Nhập 2 số nguyên dương m,n
a. Tính tổng các số chia hết cho 2 và 3
b. Tính bội chung nhỏ nhất của 2 số m n
c. Liệt kê các số nguyên tố trong khoảng m n
d. Liết kê các số chính phương trong đoạn m n

Các bài viết xem nhiều nhất cùng chuyên mục:
Trả Lời Với Trích Dẫn
  #2  
Cũ 02-02-2012
p_trk's Avatar
p_trk p_trk đang ngoại tuyến
Thành viên
Tổ trưởng
 
Tham gia : 25-07-2011
Bài viết: 341
Điểm học tập:16
Đã cảm ơn: 452
Được cảm ơn 209 lần
câu a: nếu lặp thì không có điều kiện break ;
câu b:
Mã:
function BCNN(m,n: word ): word;
 begin 
     a:=m; b:=n;
     while  m<>n do  
       if m>n then m:=m-n else n:=n-m;
     BCNN:=(a*b)/m;
end;
câu c: mình bận quá nên giúp bạn ý tưởng thôi nha.
bạn nên lập một hàm kiểm tra số nguyên tố
cách kiểm tra số nguyên tố k thì
k<2 then false;
k>2 kiểm tra bằng số ước ;
bước tiếp theo bạn cho kiểm tra
m>n hay ngược lại
giả sử m>n thì
for i:=n to m do
if {kiểm tra nguyên tố là đúng } then {thông báo };
cấu d: tương tự bạn dùng hàm kiểm tra số chính phương ;
về phần kiểm tra số chính phương của số n
bạn kiểm tra như sau
nếu sqrt(n)=trunc(sqrt(n)) thì true ; ngược lại false
sau đó cho chạy như câu c ;
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn p_trk vì bài viết này:
Trả lời

Chia sẻ/đánh dấu bài viết


Ðiều chỉnh Tìm trong bài viết
Tìm trong bài viết:

Tìm chi tiết
Xếp bài

Quyền hạn của bạn
Bạn không thể tạo chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể đăng tập đính kèm
Bạn không thể sửa bài của mình

BB codeMở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

 
Bài giảng mới

Đề thi mới




Múi giờ GMT +7. Hiện tại là 14:19.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.
Advertisement System V2.4 By   Branden

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.