Chủ đề này có 25 trả lời

[Gabriel]

Hiện nay mình đang học lớp 10, nói về Pascal thì tàm tạm, nếu ai có thắc mắc hoặc muốn giải hộ bài nào đó về Pascal thì các bạn có thể Post tại đây để mình giúp đỡ.

Mọi người đều có lợi

(Trong phạm vi lớp 10 )

[HaiDang]

Thế àh, anh có 1 số bài lớp 10 nè, em làm cho vui
Cho n là 1 số tự nhiên <=500, viết chương trình in ra tam giác pascal
Vi dụ:
+n =3 tam giác là
1
2
1
+n =5 tam giác là:
1
4
6
4
1
+n =20 tam giác là:
1
19
171
969
3876
11628
27132
50388
75582
93278
93278
75582
50388
27132
11628
3876
969
171
19
1

Input
dòng đầu n số tự nhiên (n <=500)
output
xuất ra tam giác pascal

[binhminhhesang]

Mình cũng có bài muốn góp vui .
Cần khiêng một chiếc bàn tròn abns kính m để đầy thức ăn qua một hành lang dài.Trên hành lang có n chiếc cột p1(x1,y1)(tức là có tọa độ (x1,y1)).....pn(xn,yn).Mỗi chiếc cột đều có bán kính k.Hai bên hành lang có hai bức tường song song trục oy có hoành độ là L,R (0<L<R<1000).Hãy lập chương trình tinh xem có thể khiêng chiếc bàn đó qua hành lang được không

[smalteagle]

Mình có một bài toán đơn giản thế này :
Cho dãy số A[1..m] gồm các biến kiểu byte. Hãy đếm xem trong dãy trên có bao nhiêu phần tử đôi một khác nhau. Bạn hãy làm với số m lớn nhất có thể.
Nếu dãy A gồm các biến kiểu integer, word, longint thì sao ?

[tkhanh]

Lớp 10 phải ko. Mình cũng xin góp 1 bài . Bài này là đề luyện năm lớp 10 của mình
Cho một số N ( trong khoảng 1 đến 200 ) . Hãy viết chương trình tính 2^{n}
Input
-N
Outut
- Kết quả .

Bài này theo mình nhớ ko lầm là đề thi olympic 30/4 nhưng năm đầu tiên .

Mấy bác có post đề mấ bài Toán Tin lên nhớ cho luôn cách xuất Input và Output để ng giải biết cách cho KQ

[Gabriel]

Hix, em chỉ mới học tới While mà các anh đưa đến tam giác, hình ảnh => pó tay.

Còn bài của bạn tkthanh thì em không biết lệnh gì để đưa lên ^n. Đối với bài này ta sẽ có biến N là 1 biến Integer, dùng lệnh If để kẹp nó từ 1 - 200 sau đó cho nó ^n là biến N ta vừa nhập.

1 loạt bài này về nhà nghiên cứu chắc đã luôn. Thank mấy anh!

Thân!

[Gabriel]

