Bài tập Pascal

♥ Bài Tập Pascal 1208 ♥ | Đây là những bài tập mang tính cơ bản, nhưng sau khi lập trình bạn sẽ thấy nó hấp dẫn. Bài 1: Đọc một số nguyên dương n từ file number.inp. Nếu n là số lẻ thì trừ 1 vào n, ngược lại tăng 1 vào n. Ghi n vào file number.out Bài 2: Đọc 2 số integer a,b từ bàn phím. Nếu tổng chúng khác 0 thì trừ 1 vào số nhỏ và cộng 1 vào số lớn. Xuất a,b ra màn hình. Bài 3: Cho v, t lần lượt điểm trung bình của môn văn và môn toán, đọc vào từ bàn phím. Hãy hoán vị v, t cho nhau. Xuất v, t ra màn hình. (yêu cầu không dùng biến trung gian, có nhiều cách rất hay đấy) Bài 4: Đọc vào từ bàn phím những con số nguyên dương bé hơn hoặc bằng maxint, đến khi người dùng nhập vào không phải số nguyên dương thì xuất ra giá trị lớn nhất ra màn hình. Bài 5: Đọc vào 1 số longint từ bàn phím. Không dùng thêm biến nào, xuất ra màn hình số chữ số của số đó (có nhiều cách) Bài 6: Viết trò chơi đoán số. Người dùng nghĩ ra một số từ 0 đến 10. Máy được phép đoán 4 lần (với mỗi lần đoán người chơi sẽ gợi ý: lớn quá (bằng cách nhập vào chữ L), nhỏ quá (chữ N), chính xác (chữ C) ). Hãy giúp máy đoán chính xác. Với mỗi bài người đưa ra chương trình đúng đầu tiên được 10 điểm, nếu người sau đưa ra cách đúng khác vẫn được 10 điểm. Những chương trình giải quyết được 1 phần vấn đề, vẫn có điểm khuyến khích. (Được sự giúp đỡ của BQT, chân thành cảm ơn). Hihi. Đây là topic đầu của KeMatLanh với mong muốn các bạn trao dồi kiến thức, và box Tin học sôi nổi hơn. Các bạn ủng hộ nhé. I_love_IT 12:08:26 Ngày 24-11-2008 Trả lời: ♥ Bài Tập Pascal 1208 ♥ | Bài này được '.QuangHuy91.' cho '.3.' điểm Đang bận, thử làm bài 1 nhé uses crt; var n:integer; f1,f2:text; BEGIN clrscr; assign(f1,'number.inp'); assign(f2,'number.out'); reset(f1); rewrite(f2); readln(f1,n); if n mod 2<>0 then writeln(f2,n-1) else writeln(f2,n+1); readln; END. Những bài kia cũng dễ, chỉ là đọc và ghi tệp thôi, đang bận, lúc khác làm tiếp . ♥ Bài Tập Pascal 1208 ♥ | Đây là những bài tập mang tính cơ bản, nhưng sau khi lập trình bạn sẽ thấy nó hấp dẫn. Bài 1: Đọc một số nguyên. Ngày 24-11-2008 Trả lời: ♥ Bài Tập Pascal 1208 ♥ | Bài này được '.QuangHuy91.' cho '.3.' điểm Đang bận, thử làm bài 1 nhé uses crt; var