Bài Tập Pascal BD HSG - Tin Học 9 - Nguyễn Thanh Xuân

Đăng nhập / Đăng ký

• Trang chủ
• Thành viên
• Trợ giúp
• Liên hệ

Đăng nhập

Tên truy nhập Mật khẩu Ghi nhớ   Quên mật khẩu ĐK thành viên

Bây giờ là mấy giờ?

Chat Yahoo Messenger

Thông tin

• Giới thiệu bản thân
• Thành tích
• Chia sẻ kinh nghiệm
• Lưu giữ kỉ niệm
• Hình ảnh hoạt động
• Soạn bài trực tuyến

Tài nguyên dạy học

Các ý kiến mới nhất

TVM chúc chủ nhà vui vẻ hạnh phúc...

Nhật Trường chào chủ nhà. ...

TVM GIA NHẬP TRANG, MỜI THÀY GHÉ THĂM. ...

TVM xin chào chủ nhà! ...

Chào Chủ nhà ...

SAKIN402 gia nhập trang chủ nhà.... Mong chúng ta là...

Chúc thày giáo một mùa Giáng sinh an lành...

Mừng tân gia, chúc ngôi nhà bạn ngày càng đông...

Hỗ trợ trực tuyến

Điều tra ý kiến

Bạn thấy trang này như thế nào? Đẹp Đơn điệu Bình thường Ý kiến khác

Thống kê

18198 truy cập (chi tiết) 1 trong hôm nay

21923 lượt xem 1 trong hôm nay

26 thành viên

Ảnh ngẫu nhiên

Thành viên trực tuyến

1 khách và 0 thành viên

Chào mừng quý vị đến với website của Nguyễn Thanh Xuân

Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình. Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái. Đưa đề thi lên Gốc > Đề thi > Tin học > Tin học 9 >

• Bài tập Pascal BD HSG
• Cùng tác giả
• Lịch sử tải về

Bài tập Pascal BD HSG

• 
• 
• 
• 
• 
• 
• 0 / 0
• 

Nhấn vào đây để tải về Báo tài liệu có sai sót Nhắn tin cho tác giả (Tài liệu chưa được thẩm định) Nguồn: Người gửi: Nguyễn Thanh Xuân (trang riêng) Ngày gửi: 11h:23' 08-10-2011 Dung lượng: 27.5 KB Số lượt tải: 112 Số lượt thích: 0 người MỘT SỐ BÀI TẬP PASCAL(BD HSG)1) Cho xâu S có N kí tự chữ số. Hãy xoa đi K kí tự để xâu còn lại biểu diễn một số bé nhất.Ví du: S=’869357495356872’, K=9 thì xâu còn lại là: S= “335672”Yêu cầu: Nhập S và K từ bàn phím. Hiện kết quả lên màn hình.Lời giải:USES crt;VAR s: string; k,i,j : integer; xoa: boolean;BEGINClrscr;Write (‘nhập xau gom cac ki tu chu so: ’); readln(s);Write (‘nhập so chu so can xoa: ’);Repeat {$I-} readln(k); {$I+}Until (ioresult = 0) and (k s[j+1] thenBegin Delete(s,j,1); Xoa:=true; Break;End;If xoa=false then delete(s,length(s),1);End;Wrietln(s);Readln;END.2) Hai sô tự nhiên a, b phân biệt được gọi là hữu nghị nếu như số này bằng tổng các ước số thực sự của số kia và ngược lại. Lập trình và chiếu lên màn hình các cặp số số hữu nghị trong phạm vi từ 1 đến 10000.Lời giải:Var a,b: integer;Funtion f(x: integer): integer; Var s,u: integer; Begin S:=1; For u:=2 to x div 2 do If x mod u = 0 then s:=s+u; F:=s; End;BEGIN For a:=1 to 10000 do Begin b:=f(a);If b>a thenIf a = f(b) then writeln(a,’ ‘,b);End;Readln;END.   ↓ ↓ Gửi ý kiến

Một số hình ảnh trong ngày cưới (Tại nhà Nữ)

Một số hình ảnh trong ngày cưới (tại nhà Nam)

Ảnh cưới và ảnh tham quan năm 2009

Bản quyền thuộc về Nguyễn Thanh Xuân - Trường THCS Hải Chánh Website được thừa kế từ Violet.vn, người quản trị: Nguyễn Thanh Xuân