aj có đề pascal nào ko hĩu thì post lên !!!

[SecretToReview]

Mình có bài này, ai có khả năng giúp thì giúp giùm.
Cho n hình chữ nhật, mỗi hình chữ nhật bao gồm toạ độ các đỉnh phải trên và dưới trái của nó. Hai hình chữ nhật lồng nhau khi có phần diện tích chung>0. Hỏi có bao nhiêu hình chữ nhật lồng nhau cả thảy?
Nếu được, cho mình xin code luôn nha.

[mr_invincible]

Giới hạn là bao nhiêu vậy bạn? Nếu không nói rõ thì làm thế nào chả ra được kết quả

[boysitinh_vl]

To SecretToReview: nếu giới hạn 200*200 thì dễ rùi. cho 1 cái mảng 200*200 và chỉ cần đánh dấu để xét có lồng hay ko? nhớ đánh dấu hình chữ nhật nào xét rồi để không xét lại ( nhớ nhấn ctrl+ 2 lần chữ 0, sữa cái số kia thành 65530 để tăng dung lượng bộ nhớ)
còn trên thì phải xét 6 trường hợp với từng hình chữ nhật ( trên trái , trên phải, dưới trái, dưới phải, bị đè, đè)xét cái nào có lồng rùi thì đánh dấu để khỏi xét nữa !!!
Bài này hình như giới hạn 99*99 thì phải
To mr_invincible : bạn ơi, mình nghĩ ra cách rồi nhưng cho mình hỏi nếu cho for chạy từ 1->10^9 trong 1s chạy kịp ko zậy?
1!->1 ; 2!->2; 3!->6; 4!->4; 5!->số cuối khác 0 của (6*4*5)=120->2;
từ đó:
6!->số cuối của (2*6)=12->2
7!->số cuối của (2*7)=14->4
8!->số cuối của (4*8)=32->2
9!->số cuối của (2*9)=18->8
tương tự như thế cho vào for
riêng trường hợp * cho số tận cùng = 5 thì không được rút gọn. vd:
25!->số cuối khác 0 của (4*24*25)=2400->4 (vì tại 23! thì số cuối khác 0 = 4 nên 24*4) sau bước này ra rút 25!->4 để thực hiện bước tiếp theo)
Chắc cách này làm cũng không được vì chỉ có 1s àh mà for dài quá (hôm trước thấy ai ghi 10 triệu, bây nhìn lại là 10^9=1 tỷ) hình như 10 triệu nó chạy kịp! chứ 1 tỷ thì pótay.com.canh
Mình cũng có 1 cách chắc chắn chạy kịp nhưng chưa phân tích hết để suy nghĩ nữa xem sao.
Trùi ơi hồi đó tới giờ có xài free pascal đâu mà bít, mà bài 1 phức tạp O(n) là sao zậy bạn .Bạn cho mình yahoo của bạn được hem có gì mình hội ý ^^!

[cashier]

Nhìn cái tên topic thì rõ là hoành tráng, làm mình "dưa bở" (tại đến hôm nay mới tự nhiên thấy cái topic này nè ) định vô hỏi vài bài tí mà ai dè được cho ăn dưa thiệt

