- Học sinh tự tạo chương trình theo Hình 2.

- Chương trình đưa ra kết quả sai khi giá trị a, b bằng nhau.

- Gỡ lỗi: Thay đổi đoạn chương trình so sánh hai số a, b với 3 trường hợp như sau

Theo em khi thực hiện chương trình này không ra kết quả như mong muốn vì khi khởi tạo giá trị ban đầu cho biến S là 0 trong điều kiện lặp khiến cho giá trị của S trở lại thành 0 sau mỗi lần lặp. Điều này dẫn đến kết quả sai.

Chương trình 1 có lỗi cú pháp, câu lệnh 2, 3 không khớp nối với câu lệnh 1, 4.

Chương trình 2 có lỗi logic, a = b thuộc trường hợp a > b sai nên chương trình đưa ra thông báo sai khi nhập hai số a, b bằng nhau.

a) Học sinh tự thực hiện tạo chương trình như Hình 4.

b) Chạy thử với bộ dữ liệu thử: a = 0, b = 2 và a = 0, b = 0.

c) Gỡ lỗi:

Test 1: 

a=2; b=4

=>-2

Test 2: 

a=0; b=0;

=>Vô số nghiệm

Tạo chương trình như sau:

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

var a:array[1..10]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

*Viết chương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.