Bài 5: Viết chương trình cho phép người dùng nhập vào từ bàn phím một xâu ký tự s gồm cả các kí tự chữ và các kí tự số. Hãy tách s thành 2 xâu con: s1 chỉ chứa các ký tự số, s2 chỉ chứa các ký tự chữ
uses crt;
var s,s1,s2:string;
i,d:integer;
begin
clrscr;
readln(s);
s1:=''
s2:=''
d:=length(s);
for i:=1 to d do
begin
if s[i] in ['0'..'9'] then s1:=s1+s[i];
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];
end;
writeln('Xau chua cac ki tu so la: ',s1);
writeln('Xau chua cac ki tu chu la: ',s2);
readln;
end.
viết phương trình nhập vào xâu s1 có m kí tự, sâu s2 có n kí tự. chèn xâu s1 vào xâu s2 ở vị trí n – 5
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1,s2);
insert(s1,s2,5);
writeln(s2);
readln;
end.
b1: nhập 1 dãy a từ bàn phím . tính tổng các giá trj của dãy a.
b2 : cho 2 xâu s1 và s2, viết đoạn chương trình chèn xâu s1 vào giữa s2, tại vị trí len(s2)\\2. in kết quả ra màn hình
b3: cho xâu s, viết đoạn lệnh trích ra xâu con của s bao gồm 3 ks tự đầu tiên của s
b4 ; viết chương trình kiểm tra xâu s có chứa chữ số không. thông báo " s có chứa chữ số" hoặc " s kh chứa chữ số nào "
help me, ty 3>
Cho các xâu
S1= ‘Pin_NLMT’
S2= ‘Pin_luthium’
S3= ‘Pin_JA_Solar’
S4= ‘Pin_Jinko_Solar’
a. So sánh các xâu sau: S1 và S4, S2 và S3
b. Thực hiện các thao tác: Insert(S1,S3,5)=?, Delete(S4,2,4)
Mọi người giúp mình với ạ!
uses crt;
const s1='Pin_NLMT'
s2='Pin_luthium'
s3='Pin_JA_Solar'
s4='Pin_Jinko_Solar'
begin
clrscr;
if s1<s4 then writeln('Xau s1 nho hon xau s4')
else if s1=s4 then writeln('Xau s1 bang xau s4)
else writeln('Xau s1 lon hon xau s4');
if s2<s3 then writeln('Xau s2 nho hon xau s3')
else if s2=s3 then writeln('Xau s2 bang xau s3')
else writeln('Xau s2 lon hon xau s3');
readln;
end.
1.Viết hàm cho biết xâu S1 có xuất hiện trong xâu S2 không?
2.Viết hàm chèn câu S1 vào S2 từ vị trí thứ 6?
3. Đếm xem có bao nhiêu kí tự là chữ số trong xâu S2
(Mọi người ơi giúp mình với ạ, mai mình thì rồi)
Một dãy tuyến tính là 1 bộ 3 có thứ tự (s1, s2, s3) thỏa mãn s2 - s1 = s3 - s2. Viết chương trình đọc vào các phần tử của mảng (ít nhất 3 phần tử). Hãy xuất ra các dãy tuyến tính tìm được và cho biết có bao nhiêu dãy tuyến tính
Câu 1:
Nhập vào 2 xâu s1, s2:
- Kiểm tra s1 nằm ở vị trí nào trong s2 (Nếu độ dài của s2 > s1) còn nếu độ dài s1 > s2 thì kiểm tra s2 có nằm trong s1 không
Câu 2: Nhập vào 1 xâu s
- Chuẩn hóa xâu s biết rằng: 1 xâu sau khi đã chuẩn hóa thì giữa các từ chỉ cách nhau 1 dấu cách
- In ra số lượng từ có trong xâu s
- Đếm số lượng các ký tự là chữ số trong xâu s
vViết chương trình nhập vào hai xâu s1,s2 không quá 255 kí tự.Thực hiện xoá các kí tự không phải là kí tự chữ số trong hai xâu.Sau đó,tính tổng hai xâu đó.
uses crt;
var s1,s2:string;
i,j,d1,d2:integer;
begin
clrscr;
readln(s1,s2);
d1:=length(s1);
d2:=length(s2);
for i:=1 to d1 do
if not(s1[i] in ['0'..'9']) then delete(s1,i,1);
for i:=1 to d2 do
if not(s2[i] in ['0'..'9']) then delete(s2,i,1);
writeln(s1);
writeln(s2);
writeln(s1+s2);
readln;
end.
1.Viết chương trình nhập vào 1 xâu (s1) và in ra màn hình xâu đã nhập. + nhập vào xâu thứ 2 và in ra màn hình xâu dài hơn( nếu bằng nhau thì in ra xâu nhập sau) +kiểm tra kí tự đầu tiên trong xâu S1 có trùng với kí tự cuối cùng của xâu S2 khong? +in ra màn hình xâu đảo ngược của xâu S1 +in ra xâu S1 khi đã loại bỏ kí tự trắng ( nếu có) +in ra xâu chỉ có kí tự là chữ cái xuất hiện trong xâu S2( không phân biệt chữ hoa, thường) +đếm xem có bao nhiêu chữ số trong xâu S2. Ét o ét mọi người ơi