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

[tho ngok96]

Tin học là 1 môn khá ms lạ so vs nhiều bạn(có cả mh)
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-(

[phung khac bac linh]

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 à???

[tho ngok96]

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

[tho ngok96]

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
)

[phung khac bac linh]

í
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
)

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:

đó 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.

[perfectstrong]

Một vài bài tập nho nhỏ và cổ điển cho các bạn đam mê pascal:

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

[khacduongpro_165]

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 đó! )

[phung khac bac linh]

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

Thử chương trình này xem có đc ko nha:

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.

[perfectstrong]

các bạn ai có lời giải nào hay thì post lên cho mọi người tham khảo. nếu không ai giải được thì pm mình để mình post lời giải lên.

[tho ngok Tg]

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.

huk huk
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

[perfectstrong]

ơ, sao topic trống vắng thế.
Các bạn tích cực tham gia lên chứ.

[perfectstrong]

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

Bài 4:

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

[Edogawa_Conan]

Bài 3:

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

[tho ngok Tg]

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

[perfectstrong]

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

Đề tỉnh cậu sao dễ dữ vậy?

[tho ngok Tg]

thì đấy
dễ mà ăn hổng trôi
huhu
tiếc nhừ à

[Cao Xuân Huy]

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]

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

Mấy bài này thì chỉ giống như SGK thôi. Thế bạn có đề tỉnh bạn ko

[tho ngok96]

hehehehe
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

[Cao Xuân Huy]

Chị tham khảo cuốn DSAP textbook của thầy Lê Minh Hoàng đi. Trong đó có nhiều thuật toán hay lắm