Viết chương trình nhập vào 2 xâu s1 s2. In ra màn hình vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2
0 bình luận về “Viết chương trình nhập vào 2 xâu s1 s2. In ra màn hình vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2”
uses crt; var s1,s2:string; i:byte; begin clrscr; write(‘Nhap xau s1: ‘); readln(s1); write(‘Nhap xau s2: ‘); readln(s2); writeln; i:=pos(s1,s2); if i=0 then write(‘s1 khong xuat hien trong s2’) else write(‘Vi tri xuat hien dau tien cua s1 trong s2 la: ‘,i); readln end.
uses crt; var s1,s2 : string; i : integer; begin clrscr; write(‘Nhap xau 1 :’); readln(s1); write(‘Nhap xau 2 :’); readln(s2); for i:=1 to length(s2) do if s1[1] = s2[i] then write(‘Vi tri xuat hien dau tien trong xau s2 la :’,i) ; readln end.
uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
write(‘Nhap xau s1: ‘); readln(s1);
write(‘Nhap xau s2: ‘); readln(s2);
writeln;
i:=pos(s1,s2);
if i=0 then write(‘s1 khong xuat hien trong s2’)
else write(‘Vi tri xuat hien dau tien cua s1 trong s2 la: ‘,i);
readln
end.
uses crt;
var s1,s2 : string;
i : integer;
begin clrscr;
write(‘Nhap xau 1 :’); readln(s1);
write(‘Nhap xau 2 :’); readln(s2);
for i:=1 to length(s2) do if s1[1] = s2[i] then
write(‘Vi tri xuat hien dau tien trong xau s2 la :’,i) ;
readln
end.