Viết chương trình tính tổng trong pascal
Cấu trúc điều khiểnBài toán số 1: Tính tổng của các số tự nhiên từ 1 đến N. Show 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 Hướng dẫ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. 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à:
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
Home/ Môn học/Tin học/Viết chương trình Pascal tính tổng S=1+2+3+…+n ( Bằng câu lệnh while…do). Viết chương trình Pascal tính tổng S=1+2+3+…+n ( Bằng câu lệnh For…d Question Viết chương trình Pascal tính tổng S=1+2+3+…+n ( Bằng câu lệnh while…do). in progress 0 Tin học Isabelle 5 tháng 2021-07-20T22:34:07+00:00
2021-07-20T22:34:07+00:00 2 Answers 421 views 0 Answers ( )
Leave an answerIsabelle
|
