Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100

1. 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.

Chương trình đây đủ cho các bạn

Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên. Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N. Viết chương trình tổng các số chẵn từ 1 đến N. Viết chương trình tính N giai thừa. Viết chương kiểm tra xem N có phải số nguyên tố hay không. Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N. Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím. Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0. Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}

Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
Viết chương trình tìm ước chung lớn nhất của hai số nguyên. Hai số nguyên tố cùng nhau là hai số có ước chung lớn nhất là 1. Viết chương trình nhập vào hai số và kiểm tra xem chúng có phải hai số nguyên tố cùng nhau hay không? Viết chương trình tính tổng S = 1 + 1.2 + 1.2.3 + . . . + 1.2.3... N {\displaystyle S=1+1.2+1.2.3+...+1.2.3...N}
Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
Viết chương trình đếm các chữ số chẵn của nguyên N. Viết chương trình nhập vào số nguyên N và tìm số nguyên m lớn nhất sao cho 1 + 2 + 3 + . . . + m < N {\displaystyle 1+2+3+...+m
Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
Có 3 loại tờ tiền 1000 đồng, 2000 đồng và 5000 đồng và cần một số tiền A không quá 50000 đồng. Viết chương trình nhập vào số A (tròn nghìn) và in ra tất cả phương án có thể. Cho bài toán cổ sau: Vừa gà vừa chó, bó lại cho tròn, ba mươi sáu con, một trăm chân chẵn. Viết chương trình tìm số con mỗi loại. Cho bài toán cổ sau:Trâu đứng ăn năm. Trâu nằm ăn ba. Lụ khụ trâu già, ba con một bó. Trăm trâu ăn cỏ. Trăm bó no nê. Hỏi đến giảng đề, ngô nghê như điếc. Viết chương trình tìm số con mỗi loại. Cho dãy số 1 ; 2 ; 3 ; 4 ; . . . ; N {\displaystyle 1;2;3;4;...;N}
Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
tạo thành S = 1 − 2 + 3 − 4 + . . . N {\displaystyle S=1-2+3-4+...N}
Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
. Viết chương trình nhập số nguyên N và tính S. Một công ty quyết định sản xuất ti vi có chính xác N điểm ảnh, biết N điểm ảnh được tính bằng cách lấy điểm ảnh chiều dài nhân với điểm ảnh chiều rộng. Viết chương trình xác định kích thước của màn hình ti vi sao cho chiều dài và chiều rộng chênh lệnh nhau ít nhất (có thể bằng nhau). Viết chương trình tính S = 2 + 2 + 2 + . . . 2 + 2 {\displaystyle S={\sqrt {2+{\sqrt {2+{\sqrt {2+...{\sqrt {2+{\sqrt {2}}}}}}}}}}}
Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100
với N dấu căn Một tờ giấy có độ dày X mi-li-mét. Viết chương trình tính xem phải gấp đôi tờ giấy bao nhiêu lần để đạt được tối thiểu độ dày là Y mét. Viết chương trình chuyển đổi một số từ hệ thập phân sang hệ nhị phân. Viết chương trình nhập số năm hiện tại, tuổi hai cha con (cha lớn hơn con ít nhất 20 tuổi, nếu nhập sai yêu cầu nhập lại) và trả lời câu hỏi: "Vào năm thì tuổi cha gấp đôi tuổi con?".

Viết chương trình in ra màn hình bảng cửu chương N.

Viết chương trình in ra N hàng của tam giác Pascal.

Viết chương trình in ra tất cả các ký tự có mã ASCII từ M đến N.

Cho 4 chữ số 1, 2, 3 và 4. Có bao nhiêu số có 3 chữ số tạo thành từ 4 chữ số 1, 2, 3, 4 và đó là những số nào, viết chương trình thực hiện yêu cầu trên.

Gửi tiết kiệm ngân hàng số tiền X đồng với lãi suất N %/tháng. Để nhận được số tiền ít nhất là B đồng thì phải gửi tối thiểu bao nhiêu tháng. Viết chương trình giải quyết bài toán trên trong trường hợp không tính lãi kép.

Tất cả Lớp 12 Lớp 11 Lớp 10 Lớp 9 Lớp 8 Lớp 7 Lớp 6 Lớp 5 Lớp 4 Lớp 3 Lớp 2 Lớp 1

Viết chương trình tính tổng các số nhập từ bàn phím cho đến khi nhập vào 100


2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím.Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.

Bạn đang xem: Viết chương trình tính tổng các số nguyên được nhập từ bàn phím cho đến khi nhập số 0 thì dừng.