Chuyển tới nội dung


Các bài tập Pascal cơ bản


#1 TuanNghia

    Newbie

  • Thành Viên
  • Pip
  • 5 Bài viết:

Đăng 18 August 2007 - 02:43 PM

Đây là địa chỉ có các bài tập pascal cơ bản, các bạn avof Download nhé
www.freewebs.com/h111111/nghia.rar

#2 tran chung thanh

    Newbie

  • Thành Viên
  • Pip
  • 7 Bài viết:

Đăng 18 August 2007 - 11:32 PM

hì khi em nén quên bỏ chế độ hide à :). anh mới tải về :D để xem mí bài em làm xem sao :).
Anh thành 45B đây :).

#3 tran chung thanh

    Newbie

  • Thành Viên
  • Pip
  • 7 Bài viết:

Đăng 19 August 2007 - 12:05 AM

ở bài Fibonaxi em có 1 lỗi đó là chưa kiểm tra n nhập vào. chẳng hạn với n=1 thì bài toán của em in ra 2 số thứ 1 và thứ 2. còn nếu n<0 thì cũng hiện ra 2 số thứ 1 và thứ 2.
còn bài ma trận chuyển vị em không cần phải khai báo thêm 1 mảng nữa làm gì. em chỉ cần khai báo thêm 1 biến trung gian và duyệt mảng đổi chỗ là ok. giống thuật toán quay 90 độ trong xử lý ảnh đó, nhưng mà nhớ khi đổi xong thi cung nhớ là đổi luôn chỉ số hàng và cột luôn
còn về bài toán đảo dãy thì thuật toán em đã sai vi em thử sử dụng lệnh in ra ở ngoài Begin và em xem, lúc đó thì mảng của em đã không bị đảo mà vẫn giữ nguyên, vì ở vòng đảo em cho biến i chạy từ 1 đến n. mà thuật toán đảo mảng thì i chỉ chạy từ 1 đến n div 2 mà thôi
hì mới xem đến đó thui :D

#4 TuanNghia

    Newbie

  • Thành Viên
  • Pip
  • 5 Bài viết:

Đăng 19 August 2007 - 09:12 PM

Cam on anh thanh nhe
Hom sau se co ban tot hon
Sory, ban nay viet hon 1 nam roi khong dung lai

#5 quang cảnh

    Newbie

  • Thành Viên
  • Pip
  • 2 Bài viết:

Đăng 23 May 2008 - 11:03 PM

Mình tên Cảnh, minh mới tẽn tò đi học pascal, mà mình không biết một chút ji về nó cả. a nghĩa với anh thanh giúp e với! e rất muốn học. nick của e là anhsao_vl@yahoo.com. em rất mong 2 anh giúp đỡ cho em. nếu buổi tối các a có thời gian rỗi giúp e thì tốt quá. cảm ơn các a rất nhiều, thân !

#6 Guest_tuthangirl_*

  • Guests

Đăng 31 October 2008 - 07:36 PM

mấy anh chị ơi.em đang học chương trình pascal mà hok bik tìm đâu ra bài tập hết, anh chị có thể chỉ cho em được hok,em đang học đến phần mảng,anh chị giúp em nha,em cảm ơn nhìu nhìu :)

#7 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 03 November 2008 - 01:00 PM

e cứ thấy bài nào không làm dc thì post lên coi thế nào. ko thì e cho bon anh nick để thi thoang online dc ko

#8 Guest_tuthangirl_*

  • Guests

Đăng 07 November 2008 - 09:18 AM

nik của em là love_paraside_mm anh chị chỉ giáo cho em nha,em đang học lớp chuyện tin mà thú thật em hok thấy em giỏi tin tẹo nào,em hok tìm được sách để làm bài tập,mà hok có ai chỉ cho,các bạn trong lớp điều đi học thêm,nhưng em thấy hok thik như vậy,nên lên diễn đàn,có bài tập nào cho em làm để quen anh chị cho em nha, :) ,cảm ơn anh chị nhiều nha,em đang rất chán :(

#9 Guest_nvtrung2008_*

  • Guests

Đăng 07 November 2008 - 05:35 PM

Có 4-5 cuốn giáo trình Pascal cho các bạn tham khảo đây (cả Bài tập và lý thuyết), ngoài ra trên mạng Internet còn nhiều, nhưng đây là giáo trình do các thầy soạn nên dễ đọc và dễ hiểu,

http://www.mediafire.com/?t4zpmnfb9m1

chúc vui

#10 Guest_nvtrung2008_*

  • Guests

Đăng 07 November 2008 - 05:42 PM

Còn đây là các bài tập và ví dụ nằm trong phần mềm Pascal Study 1.0, rất tiếc là soft này tôi để đâu tìm không thấy, các bạn có thể Search trên Google.

http://www.mediafire.com/?ngdyj2cjscx

#11 Guest_tuthangirl_*

  • Guests

Đăng 08 November 2008 - 08:32 AM

em cảm ơn anh chị,nhưng thú thật là vào mấy trang wed anh chị đưa toàn tiếng anh,em chịu chiu,hok hĩu được <_<

#12 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 12 November 2008 - 08:26 PM

http://www.minhkhai....0toan%20tap.zip
day la linhk tieng viet ne e coi coi
co gi ko hieu thi post le a noi dum cho

#13 Guest_tuthangirl_*

  • Guests

Đăng 13 November 2008 - 08:17 AM

cảm ơn anh chị nhiều ghê,em đã đọc mấy trang đó :)

#14 Guest_tuthangirl_*

  • Guests

Đăng 15 November 2008 - 08:15 PM

