1C

2C

3B

4c

5D

6D

7D

8A

9A

10C

Bài 1

program lapphuong;

uses crt;

var m,n,k:integer;

begin

clrscr;

write('Nhap so m: ');

readln(m);

write('Nhap so n: ');

readln(n);

write('Nhap so k: ');

readln(k);

if m<0 then writeln('Vi ',m,'<0 nen lap phuong cua ',m,' la: ',m*m*m);

if n<0 then writeln('Vi 'n,'<0 nen lap phuong cua ',n,' la: ',n*n*n);

if k<0 then writeln('Vi ',k,'<0 nen lap phuong cua ',k,' la: ',k*k*k);

readln

end.

bài 2

program tinhtong;

uses crt;

var i,ninteger;

      t:real;

begin

clrscr;

write('Nhap n: ');

readln(n);

t:=0;

for i:=1 to n do

  t:=t+1/i;

write('Tong la: ',t:2:3);

readln

end.

Câu 1 :

- Công thức tính diện tích hình tròn : R² . pi

⇒ Đáp án : C. S := R * R * pi;

Câu 2 :

- 12,345 không là một đối số

- Sai dấu phẩy giữa phần nguyên và thập phân

⇒ Đáp án : C. 12,345

Câu 3 :

- Khai báo thư viện : uses

- Khai báo hằng : const

- Khai báo biến : var

- Khai báo tên chương trình : program

⇒ Đáp án : B. Khai báo thư viện

Câu 4 :

- Hằng là đại lương lưu trữ giá trị, giá trị không đổi trong quá trình thực hiện chương trình

⇒ Đáp án : C. Đại lượng không đổi

Câu 5 :

- 1hoten là tên sai, tên đúng không bắt đầu chữ số

⇒ Đáp án : D. 1hoten

Câu 6 :

- Máy tính chỉ có thể hiểu trực tiếp ngôn ngữ máy

⇒ Đáp án : C. Dịch ngôn ngữ bậc cao ra ngôn ngữ máy

Câu 7 :

- Nếu không có thân chương trình, máy tính không thể làm việc

⇒ Đáp án : D. Phần thân chương trình có thể có hoặc không

Câu 8 :

- Giá trị biến a = 5

- 'Ket qua la' nằm trong dấu nháy đơn, in xâu Ket qua la

- a không nằm trong dấu nháy đơn, in giá trị biến a

⇒ Đáp án : A. Ket qua la 5

Câu 9 :

⇒ Đáp án B. Longint

Câu 10 :

- Trước khi sử dụng biến đều phải khai bái

- Tên phải đặt tuân theo quy tắc đặt tên trong Pascal

- Có giá trị thay đổi trong quá trình thực hiện chương trình

⇒ Đáp án : C. Giá trị có thể đổi

Câu 1 :

uses crt;

var m, n, k : integer;

begin

clrscr;

write('Nhap ba so m, n, k : '); readln(m, n, k);

if m < 0 then writeln('Lap phuong cua m = ', sqr(m) * m);

if n < 0 then writeln('Lap phuong cua n = ', sqr(n) * n);

if k < 0 then writeln('Lap phuong cua k = ', sqr(k) * k);

readln

end.

Câu 2 :

uses crt;

var i, n : integer; S : byte;

begin

clrscr;

write('Nhap so n : '); readln(n);

S := 0; for i := 1 to n do S := S + 1 / i;

write('S = ', S : 2 : 2);

readln

end.