Trao đổi kinh nghiệm giải các bài tập Pascal
#21
Đã gửi 16-11-2011 - 22:28
Em làm sai nửa bài 4 nên chỉ giải nhì thôi.
- tho ngok96 yêu thích
Cao Xuân Huy tự hào là thành viên VMF
#22
Đã gửi 17-12-2011 - 23:36
#23
Đã gửi 05-04-2012 - 12:55
à bài này .out ra tổng max và tọa độ ô trên trái và dưới phải !!! thân !!!
const fi='HCN.INP'; fo='HCN.OUT'; var m,n:word; a:array[1..100,1..100] of integer; kx,ky:array[1..1000] of word; max,tong:integer; dem,x1,y1,x2,y2: word; procedure nhap; var f:text; i,j: word; begin assign(f,fi); reset(f); read(f,n,m); for i:=1 to n do for j:=1 to m do read(f,a[i,j]); close(f); end; procedure init; var i,j: word; begin max:=-2576; dem:=0; for i:=1 to n do for j:=1 to m do begin inc(dem); kx[dem]:=i; ky[dem]:=j; end; end; procedure xd; var i,j,t,p:word; begin for i:=1 to dem do for j:=1 to dem do if ( kx[i]<=kx[j] ) and ( ky[i]<=ky[j] ) then begin tong:=0; for t:=kx[i] to kx[j] do for p:=ky[i] to ky[j] do tong:=tong+a[t,p]; if tong>max then begin max:=tong; x1:=kx[i]; y1:=ky[i]; x2:=kx[j]; y2:=ky[j]; end; end; end; procedure xuat; var f:text; begin assign(f,fo); rewrite(f); writeln(f,max); writeln(f,x1,' ',y1); writeln(f,x2,' ',y2); close(f); end; BEGIN nhap; init; xd; xuat; END.mình chú ý thêm bài đếm số hình chữ nhật không chông lên nhau chỉ cần điều kiện a[i,j]=1 and a[i-1,j]=a[i,j-1]=0 là được !!!
Bài viết đã được chỉnh sửa nội dung bởi minhtuyb: 05-04-2012 - 12:57
#24
Đã gửi 17-01-2013 - 20:40
Cho ba số nguyên dương n, k và p(n ≤15; k ≤100)
Yêu cầu 1:Hãy cho biết có bao nhiêu sốnguyên dương có sốcác chữ số KHÔNG vượt
quá n và có tổng các chữ số đúng bằng k.
Yêu cầu 2:Nếu ñem các số tìm được trong yêu cầu 1 sắp xếp tăng dần và ñánh sốthứtự
từ1 ñến hết thì sốthứ plà sốnào? (giả thiết pkhông lớn hơn số lượng các số tìm ñược).
Chẳng hạn, với n = 2, k = 8, p = 6 thì các số có không quá 2 chữ số có tổng các chữsố
bằng 8 là: 8, 17, 26, 35, 44, 53, 62, 71, 80 (có 9 số) và số thứ 6 là số 53.
Dữliệu vào:Cho từ tệp văn bản TONG.INP gồm một dòng chứa ba số n, k, p theo đúng
thứ tự, giữa các số cách nhau ít nhất một dấu cách.
Kết quả:Ghi ra tệp văn bản TONG.OUT gồm hai dòng:
• Dòng 1: Ghi sốlượng các sốtìm ñược trong yêu cầu 1.
• Dòng 2: Ghi sốthứp tìm ñược trong yêu cầu 2.
- tho ngok96 yêu thích
#25
Đã gửi 15-02-2013 - 12:38
#26
Đã gửi 20-11-2013 - 15:29
Cám ơn anh chị rất nhiều :\
#27
Đã gửi 29-06-2014 - 13:10
Giải cho mình bài này:
Cho số nguyên dương N (N<=1000). Với mỗi giá trị N ta xây dựng hàm f(N) cho
số lượng lớn nhất các số nguyên tố có tổng bằng N, mỗi số sử dụng 1 lần, trừ một số
nguyên tố nào đó có thể sử dụng 2 lần, nếu cần. Qui ước f(1)=1.
Ví dụ
x=5 ->f(x)=2 (5=3+2)
x=7 ->f(x)=3(7=3+2+2)
Dữ liêu
vào từ file văn bản SPRIME.INP gồm nhiều dòng, mỗi dòng ghi một số
nguyên dưong N
Kết quả
in ra file văn bản SPRIME.OUT mỗi dòng tương ứng với một dòng của file
dữ liệu vào thể hiện số cách tìm được
sprime.inp
2
44
11
14
34
16
sprime.out
1
7
3
4
5
4
- nghethuat102 yêu thích
#28
Đã gửi 21-07-2014 - 09:03
Giải cho mình bài này:
Phân tích số
Cho số nguyên dương N (N<=1000). Với mỗi giá trị N ta xây dựng hàm f(N) cho
số lượng lớn nhất các số nguyên tố có tổng bằng N, mỗi số sử dụng 1 lần, trừ một số
nguyên tố nào đó có thể sử dụng 2 lần, nếu cần. Qui ước f(1)=1.
Ví dụ
x=5 ->f(x)=2 (5=3+2)
x=7 ->f(x)=3(7=3+2+2)
Dữ liêu
vào từ file văn bản SPRIME.INP gồm nhiều dòng, mỗi dòng ghi một số
nguyên dưong N
Kết quả
in ra file văn bản SPRIME.OUT mỗi dòng tương ứng với một dòng của file
dữ liệu vào thể hiện số cách tìm được
sprime.inp
2
44
11
14
34
16
sprime.out
1
7
3
4
5
4
Có thể ns rõ hơn xíu dc k?
#29
Đã gửi 16-09-2014 - 18:06
nhập họ tên chủ hộ,định mức điện hằng tháng của hộ,chỉ số điện kế tháng trước và tháng này.tính tền cho pk
kw trong định mức 5đ/kw
100kw đầu tiên trên định mức 8đ/kw
từ 101trên địh mức 10đ/kw
#30
Đã gửi 18-03-2016 - 13:13
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
#31
Đã gửi 21-03-2016 - 12:08
Sao ở đây đông vui thế mà ở cái topic mình lập ra thì chẳng có ai tham gia thế ???
#32
Đã gửi 23-03-2016 - 21:47
Sao ở đây đông vui thế mà ở cái topic mình lập ra thì chẳng có ai tham gia thế ???
Vui ghê ta
#33
Đã gửi 25-03-2016 - 19:44
cho mình hỏi bài này tý:cho mảng 1 chiều A và 1 số n.hãy điền các dấu +-*/ vào giữa các A[i] để giá trị nhận dc =n
Vậy mảng A phải nhập từ bp à ?
Th nếu ko có dấu nào thỏa thì có cần thông báo ko ?
VD: Mảng : 1 4 7
số n: 11;
Thì có phải thế này ko ? 1*4+7.
Bạn giải thích hộ vs nhé.
" Im lặng là câu trả lời tốt nhất mà bạn có thể dành cho kẻ ba hoa " !
#34
Đã gửi 26-03-2016 - 05:59
bạn cứ làm điền dấu + - vào trước đãVậy mảng A phải nhập từ bp à ?
Th nếu ko có dấu nào thỏa thì có cần thông báo ko ?
VD: Mảng : 1 4 7
số n: 11;
Thì có phải thế này ko ? 1*4+7.
Bạn giải thích hộ vs nhé.
t vẫn chưa biết ý tưởng làm bài này
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
#35
Đã gửi 26-03-2016 - 11:29
bạn cứ làm điền dấu + - vào trước đã
t vẫn chưa biết ý tưởng làm bài này
Vậy */ ko làm à ?
Ý tưởng bìa này mình vẫn chưa có,nếu thấy có "tia sáng" gì thì bạn nói với nhé !
" Im lặng là câu trả lời tốt nhất mà bạn có thể dành cho kẻ ba hoa " !
#36
Đã gửi 26-03-2016 - 11:38
Chị coi cái đề của Đà Nẵng ở đây: http://diendantoanho...showtopic=57215
Em làm sai nửa bài 4 nên chỉ giải nhì thôi.
À vậy bạn có thể nêu ý tưởng ủa bài 4 hộ mình được không ??
" Im lặng là câu trả lời tốt nhất mà bạn có thể dành cho kẻ ba hoa " !
#37
Đã gửi 26-03-2016 - 12:14
c có dùng fb ko thảo luận cho dễVậy */ ko làm à ?
Ý tưởng bìa này mình vẫn chưa có,nếu thấy có "tia sáng" gì thì bạn nói với nhé !
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
#38
Đã gửi 26-03-2016 - 12:15
c có dùng fb ko thảo luận cho dễ
Gmail thôi bạn à !!
" Im lặng là câu trả lời tốt nhất mà bạn có thể dành cho kẻ ba hoa " !
#39
Đã gửi 26-03-2016 - 17:36
ukm cGmail thôi bạn à !!
Đức HD Trần:
AK36 Trường THPT Quang Trung tỉnh Hải Dương
#40
Đã gửi 26-03-2016 - 20:14
ukm c
Email nè: [email protected]
Có gì thì gửi thư nhé hoặc hagust cũng đc mình luôn túc trực từ 8h -> 9h nếu có ai onl nhắn tin thì có khi đến 11h !!!
THôi nha !
" Im lặng là câu trả lời tốt nhất mà bạn có thể dành cho kẻ ba hoa " !
1 người đang xem chủ đề
0 thành viên, 1 khách, 0 thành viên ẩn danh