Đến nội dung

Hình ảnh

Trao đổi kinh nghiệm giải các bài tập Pascal

- - - - -

  • Please log in to reply
Chủ đề này có 39 trả lời

#21
Cao Xuân Huy

Cao Xuân Huy

    Thiếu úy

  • Hiệp sỹ
  • 592 Bài viết
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.

Cao Xuân Huy tự hào là thành viên VMF

Hình đã gửi


#22
tho ngok96

tho ngok96

    Hạ sĩ

  • Thành viên
  • 66 Bài viết
Giải nhì à???? Siêu quá rồi còn gì??? Có gì khao chị với
Hãy cứ coi mỗi ngày trôi qua là một sự ưu ái lớn của thượng đế

#23
minhtuyb

minhtuyb

    Giả ngu chuyên nghiệp

  • Thành viên
  • 470 Bài viết
đây là bài tính hình chữ nhật con có tổng các số là lớn nhất trong mảng A ! pót lên làm quen và cho các bạn thm khảo !
à 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

Phấn đấu vì tương lai con em chúng ta!

#24
vvvu1996

vvvu1996

    Lính mới

  • Thành viên
  • 1 Bài viết
ai giai dum di nhanh dum anh em oi

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.

#25
tho ngok96

tho ngok96

    Hạ sĩ

  • Thành viên
  • 66 Bài viết
Lâu lắm rồi không chơi pascal nên tui hơi dốt. Ai đó giúp mem mới kìa
Hãy cứ coi mỗi ngày trôi qua là một sự ưu ái lớn của thượng đế

#26
NGUYEN MINH HIEU TKVN

NGUYEN MINH HIEU TKVN

    Binh nhất

  • Thành viên
  • 29 Bài viết

Cám ơn anh chị rất nhiều :\ :lol:



#27
dodinhphat

dodinhphat

    Lính mới

  • Thành viên
  • 1 Bài viết

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

44
11
14
34
16
sprime.out
1
7
3
4
5


#28
nghethuat102

nghethuat102

    Trung sĩ

  • Thành viên
  • 147 Bài viết

 

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

44
11
14
34
16
sprime.out
1
7
3
4
5

 

Có thể ns rõ hơn xíu dc k?



#29
thach123

thach123

    Lính mới

  • Thành viên
  • 1 Bài viết

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
The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
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

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#31
Zjkar

Zjkar

    Hạ sĩ

  • Thành viên
  • 82 Bài viết

Sao ở đây đông vui thế mà ở cái topic mình lập ra thì chẳng có ai tham gia thế ???



#32
transontung

transontung

    Binh nhất

  • Thành viên mới
  • 25 Bài viết

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  :icon6:



#33
Nobel

Nobel

    Hạ sĩ

  • Thành viên
  • 93 Bài viết


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
The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết

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é.

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

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#35
Nobel

Nobel

    Hạ sĩ

  • Thành viên
  • 93 Bài viết

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
Nobel

Nobel

    Hạ sĩ

  • Thành viên
  • 93 Bài viết

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
The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết

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 có dùng fb ko thảo luận cho dễ

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#38
Nobel

Nobel

    Hạ sĩ

  • Thành viên
  • 93 Bài viết

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
The Dark Hunter

The Dark Hunter

    Binh nhất

  • Thành viên mới
  • 20 Bài viết

Gmail thôi bạn à !!

ukm c

Đức HD Trần:  :icon6:  :D  :like 

 

AK36 Trường THPT Quang Trung tỉnh Hải Dương


#40
Nobel

Nobel

    Hạ sĩ

  • Thành viên
  • 93 Bài viết

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