Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình
viết chương trình nhập vào từ bàn phím một xâu bất kì hãy thực hiện xoá 5 kí tự bắt đầu từ vị trí 3 cả xâu đó rồi đưa kết quả ra màn hình
uses crt;
var st:string;
begin
clrscr;
readln(st);
delete(st,3,5);
writeln(st);
readln;
end.
viết chương trình nhập 1 xâu bất kì từ bàn phím ,đưa ra màn hình xâu sau khi xoá n kí tự từ vị trí bất kì
uses crt;
var st:string;
n,vt,d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Nhap vi tri can xoa:'); readln(vt);
write('Nhap so ki tu can xoa:'); readln(n);
delete(st,vt,n);
writeln('Xau sau khi xoa la: ',st);
readln;
end.
Viết chương trình nhập vào từ bàn phím một xâu kí tự. In ra màn hình xâu gồm tất cả các kí tự chữ số lấy từ xâu đã nhập
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Câu 2:
uses crt;
const fi='kq.out'
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chan la: ',t/dem:4:2);
readln;
end.
Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Viết chương trình nhập vào 1 xâu kí tự từ bàn phím và đưa xâu đó ra màn hình là các chữ cái in hoa
Program Xau;
Uses crt;
Var St: String;
i: longint;
Begin
Clrscr;
Write('Nhap xau: '); Readln(St);
For i:=1 to length(St) do
St[i] := Upcase(St[i]);
Write('St = ',St);
Readln
End.
Viết chương trình nhập một xâu từ bàn phím .Đếm số lần xuất hiện của các kí tự trong xâu và in ra màn hình
uses crt;
var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc(dem1);
writeln(a[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
uses crt;
var a:string;
c:char;
i,dem:integer;
begin
clrscr;
readln(a);
readln(c);
dem:=0;
for i:=1 to length(a) do
if a[i]=c then dem:=dem+1;
writeln(dem);
readln;
end.
Em hãy viết chương trình nhập vào một xâu ký tự bất kỳ từ bàn phím (tối đa 250 kí tự) bao gồm cả chữ hoa, chữ thường và số. Hãy chuyển hoá xâu vừa nhập thành chữ thường và in ra màn hình.
program ChuyenXauSangChuThuong;
var
str: string;
i: integer;
begin
write('Nhap mot xau ky tu: ');
readln(str);
for i := 1 to Length(str) do
str[i] := LowerCase(str[i]);
writeln('Xau ky tu chuyen thanh chu thuong la: ', str);
end.