Câu 2: Viết chương trình: Nhập từ bàn phím một số nguyên N bất kỳ, hãy xác định xem số N này có phải là số hoàn hảo hay không?. + Nếu là số hoàn hoản thì hãy liệt kê các ước của nó ra mà[r]
Trang 1SỞ GD&ĐT THANH HÓA
MÔN TIN HỌC
(dùng cho khối 11)
Mã đề: 123
Câu 1: Viết chương trình: Nhập từ bàn phím 1 dãy gồm N số tự nhiên bất kỳ, Hãy:
+ Tính tổng các số vừa nhập
+ Sắp xếp dãy số vừa nhập thành dãy số không giảm
Câu 2: Viết chương trình: Nhập từ bàn phím một số nguyên N bất kỳ, hãy xác định xem
số N này có phải là số hoàn hảo hay không?
+ Nếu là số hoàn hoản thì hãy liệt kê các ước của nó ra màn hình
+ Ngược lại thì thông báo ra màn hình số này là số chẵn hay số lẻ
Câu 3: Viết chương trình: Nhập từ bàn phím vào 1 xâu gồm s kí tự (s <= 200), hãy đếm xem trong xâu kí tự đó có bao nhiêu số 5, thông báo kết quả tìm được ra màn hình.
Câu 4: Viết chương trình: Nhập từ bàn phím 3 số nguyên dương bất kì Hãy xác định
xem 3 số đó có tạo thành cặp cạnh của 1 tam giác không? Nếu tạo thành 3 cạnh của tam giác thì:
+ Tính chu vi của tam giác tạo thành
+ Tính diện tích của tam giác
Ngược lại thì thông báo ra cạnh có độ dài lớn nhất
Kết quả của bài toán được đưa ra màn hình
Trang 2PROGRAM BAI1_123;
VAR a: array[1 100] of word;
i,j,n:integer; s,tam:word;
BEGIN {nhap vao mang 1 chieu}
write('Nhap vao so phan tu: '); readln(n); for i:= 1 to n do
begin
write('A[',i,']:= '); readln(a[i]);
end;
{tinh tong cac so vua nhap}
s:= 0;
for i:= 1 to n do
s:= s+ a[i];
write('Tong cac so vua nhap la ',s);
{sap xep thanh day khong giam}
for i:= 1 to n-1 do
begin
for j:= n downto i+1 do
begin
if a[i]>a[j] then
begin
tam:= a[i];
a[i]:= a[j];
a[j]:= tam;
end;
end;
{xuat mang 1 chieu theo hang ngang} for i:= 1 to n do
write(a[i]:3);
end;
readln;
END
{==============}
PROGRAM BAI2_123;
VAR n,s,i: integer;
BEGIN
write('Nhap vao so nguyen: '); readln(n); s:= 0;
for i:= 1 to n div 2 do
begin
if n mod i= 0 then
s:= s+i;
end;
if s=n then {tu la N la so hoan hao}
begin {Liet ke cac uoc}
for i:= 1 to n do
begin
if n mod i=0 then
write(i:3);
end;
end
else {nghia la N khong phai so hoan hao} begin
if n mod 2= 0 then
write('N la so chan')
else
write('N la so le');
end;
Trang 3PROGRAM BAI3_123;
VAR s: string;
i,d: word;
BEGIN
write('Nhap vao mot xau ki tu: '); readln(s); d:= 0;
for i:= 1 to length(s) do
begin
if s[i]='5' then
d:= d+1;
end;
write('Trong xau co ',d,' so 5');
readln;
END
{=========}
PROGRAM BAI4_123;
VAR a,b,c,max: word;
d,s,cv: real;
BEGIN
write('Nhap vao so thu nhat: '); readln(a); write('Nhap vao so thu hai: '); readln(b); write('Nhap vao so thu ba: '); readln(c); {xac dinh DK tao thanh tam giac}
if (a+b>c) and (b+c>a) and (c+a>b) then begin
d:= (a+b+c)/2;
cv:= 2*d;
s:= sqrt(d*(d-a)*(d-b)*(d-c));
writeln(' Chu vi tam giac la: ',cv);
writeln(' Dien tich tam giac la: ',s);
end
else {khong phai la tam giac}
begin {tim so lon nhat trong 3 so}
max:= a;
if max<b then
max:= b;
if max<c then
max:= c;
writeln('So lon nhat la ',max);
end;
readln;
END