Câu 1 hãy viết chương trình nhập vào một mảng A gồm N phần tử (N<=250). hiển thị ra màn hình các phần tử chẵn của mảng A. tính tổng của các phần tử của mảng là bội số của một số nguyên dương k cho trước. Câu 2 viết chương trình nhập vào từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng anh trong S(không phân biệt chữ hoa hay chữ thường). Mong mọi người giúp đỡ em đang cần gấp ạ
Câu 1:
program cau1:
uses crt;
var A:array[1..250]of integer;
n,i,j,dem:integer;
begin clrscr;
writeln(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘A[‘,i,’]=’); readln(A[i]);
end;
dem:=0; j:=0;
for i:=1 to n do
if A[i] mod 2=0 then
begin
inc(dem);
j:=j+A[i];
end;
writeln(‘Cac phan tu chan cua mang A la: ‘,dem);
writeln(‘Tong cac phan tu chan cua mang A la: ‘,j);
readln;
end.
Câu 2:
program cau2;
uses crt;
var A:array[‘a’..‘z’] of integer;
S:String;
C:char;
i:integer;
begin clrscr;
writeln(‘Nhap xau S: ’); readln(S);
for ch:= ‘a’ to ‘z’ do
A[C]: 0;
for i:=1 to length(S) do
begin
if S[i] in ([‘a’..‘z’]) then
begin
C:=upcase(S[i]);
A[C]:=A[C]+1;
end;
end;
writeln(‘So lan xuat hien cac chu cai trong xau la: ‘);
for C:= ‘a’ to ‘z’ do write(C:3);
for C:= ‘a’ to ‘z’ do write(A[C]:3);
readln;
end.
Học tốt!
Câu 1
uses crt;
var a:array[1..250]of integer;
i,n,dem,t:integer;
begin
clrscr;
write(‘nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
{—————————–xu-ly——————————}
dem:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln(‘so phan tu chan trong day la: ‘,dem);
writeln(‘tong cac phan tu chan trong day la: ‘,t);
readln;
end.
Câu 2
uses crt; {thu vien dung cho viec xoa man hinh}
var Dem:array[‘A’..‘Z’] of integer;
____S: String;
____ch: char;
____i: integer;
begin
____clrscr; {lenh xoa man hinh}
____write(‘Nhap xau S: ’);
____readln(S);
_for ch:= ‘A’ to ‘Z’ do
_______Dem[ch]:= 0;
_ for i:=1 to length(S) do
begin
if S[i] in ([‘a’..‘z’]) then {co the thay bang if (S[i] >= ‘a’) and (S[i] <= ‘z’) then}
begin
_________ch:=upcase(S[i]);
_________Dem[ch]:= Dem[ch]+1;
end;
end;
{for ch:= ‘A’ to ‘Z’ do
write(‘So lan xuat hien cua ’,ch, ‘ trong xau la ’, Dem[ch]);}
____writeln(‘So lan xuat hien cua cac chu cai trong xau la: ‘);
for ch:= ‘A’ to ‘Z’ do
_______write(ch:3);
____writeln;
for ch:= ‘A’ to ‘Z’ do
_______write(Dem[ch]:3);
____readln
end.
Bài 3 – Sgk – Tr73: Nhập vào từ bàn phím một xâu. Thay thế tất cả các cụm kí tự “anh” bằng cụm kí tự “em”.
Chương trình:
uses crt;
var St: String;
___Vt: byte;
begin
____clrscr;
____write(‘Nhap xau St: ’);
____readln(St);
_while pos(‘anh’,St)<>0 d0{ con tim thay tu ‘anh’ trong xau St}
begin
________Vt:=pos(‘anh’,St);
________Delete(St,vt,3);
________Insert(‘em’,St,vt);
end;
____write(‘Xau thay the la: ‘, St);
____readln
end.