Trao đổi kinh nghiệm giải các bài tập Pascal
#1
Đã gửi 08-04-2011 - 15:33
và trog đó là bài tập pascal
vậy nên mh ms lập ra topic này để học hỏi và trao đổi kinh nghiệm giải bt pascal nạk
mong cac bạn nhiệt tình tham gia và hưởng ứng ha
thank you very much x-(
#2
Đã gửi 08-04-2011 - 19:04
http://www.mediafire...g7drq139yqfc0wh
P/s: Chủ topic là thongok Tq à???
- BoFaKe yêu thích
#3
Đã gửi 09-04-2011 - 22:49
viết chương trình tính tiền điện vs các khoản sau
-tiền thuê bao điện kế 1000/tháng
-định mức sdụng là 50kw/tháng vs giá 500d/tháng
-phần điện vượt mức dk tính giá như sau:
+nếu vượt định mức <50kw =>700d/tháng
+........................... >50kw đến 100kw => 1000d/tháng
+............................ >100 kw => 1500d/tháng
nhập vào từ bàn phím chỉ số công tơ của tháng trước và chỉ số công tơ của tháng sau
p/s
bài ni mh làm mãi mà k dk
mh nghĩ phần tính giá vượt định mức nên sdụng case..of nạk
k bít thế nào
m.n giúp tớ ha
#4
Đã gửi 09-04-2011 - 22:53
íHay đó. Ai có sách Pascal nào hay thì post lên chia sẻ nha. Mình cũng có 1 cuốn nè:
http://www.mediafire...g7drq139yqfc0wh
P/s: Chủ topic là thongok Tq à???
năng a lại đoán e là tho ngok tg nạk
đó là ai hè
e nỏ bít
có lẽ là trùng hợp nạk
)
#5
Đã gửi 10-04-2011 - 20:13
Giờ thì ko phải là đoán mà là chắc chắn rồi. Có rất nhiều chứng cứ chứng tỏ tho ngok9apt chính là thongok Tg.í
năng a lại đoán e là tho ngok tg nạk
đó là ai hè
e nỏ bít
có lẽ là trùng hợp nạk
)
Thứ nhất: Cả 2 người đều nói tiếng Miền Trung.
Thứ 2: Hãy nhìn vào bức ảnh:
Rõ ràng trong câu p/s viết là thongok Tq (do mình viết nhầm) thế mà tho ngok9apt lại biết sửa lại thành thongok Tg . Thật ra ko hề tồn tại thành viên nào là thongok Tq mà chỉ có thongok Tg . Vậy mà chủ topic lại nói:
đó là ai hè
e nỏ bít
Thứ 3: Tiếp tục quan sát 2 bức ảnh:
Nhìn vào 2 bức ảnh ta có thể thấy rằng, tho ngok9apt chính là hoangthileha, mà theo mình đc biết thì thongok Tg có tên thật là Hoàng Thị Lệ Hà.
Làm gì có thể tồn tại 1 sự trùng hợp quá thể thiếu tự nhiên như vậy đc.
Từ 3 manh mối trên => tho ngok9apt chính là thongok Tg.
P/s: Mà thongok Tg đang học lớp 9a (Phúc Trạch) rất giống với ý nghĩa của nick: tho ngok9apt: Tho ngok 9a Phúc Trạch.
#6
Đã gửi 10-04-2011 - 21:56
1/Cho bàn cờ vua 8*8. Hãy tìm cách đặt 8 con hậu trên bàn cờ đó sao cho không có con hậu nào ăn con hậu nào.
2/Cho bàn cờ vua 8*8. Một con mã đặt tại vị trí (m;n). Liệt kê tất cả các cách để con mã trên đi qua hết tất cả các ô trên bàn cờ mà mỗi ô chỉ đi qua một lần.
3/(tin học trẻ TP Đà Nẵng năm 2010-THCS) Cho biết rằng với mọi số nguyên dương lớn hơn 2 đều có thể viết được thành tổng hữu hạn các số fibonacci khác nhau. Hãy tìm cách phân tích một số nguyên dương N (N>2) thành tổng các số fibonnaci khác nhau sao cho số số hạng là nhiều nhất.
4/(tin học trẻ TP Đà Nẵng năm 2009-THCS) Cho trước một mảng m*n. Trên mảng, người ta sắp xếp các hình chữ nhật không chồng lên nhau. Mỗi ô trong mảng đã cho mang giá trị 1 nếu thuộc một hình chữ nhật nào đó hoặc mang giá trị 0 nếu không thuộc bất kì hình chữ nhật nào. Hãy đếm số hình chữ nhật có trong mảng.
INPUT RECTANGLE.INP
+dòng 1: ghi giá trị của m;n
+dòng 2 đến dòng m+1: ghi lại giá trị của mảng; mỗi phần tử cách nhau bởi một dấu cách; mỗi hàng trong mảng nằm trên một dòng.
OUTPUT RECTANGLE.OUT
+dòng 1: số hình chữ nhật có trong mảng.
Bonus:100 đề toán tin nhà trường
Bài viết đã được chỉnh sửa nội dung bởi perfectstrong: 14-04-2011 - 21:15
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#7
Đã gửi 11-04-2011 - 00:34
Giờ thì ko phải là đoán mà là chắc chắn rồi. Có rất nhiều chứng cứ chứng tỏ tho ngok9apt chính là thongok Tg.
Thứ nhất: Cả 2 người đều nói tiếng Miền Trung.
Thứ 2: Hãy nhìn vào bức ảnh:
Rõ ràng trong câu p/s viết là thongok Tq (do mình viết nhầm) thế mà tho ngok9apt lại biết sửa lại thành thongok Tg . Thật ra ko hề tồn tại thành viên nào là thongok Tq mà chỉ có thongok Tg . Vậy mà chủ topic lại nói:
Thứ 3: Tiếp tục quan sát 2 bức ảnh:
Nhìn vào 2 bức ảnh ta có thể thấy rằng, tho ngok9apt chính là hoangthileha, mà theo mình đc biết thì thongok Tg có tên thật là Hoàng Thị Lệ Hà.
Làm gì có thể tồn tại 1 sự trùng hợp quá thể thiếu tự nhiên như vậy đc.
Từ 3 manh mối trên => tho ngok9apt chính là thongok Tg.
P/s: Mà thongok Tg đang học lớp 9a (Phúc Trạch) rất giống với ý nghĩa của nick: tho ngok9apt: Tho ngok 9a Phúc Trạch.
Bạn có khả năng của SherLock Holme đó! )
#8
Đã gửi 11-04-2011 - 16:33
Thử chương trình này xem có đc ko nha:Bt pascal m.n ơi
viết chương trình tính tiền điện vs các khoản sau
-tiền thuê bao điện kế 1000/tháng
-định mức sdụng là 50kw/tháng vs giá 500d/tháng
-phần điện vượt mức dk tính giá như sau:
+nếu vượt định mức <50kw =>700d/tháng
+........................... >50kw đến 100kw => 1000d/tháng
+............................ >100 kw => 1500d/tháng
nhập vào từ bàn phím chỉ số công tơ của tháng trước và chỉ số công tơ của tháng sau
p/s
bài ni mh làm mãi mà k dk
mh nghĩ phần tính giá vượt định mức nên sdụng case..of nạk
k bít thế nào
m.n giúp tớ ha
program tinh_tien; uses crt; var m,n,s,t:integer; begin clrscr; write ('nhap so cong to dien thang truoc:'); readln(m); write ('nhap so cong to dien thang sau:'); readln(n); s:=n-m; case s of 0..50: t:= 1000 + s*700; 51..100: t:=1000 + 35000 + (s-50)*1000; else t:= 1000 + 35000 + 50000 + (s-100)*1500; end; write ('so tien can phai tra la:',t); readln end.
#9
Đã gửi 11-04-2011 - 18:04
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#10
Đã gửi 12-04-2011 - 15:33
huk hukGiờ thì ko phải là đoán mà là chắc chắn rồi. Có rất nhiều chứng cứ chứng tỏ tho ngok9apt chính là thongok Tg.
Thứ nhất: Cả 2 người đều nói tiếng Miền Trung.
Thứ 2: Hãy nhìn vào bức ảnh:
Rõ ràng trong câu p/s viết là thongok Tq (do mình viết nhầm) thế mà tho ngok9apt lại biết sửa lại thành thongok Tg . Thật ra ko hề tồn tại thành viên nào là thongok Tq mà chỉ có thongok Tg . Vậy mà chủ topic lại nói:
Thứ 3: Tiếp tục quan sát 2 bức ảnh:
Nhìn vào 2 bức ảnh ta có thể thấy rằng, tho ngok9apt chính là hoangthileha, mà theo mình đc biết thì thongok Tg có tên thật là Hoàng Thị Lệ Hà.
Làm gì có thể tồn tại 1 sự trùng hợp quá thể thiếu tự nhiên như vậy đc.
Từ 3 manh mối trên => tho ngok9apt chính là thongok Tg.
P/s: Mà thongok Tg đang học lớp 9a (Phúc Trạch) rất giống với ý nghĩa của nick: tho ngok9apt: Tho ngok 9a Phúc Trạch.
ghét a quá ak
( a đoán thể thì phải ns cho chỉ e bít chứ ai lại đi ns hết à ri
hik
I AM ME
#11
Đã gửi 13-04-2011 - 21:02
Các bạn tích cực tham gia lên chứ.
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#12
Đã gửi 14-04-2011 - 21:11
Bài 4:Một vài bài tập nho nhỏ và cổ điển cho các bạn đam mê pascal:
4/(tin học trẻ TP Đà Nẵng năm 2009-THCS) Cho trước một mảng m*n. Trên mảng, người ta sắp xếp các hình chữ nhật không chồng lên nhau. Mỗi ô trong mảng đã cho mang giá trị 1 nếu thuộc một hình chữ nhật nào đó hoặc mang giá trị 0 nếu không thuộc bất kì hình chữ nhật nào. Hãy đếm số hình chữ nhật có trong mảng.
INPUT RECTANGLE.INP
+dòng 1: ghi giá trị của m;n
+dòng 2 đến dòng m+1: ghi lại giá trị của mảng; mỗi phần tử cách nhau bởi một dấu cách; mỗi hàng trong mảng nằm trên một dòng.
OUTPUT RECTANGLE.OUT
+dòng 1: số hình chữ nhật có trong mảng.
Bonus:100 đề toán tin nhà trường
program rectangle; uses crt; var f,g:text; i,j,n,m,d:integer; a:array[1..1000,1..1000]of byte; begin assign(f,'rectangle.inp'); reset(f); assign(g,'rectangle.out'); rewrite(g); readln(f,m,n); for i:=1 to m do begin for j:=1 to n do read(f,a[i,j]); readln(f); end; for i:=1 to m do for j:=1 to n do if (a[i,j]=1) and (a[i-1,j]=0) and (a[i-1,j-1]=0) and (a[i,j-1]=0) then inc(d); write(g,d); close(f); close(g); end.
Bài viết đã được chỉnh sửa nội dung bởi perfectstrong: 14-04-2011 - 21:18
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#13
Đã gửi 15-04-2011 - 11:18
3/(tin học trẻ TP Đà Nẵng năm 2010-THCS) Cho biết rằng với mọi số nguyên dương lớn hơn 2 đều có thể viết được thành tổng hữu hạn các số fibonacci khác nhau. Hãy tìm cách phân tích một số nguyên dương N (N>2) thành tổng các số fibonnaci khác nhau sao cho số số hạng là nhiều nhất.
program bt; var s:string; nho,f:array[0..1000]of longint; v:array[1..1000]of boolean; n,t:longint;k,i,j,d:integer; function fb(x:integer;i:integer):integer; begin for j:=1 to i do if x=f[j] then begin fb:=j; break; end else fb:=0; end; begin writeln('nhap n'); readln(n); fillchar(v,sizeof(v),false); s:='';f[0]:=1;f[1]:=1;i:=0;t:=0;d:=0; while t<n do begin inc(i); f[i]:=f[i-1]+f[i-2];k:=1; while (n-t<f[i]) and (k<i) do begin d:=fb(t+f[i]-n,i); if d>0 then begin t:=t-f[d];v[d]:=false; end else begin t:=t-f[i-k];v[i-k]:=false; inc(k); end;end; if (n-t>=f[i])and(v[i]=false) then begin t:=t+f[i];v[i]:=true; end; end; for j:=1 to i do if v[j]=true then s:=chr(f[j]+48)+' + '+s; delete(s,length(s),1); writeln('so phan tich: ',s); readln; end.
Bài viết đã được chỉnh sửa nội dung bởi Edogawa_Conan: 15-04-2011 - 11:24
#14
Đã gửi 18-05-2011 - 11:30
1.viet chuong trinh dem so lan xuat hien cua cac ki tu thuoc bang chu cai trong 50 lan go ki tu bang ban phim(k phan biet a oi A,... dung ham Upcase de chuyen doi chu thuong voi chu hoa)
2.viet chuong trinh nhap 1 day so toi da 100 so,sau do sap xep lai theo thu tu tang dan
3.viet chuong trinh nhap 2 so nguyen duong m,n.sau do tinh trung binh cong cac so nguyen le tu m den n
------------------------------------end--------------------------------------
hik.mh k lam dk nak.toan bai chua hoc.mh toan doan mo thui ak.moi nguoi coi xem sao oy post bai giai len cho mh coi voi dk k???
thank nhiu nak
p/s: unkey cua may mh bi hu mat tieu oy nen mong BQT thong cam nha
I AM ME
#15
Đã gửi 19-05-2011 - 08:09
Đề tỉnh cậu sao dễ dữ vậy?de thi 'tin hoc tuoi tre' cua huyen mh ne
1.viet chuong trinh dem so lan xuat hien cua cac ki tu thuoc bang chu cai trong 50 lan go ki tu bang ban phim(k phan biet a oi A,... dung ham Upcase de chuyen doi chu thuong voi chu hoa)
2.viet chuong trinh nhap 1 day so toi da 100 so,sau do sap xep lai theo thu tu tang dan
3.viet chuong trinh nhap 2 so nguyen duong m,n.sau do tinh trung binh cong cac so nguyen le tu m den n
------------------------------------end--------------------------------------
hik.mh k lam dk nak.toan bai chua hoc.mh toan doan mo thui ak.moi nguoi coi xem sao oy post bai giai len cho mh coi voi dk k???
thank nhiu nak
p/s: unkey cua may mh bi hu mat tieu oy nen mong BQT thong cam nha
$$\text{LOVE}\left( x \right)|_{x = \alpha}^\Omega = + \infty $$
I'm still there everywhere.
#16
Đã gửi 19-05-2011 - 23:18
dễ mà ăn hổng trôi
huhu
tiếc nhừ à
I AM ME
#17
Đã gửi 06-09-2011 - 23:02
uses crt; var n:integer;f:text; a,t:array[0..20000] of word; c:array[1..20000] of boolean; function fibo(k:word):boolean; var a,b,c:integer; begin a:=1;b:=1; while b<k do begin c:=a+b;a:=b;b:=c; end; if k=b then fibo:=true else fibo:=false; end; procedure printresult(k:byte); var i:integer; begin for i:=1 to k do write(f,a[i],' '); end; procedure attempt(i:byte); var j:word; begin for j:=a[i-1]+1 to (n-t[i-1]) div 2 do if fibo(j) then begin a[i]:=j; t[i]:=t[i-1]+j; c[j]:=false; attempt(i+1); end; a[i]:=n-t[i-1]; if fibo(a[i]) and c[a[i]] then begin writeln(f,i); printresult(i);close(f);halt; end; c[a[i]]:=true; end; begin clrscr; fillchar(c,sizeof(c),true); assign(f,'fibo.inp');reset(f); read(f,n);close(f); a[0]:=0;t[0]:=0; assign(f,'fibo.out');rewrite(f); attempt(1); end.Đây là bài 3 mình làm kiểu đệ quy quay lui
Cao Xuân Huy tự hào là thành viên VMF
#18
Đã gửi 06-09-2011 - 23:05
Mấy bài này thì chỉ giống như SGK thôi. Thế bạn có đề tỉnh bạn kode thi 'tin hoc tuoi tre' cua huyen mh ne
1.viet chuong trinh dem so lan xuat hien cua cac ki tu thuoc bang chu cai trong 50 lan go ki tu bang ban phim(k phan biet a oi A,... dung ham Upcase de chuyen doi chu thuong voi chu hoa)
2.viet chuong trinh nhap 1 day so toi da 100 so,sau do sap xep lai theo thu tu tang dan
3.viet chuong trinh nhap 2 so nguyen duong m,n.sau do tinh trung binh cong cac so nguyen le tu m den n
------------------------------------end--------------------------------------
hik.mh k lam dk nak.toan bai chua hoc.mh toan doan mo thui ak.moi nguoi coi xem sao oy post bai giai len cho mh coi voi dk k???
thank nhiu nak
p/s: unkey cua may mh bi hu mat tieu oy nen mong BQT thong cam nha
Cao Xuân Huy tự hào là thành viên VMF
#19
Đã gửi 28-09-2011 - 15:43
mình lever tin còn thấp lém nên chỉ mon mem được giải của huyện thui nạk
chưa dk biết mặt mũi đề tỉnh ntn là.
hjhjhjhjhj
mà có mấy bài trên nớ hình như chưa chém xong kìa
mà bạn Huy có vẻ siêu tin nhỉ
hjk
bái phục nạk
#20
Đã gửi 16-11-2011 - 22:01
- tho ngok96 yêu thích
Cao Xuân Huy tự hào là thành viên VMF
0 người đang xem chủ đề
0 thành viên, 0 khách, 0 thành viên ẩn danh