Đang tải... (xem toàn văn)
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: Đ[r]
(1)♥ Bài Tập Pascal 1208 ♥ |
Đây tập mang tính bản, sau lập trình bạn thấy hấp dẫn
Bài 1: Đọc số nguyên dương n từ file number.inp Nếu n số lẻ trừ vào n, ngược lại tăng vào n Ghi n vào file number.out
Bài 2: Đọc số integer a,b từ bàn phím Nếu tổng chúng khác trừ vào số nhỏ cộng vào số lớn Xuất a,b hình
Bài 3: Cho v, t điểm trung bình mơn văn mơn tốn, đọc vào từ bàn phím Hãy hoán vị v, t cho Xuất v, t hình (u cầu khơng dùng biến trung gian, có nhiều cách hay đấy)
Bài 4: Đọc vào từ bàn phím số nguyên dương bé maxint, đến người dùng nhập vào số nguyên dương xuất giá trị lớn hình
Bài 5: Đọc vào số longint từ bàn phím Khơng dùng thêm biến nào, xuất hình số chữ số số (có nhiều cách)
Bài 6: Viết trị chơi đốn số Người dùng nghĩ số từ đến 10 Máy phép đoán lần (với lần đoán người chơi gợi ý: lớn (bằng cách nhập vào chữ L), nhỏ (chữ N), xác (chữ C) ) Hãy giúp máy đốn xác
Với người đưa chương trình 10 điểm, người sau đưa cách khác 10 điểm Những chương trình giải phần vấn đề, có điểm khuyến khích (Được giúp đỡ BQT, chân thành cảm ơn)
Hihi ây l topic Đ à đầu c a KeMatLanh v i mong mu nủ ớ ố 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 '.QuangHuy91.' cho '.3.' điểm Đang bận, thử làm
(2)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