C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn [ n được nhập tử bàn phím ]
C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó
Xem chi tiết1. Pascal Nhập xuất và tính tổng các phần tử trong mảng
Nhập xuất và tính tổng các phần tử trong mảng.
Ví dụ: A: 1 5 6 7 4
Kết quả: Tong S = 23
Hướng dẫn: Để 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
+ Khai báo và khởi tạo toång S là 0.
+ 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.
+ 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.
+ Gọi hàm nhập mảng để nhập mảng A, với N phần tử.
+ Gọi hàm xuất mảng A, với N phần tử.
+ 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[……]
+ Gọi hàm Readln[ ] trước khi kết thúc để dừng lại xem kết quả.
Chương trình:
2. Một số bài tập tính tổng với mảng 1 chiều
Bài toán 1: Nhập vào mảng 1 chiều từ bàn phím chỉ chứa được 100 phần tử có giá trị kiểu nguyên. Tính tổng các giá trị là số chẵn sau đó in ra màn hình.
Bài tập này mình cũng đã hướng dẫn trong mảng 1 chiều về cách tìm số chẵn. Cách làm như sau, xây dựng Function TongChan[Var A:Arr100;Var N:Integer]:Integer; Trong đó A:Arr100 là mảng 1 chiều có kích thước 100 phần tử và N là số phần tử của mảng mà bạn đưa vào.
1. Tạo biến S:=0 để lưu tổng chẵn ban đầu bằng 0.
2. Duyệt từ phần tử A[i] đầu tiên đến A[N] kiểm tra nếu chia dư cho 2 bằng 0 => chẵn thì S:=S+A[i].
Đơn giản chỉ có vậy thôi và dưới đây là Function của bài tập này.
Nếu như bạn muốn tính tổng các số lẻ có trong mảng 1 chiều chỉ cần sửa đoạn If[A[i] mod 2 = 0] then thành If[A[i] mod 2 = 1] then là sẽ thành hàm tính tổng các số lẻ.
Bài toán 2: Cho người dùng nhập mảng 1 chiều biết mảng chỉ chứa được 100 phần tử số nguyên dương. Hãy tính tổng của mảng đều chia hết cho 4 và in kết quả ra màn hình.
Bài tập tương tự như bài ở trên các bạn chỉ cần thay đoạn If[A[i] mod 2 = 0] then thành If[A[i] mod 4 = 0] then là đã có thể sử dụng lại chương trình.
Nếu như có các bài toán tương tự bắt chúng ta tính tổng của các số chia hết cho 3, cho 5, cho 6 cho 7,… thì chúng ta làm sao đây? không thể ngồi viết hàng loạt các chương trình con để tính cho từng bài tập được mà các bạn chỉ cần tạo ra một chương trình con duy nhất có thể sử dụng cho tất cả các trường hợp như sau.
Viết chương trình tổng các phần tử của mảng,tính tổng lẻ, tổng chẵn , giá trị trung bình, của các phần tử mảng, giá trị trung bình các số chẵn, giá trị trung bình các số lẻ.
YOMEDIA
bởi Phạm Hoàng Thị Trà Giang
ADMICRO/lession_isads=0
Câu trả lời [1]
program Mang;
uses crt;
var a:array[1..50] of integer;
i,n,Sle,Schan,TB:integer;
begin
Schan:=0;Sle:=0;
writeln['Nhap vao so phan tu:'];
readln[n];
for i:=1 to n do
begin
writeln['a[',i,']='];
readln[a[i]];
end;
for i:=1 to n do
begin
if a[i] mod 2=1 then Sle:=Sle+a[i];
if a[i] mod 2=0 then Schan:=Schan+a[i]
TB:=a[i]/n;
end;
writeln['Tong cac so chan la:',Schan];
writeln['Tong cac so le la:',Sle];
writeln['Gia tri TB la:',TB];
readln
end.
bởi Nguyễn Đức
26/10/2018Like [0] Báo cáo sai phạm
Cách tích điểm HP
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Gửi câu trả lời Hủy
Các câu hỏi mới
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:- Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ [10 ≤ A, M ≤ 103].
- Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.
Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:
- Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát [mỗi số cách nhau một ký tự trắng].
- Hàng 2: lần lượt là số áo, số mũ còn thừa.
23/10/2022 | 0 Trả lời
Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó
Giúp em v ạ em sắp thi
27/10/2022 | 1 Trả lời
[0101...] là cơ sở để tạo ra ngôn ngữ gì?
30/10/2022 | 1 Trả lời
UREKA_VIDEO-IN_IMAGE
Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?
30/10/2022 | 1 Trả lời
Máy tính thực hiện một công việc thông qua yếu tố nào?
30/10/2022 | 1 Trả lời
Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?
30/10/2022 | 1 Trả lời
Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.
30/10/2022 | 1 Trả lời
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng[khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng [khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
31/10/2022 | 0 Trả lời
Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?
31/10/2022 | 1 Trả lời
Từ khoá của một ngôn ngữ lập trình là gì?
31/10/2022 | 1 Trả lời
Uses là từ khóa để khai báo yếu tố gì?
31/10/2022 | 1 Trả lời
Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?
01/11/2022 | 1 Trả lời
Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.
viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b