Bài 1 . Viết chương trình nhập vào một xâu bất kì , nhập vào kí tự k bất kì . Hãy đếm xem trong xâu đó có bao nhiêu kí tự bằng kí tự k . In kết quả ra màn hình
Bài 2. Viết chương trình nhập vào hai xâu bất kì , hãy kiểm tra xem kí tự thứ hai của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không . In kết quả ra màn hình
Bài 3. Viết chương trình nhập vào một xấu bất kì hãy đếm xem trong xâu đó có bao nhiêu từ ( biết rằng mỗi từ sẽ được viết cách nhau một dấu cách space )
Bài 1:
program b1;
uses crt;
var dem,i:integer;
s:string;
k:char;
begin clrscr;
writeln(‘Nhap xau: ‘); readln(s);
write(‘Nhap ki tu k: ‘); readln(k);
dem:=0;
for i:=1 to length(s) do
if k=s[i] then dem:=dem+1;
writeln(‘Trong xau co ‘,dem,’ ki tu bang ki tu ‘,k);
readln;
end.
Bài 2:
Program b2;
uses crt;
var s1,s2:string;
begin clrscr;
write(‘Nhap xau 1: ‘); readln(s1);
write(‘Nhap xau 2: ‘); readln(s2);
if s1[2]=s2 [length(s2)] then writeln(‘Hai ki tu trung nhau: ‘,s1[2])
else writeln(‘Hai ki tu khong trung nhau’);
readln;
end.
Bài 3:
program b3;
uses crt;
var s:string;
i,dem:integer;
begin clrscr;
write(‘Nhap xau: ‘); readln(s);
dem:=0;
for i:=1 to length(s) do
if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then dem:=dem+1;
writeln(‘So tu co trong xau: ‘,dem);
readln;
end.
Học tốt!
Bài 1:
program oken;
uses crt;
var s: string;
k: char;
dem,i: byte;
begin
clrscr;
write(‘Nhap 1 xau: ‘); readln(s);
write(‘Nhap 1 ki tu k: ‘); readln(k);
dem:=0;
for i:=1 to length(s) do
if k=s[i] then
dem:=dem+1;
writeln(‘So ki tu la ‘,k,’ co trong xau: ‘,dem);
readln;
end.
Bài 2:
program oken;
uses crt;
var s1,s2: string;
begin
clrscr;
write(‘Nhap xau thu 1: ‘); readln(s1);
write(‘Nhap xau thu 2: ‘); readln(s2);
if s1[2]=s2[length(s2)] then
writeln(‘2 ki tu trung nhau: ‘,s1[2])
else
writeln(‘2 ki tu khong trung nhau’);
readln;
end.
Bài 3:
program oken;
uses crt;
var s: string;
i,dem: byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
dem:=0;
for i:=1 to length(s) do
if (s[i] in [‘a’..’z’]) or (s[i] in [‘A’..’Z’]) then
dem:=dem+1;
writeln(‘So tu co trong xau: ‘,dem);
readln;
end.
${Oken}$