Viết chương trinh thực hiện nhập vào mảng 1 chiều A gồm N số NguyênSau đó thực hiện (gọi ) chương trình con với bộ tham số tương ứng là ( N=6. Các phầ

0 bình luận về “Viết chương trinh thực hiện nhập vào mảng 1 chiều A gồm N số NguyênSau đó thực hiện (gọi ) chương trình con với bộ tham số tương ứng là ( N=6. Các phầ”

1. program goi_mang;

   uses crt;

   type kmang=array[1..1000] of integer;

   var A:kmang;

         n,i:integer;

   {—Goi—}

   procedure goi(A:kmang; n:integer);

   var j:integer;

   begin

         write(‘Mang la: ‘);

         for j:=1 to n do write(A[j],’ ‘);

   end;

   {—CT-chinh—}

   BEGIN

         clrscr;

         write(‘Nhap N: ‘);   readln(n);

         for i:=1 to n do 

               begin

                     write(‘A[‘,i,’]= ‘);   readln(A[i]);

               end;

         goi(A,n);

         readln;

   end.

   Bình luận

2. Để giải quyết bài toán cần phải đảm bảo các vấn đề:

   –          Nhập mảng, có thể xây dựng thành hàm để đóng gói và sử dụng lại. Các thao tác theo yêu cầu:

   (1) Nhập số N.

   (2) Tiến hành lặp (từ 0 đến N-1) và nhập cho các giá trị A_i trong mảng.

   Lưu ý: N phải được vào truyền theo dạng tham biến (tức là &N)

   –          Xuất mảng. Công việc đơn giản là sử dụng voøng lặp từ 0 đến N-1 để in ra các giá trị A_i cho mảng. Sau đó, Writeln  xuống dòng.

   –          Hàm tính tổng các phần tử cho một mảng A

   o       Khai báo và khởi tạo toång S là 0.

   o       Sử dụng một vòng lặp (từ 0 đến N-1 để duyệt qua tất cả các giá trị Ai) để tính cộng dồn giá trị của A_i vào tổng S.

   –          Viết thân chöông trình chính với nội dung dùng để kiểm tra kết quả thực hiện của hàm.

   o       Khai báo mảng A có tối đa 20 phần tử và biến N chỉ số lượng phần tử của A.

   o       Gọi hàm nhập mảng để nhập mảng A, với N phần tử.

   o       Gọi hàm xuất mảng A, với N phần tử.

   o       In giá trị của tổng các phần tử bằng cách truyền trực tiếp giá trị trả về của việc tính tổng cho Writeln(……)

   o       Gọi hàm Readln( ) trước khi kết thúc  để dừng lại xem kết quả.

   Bình luận