Giải bài tập Tin học 11 Bài tập và thực hành 3 VnDoc com Thư viện Đề thi Trắc nghiệm Tài liệu học tập miễn phí Trang chủ https //vndoc com/ | Email hỗ trợ hotro@vndoc com | Hotline 024 2242 6188 Giải[.]
Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Giải tập Tin học 11: Bài tập thực hành Mục đích, yêu cầu + Nâng cao kĩ sử dụng số câu lệnh số kiểu liệu thông qua việc tìm hiểu, chạy thử chương trình có sẵn; + Biết giải số tốn tính tốn, tìm kiếm đơn giản máy tính Nội dung Bài (trang 63 sgk Tin 11): Tạo mảng A gồn n (n then posi:=posi+1 else neg:=neg+1; writeln(posi:4,neg:4); readln end Bài (trang 64 sgk Tin học 11): Viết chương trình tìm phần tử có giá trị lớn mảng đưa hình số giá trị phần tử tìm Nếu có nhiều phần tử có giá trị lớn đưa phần tử có số nhỏ a) Hãy tìm hiểu chương trình sau đây: program MaxElement; uses crt; const nmax=100; type MyArray=array[1 nmax] of integer; var A:MyArray; n,i,j:integer; begin clrscr; write('Nhap so luong phan tu cua day so N='); readln(N); for i:=1 to N begin write('phan tu thu ',i,' ='); readln(A[i]); end; j:=1; for i:=2 to n if A[i] > A[j] then j:=i; write('Chi so : ',j,'Gia tri: ',A[j]:4); Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí end readln Kết quả: b) Chỉnh sửa chương trình để đưa số phần tử có giá trị lớn program MaxElement; uses crt; const nmax=100; type MyArray=array[1 nmax] of integer; var A:MyArray; n,i,j:integer; begin clrscr; write('Nhap so luong phan tu cua day so N='); readln(N); for i:=1 to N begin write('phan tu thu ',i,' ='); readln(A[i]); end; j:=1; for i:=2 to n if A[i] > A[j] then j:=i; for i:=1 to n if A[i]=A[j] then write(i:4); readln end Kết quả: Đưa số phần tử có giá trị lớn Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Xem thêm tại: https://vndoc.com/tai-lieu-hoc-tap-lop-11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 ... MyArray=array[1 nmax] of integer; var A:MyArray; s,n,i,k,posi,neg:integer; begin clrscr; randomize; write(''Nhap N=''); readln(n); for i:=1 to n A[i]:=random (30 1)-random (30 1); for i:=1 to n write(A[i]:5);... Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Xem thêm tại: https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188... A[i] > then posi:=posi+1 else neg:=neg+1; writeln(posi:4,neg:4); readln end Bài (trang 64 sgk Tin học 11) : Viết chương trình tìm phần tử có giá trị lớn mảng đưa hình số giá trị phần tử tìm Nếu có