Đáp án đề thi tin học trẻ huyện Dĩ An 2009 - THCS

Bài 3: Viết chương trình nhập vào chuỗi họ tên thí sinh và xuất ra màn hình chuỗi họ tên chạy trên màn hình theo chiều ngang cho đến khi ấn một phím bất kỳ thì dừng nhập xuất chuỗi: 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 và 2 dãy số nguyên: (1 đ)

A1 , A2 , A3 , …, AN

B1 , B2 , B3 , …, BN

b) Cộng từng phần tử tương ứng của 2 dãy trên vào dãy: (1 đ)

KQ1 , KQ2 , KQ3 , …,KQ n

c) Xuất giá trị của dãy KQ ra màn hình theo thứ tự giảm dần (1.5 đ)

Ví dụ:

Dãy A: 3 5 8 2 6 Dãy B: 1 2 9 5 3 Xuất ra màn hình dãy KQ: 17 9 7 7 4

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 do

begin

write('a[',i,']= ');

readln(a[i]);

end;

writeln('Nhap gia tri cho mang b');

for i:=1 to n do

begin

write('b[',i,']= ');

KQ: 4 7 17 7 9

end;

for i:=1 to n do

kq[i]:=a[i]+b[i];

for i:=1 to n-1 do

for j:=i+1 to n do

if kq[i]<kq[j] then

begin

tmp:=kq[i];

kq[i]:=kq[j];

kq[j]:=tmp;

end;

for i:=1 to n do

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ếu N < 0 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 ra màn hình các phần tử không chia hết cho 3 của dãy Z (1.5 đ)

Ví Dụ:

N = 3 Z: 5 8 3

 Các phần tử không chia hết cho 3: 5 8

Program Bai2;

var z: array[1 100] of integer;

n,i: integer;

begin

repeat

write('Nhap n > 0: ');

readln(n);

until (n>0);

writeln('Nhap gia tri cho day so nguyen:');

begin

write('z[',i,']= ');

readln(z[i]);

end;

writeln('Cac phan tu khong chia he cho 3');

for i:=1 to n do

if (z[i] mod 3 <> 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 và xuất ra màn hình

chuỗi họ tên chạy trên màn hình theo chiều ngang cho đến khi ấn một phím bất

kỳ thì dừng

(nhập xuất chuỗi: 1 đ)

(chạy chữ: 1 đ)

( ấn phím bất kỳ dừng: 1 đ)

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 do

begin

gotoxy(i,10);

write(str);

delay(1000);

clrscr;

dung:=keypressed;

if dung then

exit;

end;

end

Hết