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.. Ghi n vào file numb

♥ 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é

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