[r]
(1)Đáp Án
HỆ: Trung Học Cơ Sở
Thời gian: 120 phút
Bài 1: Viết chương trình
a) Nhập vào số nguyên N dãy số nguyên: (1 đ) A1 , A2 , A3 , …, AN
B1 , B2 , B3 , …, BN
b) Cộng phần tử tương ứng dãy vào dãy: (1 đ) KQ1 , KQ2 , KQ3 , …,KQ n
c) Xuất giá trị dãy KQ hình theo thứ tự giảm dần (1.5 đ)
Ví dụ:
Dãy A: Dãy B:
Xuất hình dãy KQ: 17 7 Program Bai1;
var a,b,kq: array[1 100] of integer; n,i,j,tmp: integer;
begin
write('Nhap n: '); readln(n);
writeln('Nhap gia tri cho mang a'); for i:=1 to n
begin
write('a[',i,']= '); readln(a[i]); end;
writeln('Nhap gia tri cho mang b'); for i:=1 to n
begin
write('b[',i,']= '); readln(b[i]);
(2)end;
for i:=1 to n kq[i]:=a[i]+b[i]; for i:=1 to n-1 for j:=i+1 to n if kq[i]<kq[j] then begin
tmp:=kq[i]; kq[i]:=kq[j]; kq[j]:=tmp; end;
for i:=1 to n write(kq[i]:3); readln;
end
Bài 2: Viết chương trình
a) Nhập vào số nguyên N > 0, N < người dùng nhập lại (1.5 đ) b) Nhập giá trị cho dãy số nguyên Z1 , Z2 , Z3 , …,ZN (0.5 đ)
c) Xuất hình phần tử khơng chia hết cho dãy Z (1.5 đ)
Ví Dụ:
N = Z:
Các phần tử không chia hết cho 3: Program Bai2;
var z: array[1 100] of integer; n,i: integer;
begin repeat
write('Nhap n > 0: '); readln(n);
until (n>0);
(3)begin
write('z[',i,']= '); readln(z[i]); end;
writeln('Cac phan tu khong chia he cho 3'); for i:=1 to n
if (z[i] mod <> 0) then write(z[i]:5);
readln; end
Bài 3: Viết chương trình nhập vào chuỗi họ tên thí sinh xuất hình chuỗi họ tên chạy hình theo chiều ngang ấn phím dừng
(nhập xuất chuỗi: đ) (chạy chữ: đ)
( ấn phím dừng: đ)
Ví dụ:
Ho va Ten: Tran Bang Tam
Tran Bang Tam Program Bai3;
uses crt; var str: string; i: integer; dung:boolean; begin
textbackground(1); clrscr;
write('Nhap Ho va Ten: '); readln(str);
textcolor(14); dung:=false; while true
(4)begin
gotoxy(i,10); write(str); delay(1000); clrscr;
dung:=keypressed; if dung then
exit; end; end