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 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 )
Lời giải 1 :
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!
Thảo luận
Lời giải 2 :
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.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 11
Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK