Tin học Bài tập pascal

[sieuluoidihoc]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

giúp mình nêu ý tưởng để giải mấy bài này nha!
1. Nhập dãy số thực a. Tìm các số của dãy = tổng 2 số khác nhau trong dãy.
2.Nhập dãy số thực a. Đưa số âm lên đầu, số dương về cuối và số 0 đứng giữa.
3.Nhập 1 xâu kí tự. Kt tính đối xứng. Nếu xâu không đối xứng hãy đảo xâu và thêm 1 kí tự a vào bất kì vị trí nào trong xâu.

 

[diamond_jelly95]

giúp mình nêu ý tưởng để giải mấy bài này nha!
3.Nhập 1 xâu kí tự. Kt tính đối xứng. Nếu xâu không đối xứng hãy đảo xâu và thêm 1 kí tự a vào bất kì vị trí nào trong xâu.

Xâu nhâp là s
n:=length(s);
i:=1;
For i:=1 to (n div 2) do
if s=s[n] then
begin
i:=i+1;
n:=n-1;
end
else
begin
For i:=n downto 1 do
begin
For j:=1 to n do
x[j]:=s;
end;
x[n+1]:='a';
xâu đảo là xâu x
bạn nên thử lại, nhà m ko có turbo

 

[duynhan1]

x[n+1]:='a';
xâu đảo là xâu x
bạn nên thử lại, nhà m ko có turbo

thao tác cuối cùng sẽ bị báo lỗi ^^ muốn viết thêm ký tự vào xâu x thì ta gõ:

x:=x+'a';

Nếu thêm vào đầu thì :

x:='a'+x;