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ần tử là 246357
2 câu trả lời
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.
Để 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ị Ai 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ị Ai 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 Ai 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ả.
