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);