Bài tập Pascal thi học sinh giỏi THPT

00 Bài tập Pascal dành cho học sinh giỏi tin học và tin học trẻ không chuyên cấp THCS và THPT có đáp án kèm theo. Các em trong đội tuyển down về để tham khảo. Thầy đã lược bớt các bài tập quá khó và quá dễ nên chỉ còn khoãng 70 bài thôi.

Bài tập Pascal thi học sinh giỏi THPT

1. 100 Đề thi Tin học (có bài giải) - Download
2. Bài giảng lập trình có cấu trúc - Download
3. Ngôn ngữ lập trình Pascal - Download
4. Ngôn ngữ lập trình Pascal - Download
5. Giáo trình tin học ứng dụng - Download
6. Giáo trình tin học Đại cương - Download
7. Tuyển chọn bài tập Pascal lớp 11 - Download
8. Lập trình nâng cao trên ngôn ngữ Pascal - Download
9. Giáo trình kỹ thuật lập trình - Download
10. Giáo trình Lập trình nâng cao - Download
11. Tài liệu giáo khoa chuyên tin - Quyển 1 - Download
12. Tài liệu giáo khoa chuyên tin - Quyển 2 - Download
13. Tài liệu giáo khoa chuyên tin - Quyển 3 (Phần 1) - Download
14. Tài liệu giáo khoa chuyên tin - Quyển 3 (Phần 2) - Download
15. Ngôn ngữ lập trình Pascal - Download
16. Ngôn ngữ lập trình Pascal - Download
17. Ngôn ngữ lập trình Pascal - Download
18. Ngôn ngữ lập trình Pascal - Download

19. Bài tập Pascal Đại học Huế - Download


20. Bài Giảng phân tích và thiết kế thuật toán - Download
21. Bài Giảng lập trình nâng cao Pascal - Download
22. Bài Giảng lập trình nâng cao Pascal - Download
23. Bài Giảng giải thuật và lập trình - Lê Minh Hoàng - Download
24. 150 bài toán tin - Lê Minh Hoàng - Download
25. Bài Giảng chuyên đề - Lê Minh Hoàng - Download

26. Giải thuật và các thuật toán - Download


27. Kỹ thuật lập trình nâng cao - Download
28. 100 Bài tập Pascal lớp 8 - Download
29. 61 bài tập Pascal thông dụng - Download
30. Bài Giảng phân tích và thiết kế thuật toán - Download

31. Bài tập và bài giải (Tài liệu bồi dưỡng Học sinh giỏi)

Còn sưu tầm và bổ sung thêm .... mời các bạn ghé thăm sau nhé!

Bài tập pascal thi học sinh giỏi cơ bản dành cho ôn thi học sinh giỏi được biên soạn theo các phần sau: Nhập xuất dữ liệu, lưu đồ thuật toán, cấu trúc rẽ nhánh, cấu trúc lặp, hàm đệ quy, mảng một chiều. Để nắm vững nội dung chi tiết mời các bạn cùng tham khảo tài liệu. Hãy cùng tham khảo với onthihsg nhé.

100 bài tập Turbo Pascal” cung cấp các dạng bài tập để các bạn làm quen với những kiến thức như: chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào ra; cấu trúc lựa chọn – if … then… else; cấu trúc lặp với số lần lặp đã biết – For… to… do; cấu trúc lặp với số lần lặp chưa biết; dữ liệu kiểu xâu ký tự… mời các bạn cùng tham khảo tài liệu chi tiết.

Bài tập Pascal thi học sinh giỏi THPT

Viết chương trình tìm tất cả các số có 3 chữ số abc sao cho abc = a3+b3+c3

Program bt5_17;

Var a,b,c:longint;

Begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if 100*a+10*b+c=a*a*a+b*b*b+c*c*c then writeln(a,b,c);

readln;

End.

Viết chương trình tìm tất cả các số có 3 chữ số sao cho tổng tất cả các chữ số bằng tích của chúng. VD: a+b+c = a*b*c

Program bt5_18;

Var a,b,c:longint;

Begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if a+b+c=a*b*c then writeln(a,b,c);

readln;

End.

Viết CT tìm lời giải cho các bài toán sau a. Trong giỏ vừa thỏ vừa gà, 100 cái cẳng, 43 cái đầu. Hỏi mấy gà, mấy thỏ?

Program bai3;

Uses crt;

Var ga,tho:byte;

Begin

Clrscr;

for ga:=1 to 43 do

begin

tho:=43 – ga;

if 4*tho+2*ga=100 then writeln(‘so ga va tho la: ‘,ga,’ ‘,tho);

end;

Readln

End.

Phân tích số N thành tổng các số liền nhau

Cho số nguyên dương N. Hãy cho biết có thể phân tích N thành tổng các số tự nhiên liên tiếp hay không? Nếu có hãy phân tích N thành tổng của các số tự nhiên liên tiếp với nhiều số hạng nhất có thể được.

VD: Nhâp n = 5

Xuất:

5 = 1 + 1 + 1 + 1 + 1

5 = 1 + 1 + 1 + 2

5 = 1 + 1 + 3

5 = 1 + 2 + 2

5 = 1 + 4

5 = 2 + 3

5 = 5

 m,i,h,g,N,k,S:integer;

Begin

write(‘Nhap vao so nguyen duong N:’); Readln(N);

m:=1;

while m<= N div 2 do

Begin

For i:= (N +1) div 2 downto m+1 do

Begin

S:=0; h:=0;

For k:=m to i do

Begin

S:=S+k;

h:=h+1;

A[h]:=k;

End;

if S=N then

Begin

For g:=1 to h do

write(A[g]:3);writeln;Readln;exit;

End;

End;

m:=m+1;

End;

Readln

END.

Tài liệu ôn thi HSG tin học THPT