[TuanNghia]

Đâ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

[tran chung thanh]

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

[tran chung thanh]

ở 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

[TuanNghia]

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

[quang cảnh]

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 !

[thanhtungdhv]

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

[thanhtungdhv]

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

[thanhtungdhv]

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.

[thanhtungdhv]

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.

[thanhtungdhv]

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

[thanhtungdhv]

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.