mình thấy có nhiều bạn thích học pascal mà koco bài tập để làm. mình xin mạn phép tạo 1 top pic về đề tài này để tất cả cùng thảo luận.
luật: môix tuần mình sẽ đưa ra 1 số câu hỏi về passcal
tơi cuối tuần sẽ duyệt bài trả lời của cấc bạn.
ai dật điểm cao nhất sẽ dc lĩnh thưởng tại A11.(gặp Long). phần thưởng giá trị rất lớn.
bài đầu tiên là
hãy viết chương trình nhập vào 1 số N và in ra ma trận đối xứng đường chéo(với N chẵn);
ví dụ: N=5
9 7 5 3 1
7 5 3 1 2
5 3 1 2 4
3 1 2 4 6
1 2 4 6 8

chúc các bạn làm bài tốt.
hết hạn nộp bài ngày 8/1/2011.

Đây là một ý kiến hay. Mình đã thành lập riêng một câu lạc bộ Pascal cho các bạn tham gia. Mong răng sẽ có nhiều người hưởng ứng. và Topic này cũng giao cho bạn [You must be registered and logged in to see this link.] làm quản lý luôn nhé. mong bạn sẽ điều hành chuyên mục này tốt, và đạt được nhiều thành quả cao. Để có thể chọn ra những bạn thật sự giỏi về Pascal để đưa vào đội học sinh giỏi pascal của trường.

e sẽ cố gắn thưa thầy.có khó khăn gì e sẽ trao đổi cùng thầy ạ. thầy giúp e để các bạn đọc bài này dc ko ạ?? e dở về internet lắm. hì

ok. mà theo thầy thì mỗi tuần e đưa ra một chủ đề về một dạng bài nào đó. nên đi từ những cái cơ bản trước. rồi nâng cao từ từ lên. mổi chủ đề thì ban đầu nên có phần lý thuyết sơ lược về phần đó. rồi đưa ra bài tập. để thầy nói mấy lớp vào tham gia. cố gắng làm tốt nhé.

h thì các bạn mới học tới mảng và xâu. e chỉ xoay quanh 2 phần đó thui. record thì ko sử dụng nhiều nên e ko post.nếu tren 50 người tham gia e sẽ phải xin kinh phí nhà trường đó thầy. hi

Các bạn tham khảo thử Code của mình nha!

Code:

program ct;
uses crt;
var i,j,n:integer;
begin
    clrscr;
    write('nhap vao n:');readln(n);
    for i:=n downto 1 do
    begin
        for j:=1 to i do
              write(' ',i*2 -2*j+1);
        for j:=1 to n-i do
            write(' ',j*2);
        writeln;
    end; readln;
end.

bạn thật thông minh. nhưng đoan code cuabanj có lỗi rồi. bạn thử check trên máy đi. chúc bạn sớm làm dc

sai thuật toán hay sai cú pháp vậy bạn?
Code không có vấn đề gì. Bạn xem thử lại đi.
Còn về thuật toán. Bạn yêu cầu sao thì mình làm vậy thôi.

bạn đã check trên máy chua?bạn có in ra ma trận giong của mình với tất cả N chưa?? N=10 thì sao??n=4 thì sao??

RongK9 đã viết:

bạn đã check trên máy chua?

Mình đã test kỹ. Không lỗi về mặt cú pháp.

RongK9 đã viết:

bạn có in ra ma trận giong
của mình với tất cả N chưa?? N=10 thì sao??n=4 thì sao??

Dạ. Xin thưa với bạn là đúng với N=5

RongK9 đã viết:

N=10 thì sao??n=4 thì sao??

Dạ xin thưa với bạn là, đề bài của bạn cho thiếu rất nhiều thông tin. Theo đề bài này mình chỉ rút ra được 1 nguyên tắc chung đó là:
- Các phần tử nằmtrên đường chéo phụ =1
- Các phần tử nằm trên đường chéo phụ là số lẻ theo thứ tự giảm dần.
- Các phần tử nằm dưới đường chéo phụ là số chẵn theo thứ tự tăng dần.

