Analyze program contest

[haqduong]

Nhận thấy tình hình học tin khối 11 bây giờ nói chung khá căng thẳng; vì vậy mình lập ra topic này để các bạn luyện tập.

Nội dung:
Các câu hỏi sẽ đưa ra dưới dạng 1 chương trình pascal. Các bạn đọc và cho biết mục đích của chương trình đó, các lỗi trong chương trình. Mỗi lỗi phát hiện đúng được 2->5 KL$. Tìm được mục đích của chương trình được 10KL$. Câu hỏi coi như đã giải xong nếu có người tìm được mục đích chương trình và phát hiện hết lỗi.

Lỗi: các bạn copy nguyên chương trình; chỗ nào có lỗi chuyển thành màu đỏ; comment lại; ghi phương án sửa với màu xanh

Câu hỏi đầu tiên:

Uses Crt;
Var n:integer;
BEGIN
clrscr;
write('Nhap n='); readln(i);
for i:=1 to n do
if (i mod 2=0) then inc(dem);
wrietln('Ket qua: ',dem);
readln;
END

[MrPaint]

Uses Crt;
Var n,dem:integer;
BEGIN
clrscr;
write('Nhap n='); readln(i);
for i:=1 to n do
if (i mod 2=0) then inc(dem);
wrietln('Ket qua: ',dem);
readln;
END

Topic này hay àh nghen Cái 1 này là thiếu khai báo dem hở chú?

[haqduong]

Originally Posted by MrPaint

Uses Crt;
Var n,dem:integer;
BEGIN
clrscr;
write('Nhap n='); readln(i);
for i:=1 to n do
if (i mod 2=0) then inc(dem);
wrietln('Ket qua: ',dem);
readln;
END

Topic này hay àh nghen Cái 1 này là thiếu khai báo dem hở chú?

Anh tìm được đúng 1 lỗi rồi; còn nhiều lỗi cơ . (gợi ý: còn vài lỗi khai báo với lỗi logic nữa).

[MrPaint]

Uses Crt;
Var n,i,dem:integer;
BEGIN
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if (i mod 2=0) then inc(dem);
writeln('Ket qua: ',dem);
readln;
END.

Ghê nhể, hóa ra nhiều lỗi àh

[MrPaint]

Chít thật +_+ Mắt vs. chả mũi
Mục đích của chương trình là đếm các số chẵn từ 1 đến n (n được người sử dụng nhập vào) và in ra kết quả
Khà khà

[lumosduy]

Hờ, thế này thì chơi khó nhau rồi, lớp 12 ko được học Pascal.

[robin]

AE vào chỉ check lỗi thoai,đừng trả lời vội không AE học hành rì ,để cho bọn trẻ với chứ

[haqduong]

Tình hình là dạo này tớ bận, cái này cũng không duy trì được nên tạm thời các bạn vào trang vn.spoj.pl để luyện tập nhé (đăng ký đơn vị là THPT Kim Liên) Hiện nay trường mình có 1 mem nên chưa được xếp hạng . Chỉ cần thêm 1 người đăng ký là trường mình ít nhất trong top 50

[JamesHetfields]

Trùi ui. sao mà tình hình gay cấn quá zday nè. Lớp 11 mà kô bít mấy cái bài tập này hé anh Dương. Chán nhỉ. Bi h người ta coi thường mấy cái môn này wa.
Nhưng em chỉ thik C thôi hà. Kô thik Pascal

[haqduong]

Originally Posted by JamesHetfields

Trùi ui. sao mà tình hình gay cấn quá zday nè. Lớp 11 mà kô bít mấy cái bài tập này hé anh Dương. Chán nhỉ. Bi h người ta coi thường mấy cái môn này wa.
Nhưng em chỉ thik C thôi hà. Kô thik Pascal

Đây có đầy đủ các ngôn ngữ mà, từ C, C++, FPC đến C#, Java cũng có . Có những bài rất dễ như POST: Nhập 2 số kiểu longint (pas) hoặc long (C++) rồi cộng nó vào, ghi ra kết quả -> 100/100 điểm.

PS: Bây giờ mà học thì ít nhất là C#, Java còn cao hơn thì C++, học C làm gì

[JamesHetfields]

Nhưng theo hỉu bít của em thì C là nền tảng của C++ và C#. Hé. Kô học C thì hỉu sao đc mấy cái ngôn ngữ lập trình khác. Đang dùng VS 2008 thấy có C.NET cug` hay phết.

[MrPaint]

Đúng rồi. Chương trình cơ bản ở ĐH bây h vẫn học C mà. C là ngôn ngữ mạnh nhưng đổi lấy cái sự mạnh là sự khó hiểu Sau này các ngôn ngữ phát triển thì đều dùng cú pháp của C nên nói chung học xong C là học những cái khác rất dễ

Gud luck

[haqduong]

Originally Posted by JamesHetfields

Nhưng theo hỉu bít của em thì C là nền tảng của C++ và C#. Hé. Kô học C thì hỉu sao đc mấy cái ngôn ngữ lập trình khác. Đang dùng VS 2008 thấy có C.NET cug` hay phết.

Ý em là C# hay C++ Anh học C# rồi học C++ vẫn hiểu ngon lành này

Originally Posted by MrPaint

Đúng rồi. Chương trình cơ bản ở ĐH bây h vẫn học C mà. C là ngôn ngữ mạnh nhưng đổi lấy cái sự mạnh là sự khó hiểu Sau này các ngôn ngữ phát triển thì đều dùng cú pháp của C nên nói chung học xong C là học những cái khác rất dễ

Gud luck

C làm sao khó hiểu bằng OOP của C++ được

PS: Không ai vào spoj chơi với tớ à