Bài 12: Kiểu xâu

Câu 1:

Program HOC24;

var s,st: string;

n,i,j: integer;

a: array[1..32000] of string;

function chuyen(x: string): string;

begin

x[1]:=upcase(x[1]);

chuyen:=x;

end;

begin

write('Nhap xau : '); readln(s);

while s[1]=#32 do delete(s,1,1);

while s[length(s)]=#32 do delete(s,length(s),1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi xoa dau cach : ',s);

st:=s;

s:=s+' ';

while length(s)<>0 do

begin

st:=copy(s,1,pos(' ',s)-1);

n:=n+1;

a[n]:=st;

delete(s,1,pos(' ',s));

end;

write('Cac ki tu in hoa dau tien cua moi tu : ');

for i:=1 to n do write(chuyen(a[i]),' ');

writeln;

writeln('Vi tri cuoi cung cua ki tu cuoi cung so : ',length(st));

write('Sau khi xoa tu cuoi cung : ');

for i:=1 to n-1 do write(chuyen(a[i]),' ');

readln

end.

Câu 2:

Program HOC24;

var i,n,m: integer;

tb,tb1: longint;

a,b: array[1..32000] of integer;

begin

write('Nhap so N : '); readln(n);

tb:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

tb:=tb+a[i];

end;

write('Nhap so M : '); readln(n);

tb1:=0;

for i:=1 to m do

begin

write('Nhap so thu ',i,' : '); readln(b[i]);

tb1:=tb1+b[i];

end;

if (tb/n)>(tb1/m) then write('Trung binh cong cua N so lon hon M so')

else write('Trung binh cong cua M so lon hon N so')

else (tb/n)=(tb1/m) then write('Trung binh cong cua M so bang hon N so');

readln

end.

uses crt;
const finp='Bai1.inp';
fout='Bai1.out';
type mangc=array[1..10000] of char;
mangl=array[1..10000] of longint;
var f:text;
ch:mangc; a:mangl;
n:longint;
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,ch[i]);
close(f);
end;
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;
procedure tim;
var i,j,d,k,l:longint;
begin
for i:=n-2 downto 1 do
begin
a[i]:=1;
d:=0;
for j:=i+1 to n do
begin
l:=a[j];
if ch[i]=ch[j] then a[j]:=d+2
else if a[j-1]>a[j] then a[j]:=a[j-1];
d:=l;
end;
end;
end;
procedure xuly;
var i:longint;
begin
fillchar(a,sizeof(a),0);
if n=1 then a[n]:=1
else begin
a[n-1]:=1;
a[n]:=ord(ch[n]=ch[n-1])+1;
end;
if n>2 then tim;
write(f,n-a[n]);
end;
begin
doc;
ghi;
xuly;
close(f);
end.

ai có thể giải thích cho mình bài này đc không

nhất là cái "procedure tim" và mục đích của mảng số nguyên a

mk cảm ơn nhiều

var s:ansistring;

begin

readln(s);

delete(s,10,3);

writeln(s);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

string a,b;

int d1,d2;

int main()

{

cin>>a>>b;

d1=a.length();

d2=b.length();

if (d1%2==0) cout<<a<<" ";

if (d2%2==0) cout<<b<<" ";

return 0;

}

ý tưởng:
-gọi d1 là số kí tự hoa,d2 là số kí tự thường
-cho biến i chạy từ 1 đến length(s)
-if s[i] in ['A'..'Z'] then inc(d1) else inc(d2);

program bai_tap;
i,d1,d2:integer;s:string;
begin
writeln('nhap s:');
readln(s);
d1:=0;d2:=0;
for i:= 1 to length(s) do
if s[i] in ['A'..'Z'] then inc(d1)
else inc(d2);
writeln('co ',d1,' ki tu hoa');
writeln('co ',d2,' ki tu thuong');
readln
end.