Question

Câu1: " Viết chương trình nhập vào xâu. Thực hiện các câu lệnh sau :
- Xóa dấu cách thừa
- In hoa chữ cái đầu tiên của mỗi từ
- Cho biết vị trí của kí tự cuối ở số thứ tự thứ mấy
- Xóa đi từ cuối cùng của xâu

Rồi đưa kết quả ra màn hình.
Câu 2: " Viết chương trình tạo mảng gồm N số nguyên có giá trị tuyệt đối <= 200
M số nguyên có giá trị tuyệt đối <= 300
Tính trung bình cộng của N số nguyên và trung bình cộng của M số nguyên
So sánh Trung bình cộng của N số và M số và đưa kết quả ra màn hình.
------> Giúp em đi . Cần gấp Kiểm Tra 1 Tiết <----------

Answer 1

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.

Answer 2

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.