uses crt;var n,i,t:longint;beginclrscr;write['n=']; readln[n];t:=0;for i:=1 to n dot:=t+i;writeln['tong cua cac so tu 1 den ',n,' la: ',t];readln;
end.
3 trả lời
Chọn đáp án đúng nhất [Tin học - Lớp 4]
1 trả lời
Chọn đáp án đúng nhất [Tin học - Lớp 4]
1 trả lời
Chọn đáp án đúng nhất [Tin học - Lớp 4]
1 trả lời
Tính [Tin học - Đại học]
1 trả lời
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Create an account
Bài toán số 1: Tính tổng của các số tự nhiên từ 1 đến N. S = 1 + 2 + … + N Ví dụ : N = 5, S = 1 + 2 + 3 + 4 + 5 = 15 Yêu cầu: Input: N, là số tự nhiên bất kỳ. Output: S, là tổng của các số từ 1 đến N Bài toán được thực hiện qua 3 bước cụ thể như sau: - Thông báo nhập liệu, và nhập dữ liệu vào cho N - Tiến hành tính tổng S: - Xuất kết quả của tổng S ra màn hình. Hướng dẫn:
Chương trình:
Program TinhTong; Uses crt; Var S,i,n:Integer; // Khai bao bien su dung BEGIN Write[ ‘ Nhap so n:’ ]; // Thong bao nhap lieu Readln[ n ]; // Nhap gtri N, [voi &N la lay d/c bien N] S: = 0; // Khoi gan gia tri ban dau cho S For i:=1 to n do // Lap voi moi i co gia tri tu 1 den N S:=S + i; // Tinh tong cong don i vao S Writeln[ ‘Tong = ’, S]; // Xuat ket qua tong S ra man hinh Readln; END.Các phiên bản khác nhau của bài toán là:
- Tính tổng [với giả sử N là số lẻ]
- Tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bằng N.
- Tính tổng các số tự nhiên chia hết cho 5 như 5, 10, 15, 20, 25, 30….N [N chia hết cho 5]
Hướng dẫn:
- Điều chỉnh bước lặp cho phù hợp.
- Trước khi cộng dồn giá trị của i vào tổng S, phải kiểm tra điều kiện giá trị của i có thỏa mãn điều kiện bài toán hay không.
Cụ thể là:
For i:= 1 to n do // Lap voi moi i co gia tri tu 1 den N
S:= S + i / [i+1]; // Tinh tong cong don i/[i+1] vao S
[Luu y, truong hop nay bien S phai duoc khai bao kieu du lieu la so thuc Real ]
For i:=1 to n do // Lap voi moi i co gia tri tu 1 den N
if [ i mod 2 == 1] // Kiem tra i co’ phai la so le hay khong
S := S + i; // Dung ==> Tinh tong cong don i vao S
for i:=1 to n do // Lap voi moi i co gia tri tu 1 den N
if [ i % 5 == 0] // Kiem tra i co’ phai la 5, 10, 15… hay khong
S := S + i; // Dung ==>Tinh tong cong don i vao S
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình tính tổng các số từ 1 đến n
Các câu hỏi tương tự