Bài 6 trang 79 SGK Tin học 11


Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 .. có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau:

Đề bài

Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 ...AN có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau:

a) Số lượng số chẵn và số lượng số lẻ.

b) Số lượng số nguyên tố trong dãy.

Lời giải chi tiết

Đối với với bài toán này thì phần kiểm tra số nguyên dương N (N  100) và dãy A gồn N số nguyên A1, A2 ... AN có giá trị tuyệt đối không lớn hơn 1000 giống như bài tập 5 đã nêu ờ trên. Chúng ta chỉ cần giải quyết thêm 2 vấn đề nữa, đó là đếm số lượng số chẵn, số lẻ và số lượng số nguyên tố trong dãy.

Chương trình :

progran baitap6_chuong4;

uses crt;

var                 

array[1..100] of integer;

if: boolean;

N, i„ l: integer; so_nt, so_chan: integer;

begin

for i := -1000 to 1000 do if i>0 then NT:= false;

so_chan:=0; so_nt:=0;

{Nhap vao)

repeat

write('So phan tu cua day A (N<=100), N= *);

readln(N);

until (N>0) and

(N<=100);

 for i:= 1 to N do

begin

{kiem tra cac phan tu cua day khi nhap vao}

repeat

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

if (a[i]>1000) or (a[i]<-1000) then

write('Moi nhap lai ");

until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then

begin

u: = 2 ;

while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;

end,

end;

{In ra man hinh}

writeln('So luong so chan:',so_chan);

writeln('So luong so le:',N - so_chan);

writeln(’So luong so nguyen tro:', so_nt);

readln

End.

Khi chạy chương trình, ta lần lượt nhập các phần tử của dãy A:

 Với N = 3 và các phần tử được nhập vào theo thứ tự:

A[1]=5

A[2]=7

A[3]=900

thì chương trình đưa ra thông báo:

So luong so chan: 1

So luong so le: 2

So luong so nguyen to: 2

- Với N = 5 và các phần tử được nhập vào theo thứ tự:

A[1]=12

A[2]=3 A[3]=5

A[4]=10 A [5]=11

thì chương trinh đưa ra thông báo:

So luong so chan: 2

So luong so le: 3

So luong so nguyen to: 3

Kết quả của chương trình như hình 63 sau đây:

Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:

A[1] = 12

A[2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3] = 17

A[4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A[6] = 5 A[7] = 350

Kết quả chương trình đưa ra thông báo (Hình 64):

So luong so chan: 4

So Luong so le: 3

So luong so nguyen to: 3

 Loigiaihay.com


Bình chọn:
3.6 trên 5 phiếu
  • Câu 7 trang 79 SGK Tin học 11

    Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Phi-bo-na-xi. Chương trình của bạn thực hiện với giá trị lớn nhất của N là bao nhiêu?

  • Bài 8 trang 79 SGK Tin học 11

    Chương trình sau đây thực hiện những gì?

  • Câu 9 trang 80 SGK Tin học 11

    Cho mảng hai chiều kích thước nxm với các phần tử là những số nguyên. Tìm trong mỗi dòng phần tử lớn nhất rồi đổi chỗ nó với phần tử có chỉ số dòng bằng chỉ số cột.

  • Câu 10 trang 80 SGK Tin học 11

    Viết chương trình nhập vào từ bàn phím xâu kí tự s có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số thập phân xuất hiện trong xâu s. Thông báo kết quả ra màn hình.

  • Câu 11 trang 80 SGK Tin học 11

    Hãy bổ sung thêm chương trình xeploai (ở §13) những lệnh cần thiết để chương trình đưa ra danh sách học sinh xếp loại A.

>> Xem thêm

Tham Gia Group Dành Cho 2K8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí