Các em nhập đoạn chương trình vào và thực hiện kiểm tra lỗi và thực hiện xem kết quả.. program vidu1[r]
Trang 1BÀI THỰC HÀNH DÃY SỐ
Bài 1: Nhập vào một dãy số nguyên, tìm số nhỏ nhất trong dãy?
HƯỚNG DẪN: Min:=A[1]; Duyệt từ đầu dãy đến cuối dãy, so sánh các phần tử với Min, nếu A[i]<min thì min:=A[i];
Giải quyết bài toán: Các em hoàn thành bằng cách thêm những phần còn thiếu theo dữ liệu bên dưới:
Var A:array[1 200] of integer;
I, n: byte; min:integer;
Begin
write(‘Nhap so phan tu cua mang: ’); readln(n);
write(‘Nhap gia tri cho tung phan tu: ’);
for i:=1 to n do
begin
write(‘Phan tu thu ’ , i , ‘ la: ’); {write(‘A[‘,I,’]=’);}
readln(A[i]);
end;
min:=A[1]; For i:=2 to n do
if A[i]<min then min:=A[i];
write(‘So nho nhat trong mang :’,min);
readln;
END.
Bài 2: Nhập vào một dãy số nguyên, tìm số lớn nhất và vị trí của nó trong dãy?
Đoạn chương trình còn có một số lỗi thường gặp Các em nhập đoạn chương trình vào và thực hiện kiểm tra lỗi và thực hiện xem kết quả.
program vidu1
var arrayint:array[1 250] of integer
n,i,mi:integer
begi
writeln('nhap vao so phan tu ')
readln(n)
for i:=1 to n do
begin
Trang 2writeln('phan tu thu ',i,'=')
readln(arrayint[i])
end
mi:=1
for i:=2 to n do
begin
if arrayint[i]>arrayint[mi]
then
mi:=i
end
writeln('gia tri lon nhat la ',arrayint[mi],' chi so la ',mi) readln
end