Viết lập trình nhập vào 2 xâu kiểm tra ký tự thứ 2 của xâu thứ nhất có trùng ký từ kề cuối của xâu thứ 2 hay ko?
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
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 xâu ký tự S ,độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu
-Xâu chuẩn là xâu không có dấu cách ở cuối câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.
Bài 2. Viết chương trình nhập vào một xâu bất kỳ. In ra màn hình xâu đó sau khi đã xóa hết
ký tự trắng dư thừa. Ký tự trắng dư thừa (hay còn gọi là dấu cách, ký tự trống) là ký
tự trắng xuất hiện ở trước từ đầu tiên của xâu, sau từ cuối cùng của xâu và giữa các
từ cách nhau nhiều hơn 1 ký tự trắng.
Ví dụ: Giả sử * là ký tự trắng.
Cho xâu: ’**xin***chao**’. => Xâu sau khi được xử lý ’xin*chao’
Gợi ý:
Kiểm tra phần tử trong xâu có phải là ký tự trắng hay không? Nếu đúng thì xóa ký tự trắng đó
cho đến khi không còn ký tự trắng ở đầu xâu.
Kiểm tra từ đầu đến cuối xâu, nếu có 2 ký tự trắng liên tiếp => Xóa đi 1 ký tự trắng, thự hiện
công việc xóa cho đến khi giữa các từ trong xâu chỉ cách nhau 1 ký tự trắng.
Sau khi xử lý các ký tự trắng dư thừa ở đầu xâu, giữa xâu. Ta xử lý tiếp ký tự trắng dư thừa ở
cuối xâu bằng cách kiểm tra ký tự cuối cùng có phải là ký tự trắng hay không. Nếu đúng thì xóa
cho đến khi ký tự cuối cùng của xâu không phải là ký tự trắng.
B1: Khai báo.
B2: Nhập xâu bất kỳ.
B3: Xoá ký tự trắng dư thừa
B3.1: Xoá ký tự trắng dư thừa xuất hiện ở đầu tiên của xâu (nếu có).
Chừng nào ký tự đầu tiên trong xâu là ký tự trắng => xoá ký tự trắng đó cho đến khi đầu xâu
không phải là ký tự trắng.
B3.2: Xoá ký tự trắng dư thừa cuối cùng của xâu (nếu có).
Chừng nào trong xâu xuất hiện 2 ký tự trắng trong xâu => xoá đi 1 ký tự trắng dư thừa.
B3.3: Xoá ký tự trắng dư thừa giữa các từ (nếu có).
Chừng nào ký tự cuối cùng là ký tự trắng => Xoá đi ký tự đó.
B4: In ra kết quả
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
for (i=0; i<=d-1; i++)
if ((st[i]==' ') and (st[i+1]=' ')) st.erase(i,1);
cout<<st;
return 0;
}
Viết đoạn chương trình nhập vào xâu S và kiểm tra xem xâu có bao nhiêu ký tự cách
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau :'); readln(s);
d:=0;
for i:=1 to length(s) do if s[i]=' ' then d:=d+1;
write('Xau ',s,' co ',d,' ki tu cach');
readln
end.
uses crt;
var s:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=#32 then inc(dem);
writeln(dem);
readln;
end.
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra:
a. Độ dài xâu.
b. Xâu đã xóa đi 1 ký tự đầu.
c. Xâu đã xóa đi 2 ký tự cuối.
d. Xâu đã xóa đi 1 ký tự giữa.
e. Xâu đã in hoa.
f. Vị trí của khoảng trắng đầu tiên.
g. Đếm số ký tự ‘a’ có trong xâu.
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 ;
}
1. Lập chương trình nhập vào một xâu kí tự phàm phim, Tiếp tục nhập vào một ký tự bất kỳ từ bàn phím. Đếm xem trong xâu trên có bao nhiêu ký tự trùng với kỷ tự vừa nhập.
2. Lập chương trình nhập vào một danh sách học sinh n phần tư, mỗi học sinh có các thông tin stt, họ tên, điểm toán, điểm tin, điểm TB (=(Điểm toán +Điểm Tin )/2). In danh sách ra màn hình.
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. Hiển thị lên màn hình các chữ số có trong xâu đã nhập (giữ nguyên thứ tự xuất hiện) xuất xâu đã nhập
Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('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;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['0'..'9'] then write(st[i]:4);
readln;
end.