Giáo viên: Nguyễn Văn Thường
ĐỀ THI VÀ ĐÁP ÁN HỌC SINH GIỎI VĂN HÓA LỚP 8
MÔN TIN HỌC
Bài 1: Viết chương trình tính giá trị của biểu thức:
S = 1 + 1*2 + 1*2*3 + …. +1*2*3*….*n
Với n là một số nguyên dương nhập từ bàn phím.
Chương trình:
PROGRAM BAI_1;
VAR
N,S,I,T:LONGINT;
BEGIN
REPEAT
WRITE('N=');
READLN(N);
UNTIL (N>0);
T:=1;
S:=0;
FOR I:=1 TO N DO
BEGIN
T:=T*I;
S:=S+T;
END;
WRITE('KET QUA LA: ',S);
READLN;
END.
Bài 2: Viết chương trình nhập vào một dãy số từ bàn phím, tìm các số
dương in ra màn hình và tính tổng các số dương đó.
Chương trình:
PROGRAM BAI_2;
VAR
A:ARRAY[1 100]OF REAL;

N,P,S:REAL;
BEGIN
WRITE('BAN KINH N=');
READLN(N);
P:=N*2*PI;
S:=N*N*PI;
WRITELN('CHU VI LA: ',P:0:5);
WRITELN('DIEN TICH LA: ',S:0:5);
READLN;
END.
Bài 4: Đọc ngày, tháng, năm sau đó viết ra màn hình đó là ngày thứ mấy
trong tuần.
Chương trình:
PROGRAM BAI_4;
VAR
THU,NGAY,THANG:BYTE;
NAM,LUU:INTEGER;
BEGIN
WRITELN('NGAY THU MAY TRONG TUAN');
WRITELN(' ');
WRITE('NHAP NGAY: ');
READLN(NGAY);
WRITE('NHAP THANG: ');
READLN(THANG);
WRITE('NHAP NAM: ');
READLN(NAM);
LUU:=NAM;
NAM:=1900 + (NAM MOD 1900);
IF THANG < 3 THEN
BEGIN

WRITELN(' LA NGAY THU SAU');
END;
6: BEGIN
WRITELN('NGAY:',NGAY:3,',THANG:',THANG:3,',NAM:',LUU:5);
WRITELN(' LA NGAY THU BAY');
END;
END;
WRITELN;
READLN;
END.
Môn: Tin học