Sau 1 thời gian nghiên cứu chi ly, phức tạp và khó khăn Em đã giải được bài của tkhanh:

            Var
            a:real;
            t:integer;
            Begin
              write('Nhap va so mu cua 2:');readln(t);
              If (t<1) and (t>200) then write('So mu phai nam trong khu vuc 1 den 200')
              Else
                  Begin
                    a:=(exp(t*ln(2));
                    write('2^',t,' la:',a);
                  End;
              readln;
            End.

Mở rộng bài toán:

            Var
            a,giatri:real;
            t:integer;
            Begin
              write('Nhap vao so a:');readln(a);
              write('Nhap vao so mu t:');readln(t);
              giatri:=1;
              For t:=1 to t do
                Begin
                  giatri:=giatri*a;
                  t:=t+1;
                End.
              write(a,'^',t,'=',giatri);
              readln;
              End.

Bài viết đã được chỉnh sửa nội dung bởi Gabriel: 27-03-2006 - 09:55

[HaiDang]

Cách giải của nhóc thì số vượt quá giới hạn của Real thì nó sẽ không in ra hết, bài này nếu nhóc nên sử dụng chuỗi thì số có thể tính dải 256 số, còn sử dụng array thì số lớn khủng kiếp. Tập cài bằng chuỗi trước đi, có gì không biết thì tụi anh sẽ giúp.

[smalteagle]

Số http://dientuvietnam...tex.cgi?2^{200} có chiều dài nhỏ hơn 70 chữ số nên có thể cài bằng chuỗi được. Bạn Gabriel có thể cài phép tính nhân một chuỗi với một số nguyên, kết quả thu được là chuỗi có giá trị là tích của 2 số trên.

Bài viết đã được chỉnh sửa nội dung bởi smalteagle: 28-03-2006 - 00:17

[manocanh]

làm giúp tui bài này với tính tổng với n nhập từ bàn phím

[tkhanh]

Cách làm của Gariel chỉ dùng cho N < 31 thôi à . Nếu N > 32 thì cách của bạn sai rồi . Cách của mình là dùng mảng array để tính . Chúng ta sử dụng Công Thức nhân của lớp 3 vào bài toán này thôi .

[Gabriel]

Cảm ơn các anh đã góp ý. Em cũng test thử ở nhà bài 2^n. Nếu gõ 200 thì nó không tính được là chắc. Anh tkhanh có thể gợi ý thêm cho em được không vì mảng array thì em chưa học tới (hiện em đang nghiên cứu thêm sách).

Còn bài của manocanh thì có thể như sau:

For i:=1 to i do
kq:=kq+1/i;

Em rất thích môn Pascal này, càng nghiên cứu càng thấy hay, em cũng định làm 1 diễn đàn về Pascal hy vọng sau này tkhanh, smal, HaiDang có thể giúp đỡ thêm cho em.

Thân!

[smalteagle]

Chào bạn. Mình rất vui được trao đổi với bạn về Pascal và về lập trình.

[smalteagle]

Mình có 1 bài này cho bạn mà không dùng mảng. Nhập vào một số nguyên n kiểu longint, in ra số nguyên viết theo thứ tự ngược lại.
Ví dụ : nhập vào 23454 -> xuất ra 45432

[tkhanh]

Rất vui khi được làm quen với bạn . Bài của Manocanh , Gariel làm đúng rồi , nhưng hình như vội quá bạn post sai thì phải :
for i := 1 to n do
kq := kq + 1/i;
Nhưng trước khi làm bạn cũng cần khai báo kq := 0

Bài của Smal có phải ta cứ lấy số đó chia cho 10 hay 13 phải ko . Mình không nhớ rõ , để về nhà lấy sách xem lại .

Bài 2^{N} thì bạn Gariel nhận thấy rằng chúng ta chỉ cần lấy kết quả nhân với 2 n lần phải ko . Bạn khai báo 1 mảng array cỡ byte là đủ rồi . Mỗi vị trí cùa mảng là một số có 1 chữ số thôi . Khi số đó mà nhân với 2 > 10 bạn lấy phần chục chuyển qua ô bên cạnh .
Cứ như thế bạn có 1 mảng rồi in ra thôi .

Diễn đàn về Pascal thì mình ủng hộ bạn , mình rất thích Toán-Tin học .Còn muốn biết cao hơn bạn có thể vào ioicamp.net , trên đó cao thủ ko . Đó là diễn đàn chỉ thảo luận về Toán-Tin học , pascal .
Nếu Gariel thích thì mình sẽ gửi bạn 1 số bài tập hồi đó của mình .
Smal học ở đâu vậy . mình năm nay 12 sắp ra trường rồi ( THPT Võ Thị Sáu , TPHCM ) .

[Gabriel]

Em thì tầm thường, sức học cũng tầm thường, trường em học cũng tầm thường và cô giáo em cũng ... tầm thường (cô Tin học em vốn dạy Lý nhưng thiếu giáo viên nên vừa dạy Lý vừa dạy Tin học, bị em quay chóng mặt hoài . Bài tập thì cô không có cho nhiều và kiến thức thì không bao nhiêu.
Hy vọng các anh giúp đỡ em nhiều hơn, anh tkhanh có thể cho em nick Yahoo! được không? Có gì anh cho em vài đề và vài bài tập luôn.

Thân!

[smalteagle]

Bạn tkhanh học Võ Thị Sáu à ? Gần nhà mình đó, đi bộ khoảng 5 phút là tới. Mình bây giờ đang học đại học.
Trang web ioicamp.net cũng được đấy, nhưng mình thấy nó giống như cái lò luyện thi học sinh giỏi quốc gia và ioi nhiều hơn, không thích hợp lắm với những người vừa bắt đầu học về lập trình.
Nếu các bạn muốn kiếm thêm bài tập làm chơi để nâng cao khả năng lập trình và thuật toán thì lên đó tìm bài tập làm cũng được, nhưng theo mình thấy thì mấy bài trên đó đa số là khó, và hầu như chỉ gặp khi đi thi học sinh giỏi thôi. Hồi trước mình cũng có làm mấy bài như vậy, nhưng bây giờ hầu như không gặp nữa.

[tkhanh]

Rất sẵn sàng thôi em : [email protected] . Nếu em ở TPHCM thì anh sẽ cho em mượn cuốn "Bài Tập Tin Học chọn lọc" , có nhiều bài cũng tương đối dành cho em . Còn để cao siêu hơn thì anh chỉ có thể chỉ em 1 số thuật toán thôi .Cao hơn nữa em phải nhờ anh Smal quá . Bài tập thì em ko lo , anh nghĩ anh có đủ cho em làm .
Em làm thử 2 bài này xem :
Trong mặt phẳng tọa độ cho trước N điểm , hãy tìm 2 điểm có khoảng cách xa nhau nhất . Mỗi điểm được xác định bằng 2 số nguyên là hoành độ và tung độ của nó .
Input
- N
- N dòng : mỗi dòng là hoành độ và tung độ của điểm đó .
Output
- Số hiệu của 2 điểm xa nhau nhất
( đề thi HSG Thành Phố HCM lớp 9 , năm 2001 )

Bài 2 : CODE ( Olympic 30.4 năm 2005 lớp 11 )
Công Ty X vừa thay đổi giám đốc . Giám đốc mới là 1 người rất cẩn thận và kỹ lưỡng . Công ty hiện có N người , mỗi người có 1 số hiệu là 1 số nguyên từ 1 đến 2 000 000 và số hiệu của họ là tùy ý và không có ai bị trùng số hiệu . Vì vậy giám đốc muốn biết con số nhỏ nhất mà chưa ai có để có thể gán cho 1 nhân viên mới .
Bạn hãy giúp giám đốc làm công việc trên .
Giới hạn : N 30 000 .
Input
- N
- N dòng , mỗi dòng là 1 số hiệu
Output
- Kết quả là số nhỏ nhất chưa có ai có .

2 bài này anh nghĩ vừa sức em .

[tkhanh]

Ioicamp quả thật là website hay , và hiện nay Ioicamp đang hoàn thành phần học trực tuyến ( có cả Cơ bản và Nâng cao ) nên sau này sẽ dành cho tất cả các bạn yêu thích lập trình thuật toán , rèn luyện kỹ năng của mình . Mình nghĩ nó cũng hơi quá sức Gariel .
Hồi đó có học VTS ko vậy Smal ? Nhà gần vậy nếu anh còn hứng thú thì anh em mình gặp nhau đi .

[smalteagle]

Không, mình không học VTS, chỉ là nhà gần đó thôi. Nếu bạn muốn thì có thể liên lạc với mình qua địa chỉ mail : [email protected]

Bài viết đã được chỉnh sửa nội dung bởi smalteagle: 30-03-2006 - 20:16