Tin học Pascal- tìm vị trí

[Tiểu Nhân Mã _ ARMY]

[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.

Viết chương trình nhập từ bàn phím 2 xâu s1, s2 . Cho biết tất cả vị trí xuất hiện của xâu s1 trong xâu s2 và in kết quả ra màn hình

 

[Code11]

ý tưởng: kiểm tra từng phần tử của s1 có trong s2 hay không, nếu có,in ra vị trí phần tử s1 trong s2

var
s1,s2:string;
i,j,n1,n2:integer;
begin
write('s1:');readln(s1);
write('s2:');readln(s2);
n1:=length(s1);n2:=length(s2);
for i:=1 to n1 do
for j:=1 to n2 do if s1=s2[j] then write(j,' ');
readln;
end.

 

[Tiểu Nhân Mã _ ARMY]

ý tưởng: kiểm tra từng phần tử của s1 có trong s2 hay không, nếu có,in ra vị trí phần tử s1 trong s2

var
s1,s2:string;
i,j,n1,n2:integer;
begin
write('s1:');readln(s1);
write('s2:');readln(s2);
n1:=length(s1);n2:=length(s2);
for i:=1 to n1 do
for j:=1 to n2 do if s1=s2[j] then write(j,' ');
readln;
end.

không , ý mình là s1 là xâu con của s2 thì tìm tất cả vị trí bắt đầu xuất hiện của cả xâu s1 trong xâu s2 ý .
VD : s1='abc'; s2='abcdeabcfk';
thì vị trí là : 1,6