Dạo này mấy cao thủ đi đâu hết cả ( anh bete vẫn thấy lên bình thường nhưng có vẻ dạo này "chuyển công tác" sang box khác rồi, Master_Baby thì có lẽ đang nản ... )
@boy_si_tinh: lần sau làm ơn đặt tên cái topic nó "chìm" một tí ... với cả chẳng biết bạn định thi Tin thể loại j` mà mấy cái kiểu con trỏ, độ phức tạp của thuật toán hay Free cũng chưa từng nghe đến nữa :-?? . Mấy cái này nếu ai đã từng học Tin thì không dùng cũng phải biết một tí ti chứ nhỉ ??

@mr.invincible : câu này quả rất chí lí :

việc làm được với việc được điểm là hai khái niệm hoàn toàn khác nhau. Có thể bạn làm được nhưng đi thi vẫn chỉ được vài điểm vì cách làm quá bình thường không thể chạy được với test lớn -> làm được thì ai cũng làm được nhưng để đạt được điểm thì không phải ai cũng làm được

(có lẽ MB đang gặp phải vấn đề này ..)
Có lẽ đây là điểm khác lớn nhất giữa Tin học và các môn khác


thêm nữa, nếu bạn có ý định tìm bài tập để luyện mà thuộc loại "gấu" thì có lẽ nên vô Vietnam Online Judge - IOI Training , cái bạn đứng đầu ở đó cũng mới chỉ học lớp 11 thôi, hy vọng khi đó bạn sẽ "biết mình là ai" ...

[f3_fly]

Tự nhiên mình lại mang cái dốt ra khoe.hic.tuy tui đã học năm thứ 3 ĐH rùi,nhưng mà hem để ý đến pascal,chỉ thi cho xong rùi quên hết. Tự nhiên các thầy bắt làm một tiểu luận, đọc đề xong tui chẳng hiểu ra làm sao nên mới nhờ đến các pro.Bi giờ mọi bắt mình phải giải thích với lại cho ví dụ thì...ặc ặc.Mong mọi người thông cảm.

[newbie_th]

Giúp em làm mấy bài với ,em ko làm được :L:L:
1,Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 100.Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S.Thông báo kết quả ra màn hình.
2,Viết CT nhập vào 1 xâu kiểm tra xâu đó có bao nhiêu kí tự trắng ,nếu có thì xóa kí tự trắng đó .
3.Cho lớp gồm 50 học sinh với mỗi học sinh gồm các thông tin :họ tên,ngày sinh,địa chỉ,điểm của 2 môn Toán và Văn.Hãy in ra màn hình để xếp loại học sinh đó với cách xếp loại như sau:Nếu toan+van<10 thì xếp loại D nếu toán+văn >=10 và <=14 thì xếp loại C,Toán+văn>=14 và <=18 thì xếp loại B,Toán+Van>18 thi xếp loại A

Giúp em với .Thanks nhiều !!

[m2mpro]

CDó một bài cho mọi người đây, cũng đơn giản thôi,

Cho 1 mảng gồm n ký tự '<','>'
Hãy chèn số thích hợp vào sao cho :
- Đúng bất đẳng thức
- Số lớn nhất là nhỏ nhất
(1<n<1000)
VD:
in out
>< là : 2>1<2
<<<> là : 1<2<3>1
>>>< là: 3>2>1<2
<<<<<<<<<<>><<<> là :1<2<3<4<5<6<7<8<9<10<11>2>1<2<3>2
(có nhiều kết quả khác nhau miễn sao số lớn nhất là nhỏ nhất là được)

[boysitinh_vl]

bài 1:
var s:string[100];
dem:byte;
begin
dem:=0
{nhập chuỗi};
for i:=1 to length(s) do
if (s[i]='0') or (s[i]='1') or (s[i]='2') or (s[i]='3') or (s[i]='4') or (s[i]='5') or (s[i]='6') or (s[i]='7') or (s[i]='8') or (s[i]='9') then inc(dem);
{xuat};
end.

Bài 2:
var s:string;
begin
dem:=0
{nhập chuỗi};
for i:=1 to length(s) do
if (s[i]=' ') then
begin
delete(s,i,1);
inc(dem);
end;
{xuat};
end.

bài 3: sách tin học lớp 11 trang 77

[boysitinh_vl]

CDó một bài cho mọi người đây, cũng đơn giản thôi,

Cho 1 mảng gồm n ký tự '<','>'
Hãy chèn số thích hợp vào sao cho :
- Đúng bất đẳng thức
- Số lớn nhất là nhỏ nhất
(1<n<1000)
VD:
in out
>< là : 2>1<2
<<<> là : 1<2<3>1
>>>< là: 3>2>1<2
<<<<<<<<<<>><<<> là :1<2<3<4<5<6<7<8<9<10<11>2>1<2<3>2
(có nhiều kết quả khác nhau miễn sao số lớn nhất là nhỏ nhất là được)

chỉ cách làm thui chứ mình bận làm mấy bài kia rùi không có thời gian làm hết đâu !!! bài này ghi tệp hay hơn xuất lên màn hình
lưu ý : mang,mang2 of chuỗi;
{khai báo}
{nhap}
cho tất cả mang=mang2
if mang[1]='>' then
begin
xét for từ i:=1 cho đến n
chừng nào mang[i]<>mang[i] thì
begin
s:=i;
break;
end;
chuyển số s thành kí tự gắn vào biến a
mang[1]:=a;
dem:=1;
for i:=2 to n+1 do
begin
if mang2[i-1]='>' then
begin
dem:=dem-1;
chuyển số dem thành kí tự gắn vào biến a
mang[i]:=mang2[i-1]+a;
end;
if mang2[i-1]='<' then
begin
dem:=dem+1;
chuyển số dem thành kí tự gắn vào biến a
mang[i]:=mang2[i-1]+a;
end;
end;
end
else
for i:=1 to n do
begin
if mang2[i]='>' then
begin
dem:=dem-1;
chuyển số dem thành kí tự gắn vào biến a
if i<>n then mang[i]:=a+'>'
else mang[i]:=a;
if mang2[i]='<' then
begin
dem:=dem+1;
chuyển số dem thành kí tự gắn vào biến a
if i<>n then mang[i]:=a+'<'
else mang[i]:=a;
end;
end;
{xuất}
end.

[m2mpro]

Còn chuyện số lớn nhất là số nhỏ nhất thì sao hả bạn