Mình có lời khuyên như thế này bạn ah:
- Khi cho đề bài bạn phải cho vài ví dụ trong nhiều trường hợp khác nhau, kể cả trường hợp đặc biệt
- Khi cho đề cần phải có lời giải thích cặn kẽ và bao quát toàn bộ ý tưởng bài toán.

a. bai nay minh lay tren mang. chi cho moi cai ma tran thoi. roi minh tu rut ra logic. chu ko he co de hoan chinh. ban thong cam.de minh lay code cua ban ve check nhe.

check xong roi. bai cua ban dung hoan toan. ko su dung mang.neu ban co the dung mang thi tot wa. thanks ban nhieu. ban o dau nhi??? wasanhdieu???thay trong thong tin cua ban 24 tuoi nen ko biet co gap dc ko nua. thay bai viet post lenko ai tham gia buon wa.chac phai post them nua thui. neu ai co nha hung thi post bai len cho moi nguoicung tham khao nhe.

RongK9 đã viết:

check xong roi. bai cua ban dung hoan toan. ko su dung mang.neu ban co the dung mang thi tot wa. thanks ban nhieu. ban o dau nhi??? wasanhdieu???thay trong thong tin cua ban 24 tuoi nen ko biet co gap dc ko nua. thay bai viet post lenko ai tham gia buon wa.chac phai post them nua thui. neu ai co nha hung thi post bai len cho moi nguoicung tham khao nhe.

blue cũng muốn tham gia lắm nhưng ngặt nỗi không biết gì về Pascal. Lúc đi học thì chỉ có học qua vài khóa về VB và Java. Giờ thì không biết nó nằm nơi nào rồi

p/s: Lần sau cố gắng viết bài có dấu nhé RongK9!

hix viết cos dấu dc rồi nè.

các bạn tham khảo code đáp án này nhé

program DX2; ues crt;
var i,j,n,k:byte;
begin clrscr;
write(' nhap vao so n');readln(n);
for i:=n downto 1 do
begin
for j:=1 to n do
begin
k:=i*2-j*2+1;
if k>=1 then write(k:5) else write(' ',(j-i_*2);
end;
writeln;
end;
readln;
end.


bluesky giới thiệu về bản thân dc ko??
wasanhdieu cũng giới thiệu về bản thân đi.
RongK9 tên Long, 16 tuổi, học 11A11 Xuân Lộc hiện thời.

Ùhm. Chào bạn RồngK9. Mình là Cảnh. Bạn học chung với A Đê min Mỹ.
Mình được triệu tập về đây làm Phụ Tá cho Thư Ký của A Đê Min mỹ. Nhưng mà thấy các Mót các Admin cùng các Mem ở đây hoạt động mạnh quá nên Wasanhdieu không có việc để làm. Vẫn ngồi chơi xơi nước.

Mong là được các bạn chiếu cố.
Thông tin của Wasanhdieu có 1 ít ở đây: [You must be registered and logged in to see this link.] mong mọi người chiếu cố.

blue là cựu học sinh của trường Xuân Lộc, ra trường năm 2002. Giờ già rồi nhưng vẫn còn đi học...haha. Hiện đang theo ngành điện tử. Tên thật thì xin được phép dấu vì sợ bạn bè cũ biết sẽ trảm chết

Ac Spam vừa thôi chứ:
Kosak1213 name : Nicholas
class : Unknow
school : unknow
email : [You must be registered and logged in to see this link.]

uh có đề pascal mới rồi đó mọi người vào làm thử xem. có gì trao đổi thêm nha

)
mày gặp phải thứ dữ rồi Long ơi!
múa rìu qua mắt thở gặp phải cử nhân tin hoc.
ko chết cũng uổng!!!!!!!!!!!!!!!!!!
nhìn thông tin còn thấy choáng.

Name = Giau
Class & School = RongK9 = Kosak1213
Ym! : [You must be registered and logged in to see this link.]

Mong được quý thầy cô và các bạn chỉ điểm thêm.

các bác vào làm đề mới nhá

de 2
ko ai themlam bai thi postlenlamgi nua. chanwa di thui

nói không phải khoe chứ mình biết làm chết liền thì làm sao ma posttrả lời lên được