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
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 mả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ả.
Lời giải 1 :
uses crt;
var n:byte;
a:array[-1..21] of longint;
procedure input(var a:array of longint;var n:byte);
var i:byte;
begin
readln(n);
for i:=0 to n-1 do
read(a[i]);
end;
procedure output(a:array of longint;n:byte);
var i:byte;
s:longint;
begin
s:=0;
for i:=0 to n-1 do
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln(#13#10,s);
end;
begin
clrscr;
input(a,n);
output(a,n);
readln;readln
end.
Thảo luận
Lời giải 2 :
program Hello;
uses crt;
var a:array[0..19] of longint;
i,n:byte;
procedure nhap(var a:array of longint; var n:byte);
begin
write('N = '); readln(n); n:= n - 1;
for i:= 0 to n do read(a[i]);
end;
procedure xuat;
var s: longint;
begin
s:= 0;
for i:= 0 to n do
begin
write(a[i], ' ');
s:= s + a[i];
end;
writeln;
writeln('Tong = ', s);
readln;
readln;
end;
begin
nhap(a,n);
xuat;
end.
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK