Câu 1: Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình. Với N là điểm kiểm tra nhập từ bàn phím(sử dụng biến mảng) Câu 2: Hãy tìm hiểu những thuật toán sau đây và cho biết khi thức hiện thuật toán máy tính sẽ thức hiện bao nhiêu vòng lặp. Khi kết thúc giá trị S bằng bao nhiêu? viết chương trình pascal thực hiện các thuật toán đó B1: S ←8; x ←0.5 B2: nếu s<=5.2, chuyển tới bước 4 B3: S ←S-x và quay lại bước 2 B4: thông báo S và kết thúc thuật toán.

Câu 1 :

programbai1;

var a:array[1..100] ò logint;

i,n:logint;

begin

{ Thu tu hoc sinh duoc viet theo a[..]}

repeat

write('N= ');

readln(n);

until n>0;

for i:=1 to n do

begin

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

readln9a[i]);

end;

write('Diem cua ',n,' hoc sinh la ')

for i:=1 to n do

write(a[i],' ' );

readln;

end;

Câu 2 :

Thuật toán 1:

Máy tính sẽ thực hiện 10 vòng lặp, khi kết thúc thuật toán giá trị của S=0.5

Đoạn chương trình Pascal tương ứng :

S:=10; x=0.5;

While S > 5.2 do

S:= S - x;

Writenl(S);

Thuật toán 2 :

Máy tính sẽ không thực hiện vòng lặp nào đó do điều kiện không thỏa mãn, khi kết thúc thuật toán giá trị của S = 10

Đoạn chương trình Pascal tương ứng :

S:= 10; n:=0;

While S < 10 do

Begin 

n:= n + 3

S:= S - n

End;

Writeln(S);