đề : Nhập vào xâu s
a)Xoá đi tất cả các kí tự trùng lặp trong xâu.
B) Xóa đi tất cả các kí tự trung lặp nếu trùng thì giữ lại 1 kí tự
vd 12732235 a)157 b)12357
bài làm của em nè
em chỉ viết đoạn chương trình chính thui
a) n:=length(s);
for i:=1 to n-1 do
begin j:=j+1;d:=0
while j<=n do
if s=s[j] then begin delete(s,j,1); d:=d+1
else j:=j+1;
[i]if d<>0 then delete(s,i,1);
end;

Những chỗ em ghi nghieng là ở câu b em bỏ thầy chạy dùm em chương trình,vừa rui em chạy sai mất tiêu rùi,do tại trong xâu khi mình xoá thì những vị trí tiếp theo cứ thía dốn lên,nên em hok bik em viết chương trinh đúng hok nữa

#15 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 15 November 2008 - 09:21 PM

anh đã sửa lai bài cho em rồi nè
bài em post lên không chay được


program vidu;
uses crt;
var s: string[80];
i,j,n:integer;
d: char;
begin
clrscr;
write(' nhap sau s: '); readln(s);
{ xoa phan tu gioang nhau}
n:=length(s);
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
begin
if s[i]=s[j] then delete(s,j,1);
j:=j+1;
end;
end;
writeln('xau s',s:3);
{xap xep}
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i] > s[j]then
begin
d:=s[i];
s[i]:=s[j];
s[j]:=d;
end;
writeln('xau s',s:3);
readln;
end.

#16 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 15 November 2008 - 09:22 PM

anh đã sửa lai bài cho em rồi nè
bài em post lên không chay được


program vidu;
uses crt;
var s: string[80];
i,j,n:integer;
d: char;
begin
clrscr;
write(' nhap sau s: '); readln(s);
{ xoa phan tu gioang nhau}
n:=length(s);
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
begin
if s[i]=s[j] then delete(s,j,1);
j:=j+1;
end;
end;
writeln('xau s',s:3);
{xap xep}
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i] > s[j]then
begin
d:=s[i];
s[i]:=s[j];
s[j]:=d;
end;
writeln('xau s',s:3);
readln;
end.

#17 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 15 November 2008 - 09:26 PM

program vidu;
uses crt;
var s: string[80];
i,j,n:integer;
d: char;
begin
clrscr;
write(' nhap sau s: '); readln(s);
{ xoa phan tu gioang nhau}
n:=length(s);
for i:=1 to n-1 do
begin
j:=i+1;
while j<=n do
begin
if s[i]=s[j] then delete(s,j,1);
j:=j+1;
end;
end;
writeln('xau s',s:3);
{xap xep}
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i] > s[j]then
begin
d:=s[i];
s[i]:=s[j];
s[j]:=d;
end;
writeln('xau s',s:3);
readln;
end.


trên đây là bài anh sủa lại cho em
bài của em ko chay dc

#18 Guest_tuthangirl_*

  • Guests

Đăng 15 November 2008 - 10:24 PM

anh tùng anh đã chạy thử chương trình của anh chưa
em nói thế này hok bik đúng hok nhưng nếu làm như anh thì khi mình xoá s[j] rồi thì giá trị cúa s[j+1] sẽ được đổi về vị trí "j" như vậy thì mình sẽ không so sánh được với s[j+1] ,nếu có thể anh hãy chạy thử chương trình với dãy này được hok 122345344
em nói vậy hok bik đúng hay sai nhưng em chỉ đưa thắc mắc của e ra,nếu sai thì anh sửa cho e nha,em cảm ơn anh nhìu :)

#19 thanhtungdhv

    Advanced Member

  • Thành Viên
  • PipPipPip
  • 57 Bài viết:

Đăng 16 November 2008 - 12:49 PM

thuật toán là :
sau khi xóa xong ta duyệt từ vị trí thứ j=i+1 đến hết xâu với độ dài giảm đi
vi du : s= 4544
ban dau do dai là 4
voi j=i+1;
vong 1:
b1 lay đọ dai xau m= length(s)

b2:trong khi j<m thi
so sánh s[i], s[j]
nêu s[i]= s[j] xóa ký tụ vị trí
quay lai buoc 1
nêu s[i]<> s[j] tu tang j
sau khi lam het vong j tang i


program vidu;
uses crt;
label tt;
var s: string[80];
i,j,n,m:integer;
d: char;
begin
clrscr;
write(' nhap sau s: '); readln(s);
{ xoa phan tu giong nhau}
n:=length(s);
for i:=1to n do
begin
tt:
m:=length(s);
{moi lam xoa xong ta duyet lai tu dau }
for j:=i+1 to m do
if s[i]=s[j] then
begin
delete(s,j,1) ;
goto tt;
end;
end;
writeln('chuan hoa s',s:3);
{xap xep}
n:=length(s);
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i] > s[j]then
begin
d:=s[i];
s[i]:=s[j];
s[j]:=d;
end;
writeln('xau s',s:3);

readln;
end.

#20 Guest_tuthangirl_*

  • Guests

Đăng 04 December 2008 - 08:25 AM

em có bài này nhờ anh chị chỉ giáo dùm cho
nhân 2 đa thức(e đang học bản ghi)
cô em cho công thức thế này
for i:=1 to p1.bac do
for j:=i+1 to p2.bac do
p.a[i+j]:=p.a[i+j]+p1.a[i]+p2.a[j];(p1 là biểu thức 1,p2 là biểu thức 2,p là biểu thức kết quả)
em hok hiểu công thức này lắm,nhưng mà khi bạn em chạy thử chương trình máy cho kết quả đúng,anh chị có thể giải thik cho em hok,giúp em với em cảm ơn nhìu lắm





2 thành viên đang đọc chủ đề này

0 thành viên 2 khách 0 thành viên vô danh