Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
hieu bui

viết chương trình nhập 2 xâu S1,S2 không quá 100 ký tự . hãy

a) tính đọ dài 2 xâu S1,S2

b)so sánh số ký tự 'g' trong 2 xâu S1,S2

Minh Lê
24 tháng 3 2019 lúc 17:57

var i,g1,g2:longint;
s1,s2:string;
begin
readln(s1);
readln(s2); //Nhập vào xâu s1 và s2.
writeln(length(s1)); //Hàm length là hàm tính độ dài của xâu, writeln độ dài của xâu s1.
writeln(length(s2)); //writeln độ dài của xâu s2.
for i:=1 to length(s1) do
if s1[i]='g' then
inc(g1); //nếu có một phần tử của s1 là 'g' thì cộng vào biến đếm g1.
for i:=1 to length(s2) do
if s2[i]='g' then
inc(g2);
if g1<>g2 then
if g1>g2 then writeln('xau s1 co nhieu ki tu g hon xau s2.')
else writeln('xau s1 co it ki tu hon xau s2.')
else writeln('xau s1 co so ki tu g bang xau s2.')
end.

Nguyễn Lê Phước Thịnh
13 tháng 10 2019 lúc 16:44

uses crt;
var s1,s2:string[100];
d1,d2,dem,dem1,i,j:integer;
begin
clrscr;
write('nhap xau S1:'); readln(s1);
write('nhap xau S2:'); readln(s2);
d1:=length(s1);
d2:=length(s2);
writeln('do dai xau S1 la: ',d1);
writeln('do dai xau S2 la: ',d2);
writeln;
dem:=0;
dem1:=0;
for i:=1 to d1 do
if s1[i]='g' then inc(dem);
for j:=1 to d2 do
if s2[j]='g' then inc(dem1);
if dem>dem1 then writeln('trong xau s1 co nhieu ky tu g hon xau s2');
if dem1>dem then writeln('trong xau s2 co nhieu ky tu g hon xau s1');
readln;
end.


Các câu hỏi tương tự
CHANNANGAMI
Xem chi tiết
Lan Anh
Xem chi tiết
Học Thái
Xem chi tiết
Ard Meteor
Xem chi tiết
Ngô Thành Chung
Xem chi tiết
mqthien2801
Xem chi tiết
phan nguyễn tấn khởi
Xem chi tiết
Ẩn Nguyen
Xem chi tiết
CHANNANGAMI
Xem chi tiết