Đang tải... (xem toàn văn)
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]
(1)BÀI THỰC HÀNH DÃY SỐ
Bài 1: Nhập vào dãy số nguyên, tìm số nhỏ dãy?
HƯỚNG DẪN: Min:=A[1]; Duyệt từ đầu dãy đến cuối dãy, so sánh phần tử với Min, A[i]<min min:=A[i];
Giải tốn: Các em hồn thành cách thêm phần cịn thiếu theo 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 mang :’,min); readln;
END.
Bài 2: Nhập vào dãy số nguyên, tìm số lớn vị trí trong dãy?
Đoạn chương trình cịn có số lỗi thường gặp Các em nhập đoạn chương trình vào thực kiểm tra lỗi thực 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)
(2)writeln('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