Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Cho xâu S1='abcdef'
S2='mne'
a) Delete (S1,2,3)
---> Kết quả: S1='aef'
b) Delete (S2,1,2)
---> Kết quả: S2='e'
c) Insert (S1,S2,1)
---> Kết quả S1='abcdef' ; S2='abcdefmne';
d) Insert (S2,S1,2)
---> Kết quả : S1='amnebcdef' ; S2='mne'
e) Copy (S1,2,4)
---> Kết quả: 'bcde'
f) So sánh hai xâu sau theo mã ASCII
S3='la co' , S4=' la do'
(hình như bạn viết thừa dấu cách ở kí tự đầu tiên của s4 đúng không, Nếu đúng thì kết quả là S3<S4 còn không phải thì KQ là S3 > S4)
g) 'toan hoc' > ' tin hoc'
l) Sửa đề : pos ('xinh', ' cai_xac_xinh_xinh')
---> Kết quả : 9
h) upcase (' t ') ---> Kết quả: T
y) length ('mnefg')=?
---> Kết quả: 5
var i,g1,g2:longint;
s1,s2:string;
begin
readln(s1);
readln(s2); //Nhập vào xâu s1 và s2.
writeln(length(s1)); //Hàm length là hàm tính độ dài của xâu, writeln độ dài của xâu s1.
writeln(length(s2)); //writeln độ dài của xâu s2.
for i:=1 to length(s1) do
if s1[i]='g' then
inc(g1); //nếu có một phần tử của s1 là 'g' thì cộng vào biến đếm g1.
for i:=1 to length(s2) do
if s2[i]='g' then
inc(g2);
if g1<>g2 then
if g1>g2 then writeln('xau s1 co nhieu ki tu g hon xau s2.')
else writeln('xau s1 co it ki tu hon xau s2.')
else writeln('xau s1 co so ki tu g bang xau s2.')
end.
uses crt;
var s1,s2:string[100];
d1,d2,dem,dem1,i,j:integer;
begin
clrscr;
write('nhap xau S1:'); readln(s1);
write('nhap xau S2:'); readln(s2);
d1:=length(s1);
d2:=length(s2);
writeln('do dai xau S1 la: ',d1);
writeln('do dai xau S2 la: ',d2);
writeln;
dem:=0;
dem1:=0;
for i:=1 to d1 do
if s1[i]='g' then inc(dem);
for j:=1 to d2 do
if s2[j]='g' then inc(dem1);
if dem>dem1 then writeln('trong xau s1 co nhieu ky tu g hon xau s2');
if dem1>dem then writeln('trong xau s2 co nhieu ky tu g hon xau s1');
readln;
end.
Sữa lỗi:
phần khai báo:a:array[1..250] of integer (ngoặc vuông ko phải ngoặc tròn)