Viết chương trình nhập vào một xâu có độ dài không quá 100 ký tự từ bàn phím. Kiểm tra xâu đó có phải là xâu đối xứng hay không? (Xâu đối xứng có tính chất: Đọc nó từ phải sang trái cũng thu được kết quả giống như đọc từ trái sang phải ). Xuất xâu đã nhập ( không phân biệt chữ hoa chữ thường)
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
uses crt;
var st:string[100];
i,d,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
kt:=0;
for i:=1 to length(st) do
if st[i]<>st[length(st)-i+1] then kt:=1;
if kt=0 then write('Xau doi xung')
else writeln('Xau khong doi xung');
readln;
end.
code đây bạn c++ nha:
#include<bits/stdc++.h>
using namespace std;
char doixung(char s1[100])
{
long long i;
for(i=0;i<strlen(s1)/2;i++)
{
if(s1[i] != s1[strlen(s1)-1-i])
return 0;
}
return 1;
}
int main()
{
char s1[100];
cin>>s1;
if(doixung(s1)==0)
{
cout<<"k la cxau doi xung";
}
if(doixung(s1)==1)
{
cout<<"la xau doi xung";
}
return 0 ;
}
Viết chương trình nhập vào một xâu, gồm chữ cái và chữ số. Nhập vào 1 ký tự từ bàn phím kiểm tra xem ký tự đó có tồn tại trong xâu hay không?
câu 1 Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte
; i:Byte;
ch:Char;
Begin Write(‘Nhap xau St: ‘);
Readln(St);
{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
uses crt;
var st:string;
i,d,kt:integer;
ktu:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ktu);
d:=length(st);
kt:=0;
for i:=1 to d do
if ktu=st[i] then kt:=1;
if kt=0 then writeln(ktu,' khong co trong xau')
else writeln(ktu,' co trong xau');
readln;
end.
Viết chương trình nhập vào từ bàn phím một xâu ký tự, chương trình tự tìm những ký tự là số để xóa đi và xuất kết quả ra màn hình.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=1 to n do if not(s[i] in ['0'..'9']) then write(s[i]);
readln
end.
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
Viết chương trình nhập từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thay thế tất cả các cụm ký tự 'anh' bằng cụm ký tự 'em'. Xuất xâu đã nhập
Cậu tham khảo nhé!!!
https://hoc24.vn/cau-hoi/viet-chuong-trinh-nhap-mot-xau-tu-ban-phim-thay-ky-tu-39a39-thanh-39i39-va-in-xau-da-thay-ra-man-hinh-thay-tat-ca-chu-39anh39-t.257698320219
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
while pos('a',s)<>0 do
begin
insert('i',s,pos('a',s));
delete(s,pos('a',s),1);
end;
write('Xau sau khi chuyen la : ',s);
readln;
end.
Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
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 chương trình C++ nhập vào từ bàn phím một xâu ký tự và 1 số nguyên k. a.Xét xem trong xâu có k ký tự kề nhau mà như nhau hay không ? b. Tất cả các ký tự kề nhau mà như nhau chỉ để lại một.
Bài tập xâu: Viết chương trình nhập xâu s từ bàn phím. In ra màn hình số lượng ký tự số, ký tự thường, ký tự hoa và ký tự đặc biệt.
uses crt;
var s:string;
i,d,dem1,dem2,dem3,dem4:integer;
begin
clrscr;
write('Nhap xau s:'); readln(s);
d:=length(s);
dem1:=0;
dem2:=0;
dem3:=0;
dem4:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1)
else if st[i] in ['a'..'z'] then inc(dem2)
else if st[i] in ['A'..'Z'] then inc(dem3)
else inc(dem4);
end;
writeln('So luong ky tu so la: ',dem1);
writeln('So luong ky tu thuong la: ',dem2);
writeln('So luong ky tu hoa la: ',dem3);
writeln('So luong ky tu dac biet la: ',dem4);
readln;
end.
