Lập trình Pascal: Tính tổng các số chẵn giữa hai số
2020-04-20T00:42:20-04:00
2020-04-20T00:42:20-04:00
Hướng dẫn lập trình Pascal: Nhập vào 2 số nguyên a và b (giả sử a<b). Tính và đưa ra màn hình tổng của tất cả các số chẵn không lớn hơn b và không nhỏ hơn a.
Lập trình Pascal, tính tổng số chẵn
https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg
Bài Kiểm Tra
https://baikiemtra.com/uploads/bai-kiem-tra-logo.png
Thứ hai - 20/04/2020 00:04
Hướng dẫn lập trình Pascal: Nhập vào 2 số nguyên a và b (giả sử a<b). Tính và đưa ra màn hình tổng của tất cả các số chẵn không lớn hơn b và không nhỏ hơn a.
Input: a, b (a<b)
Output: Tổng của tất cả các số chẵn không lớn hơn b và không nhỏ hơn a.
Thuật toán:
B1: Nhập hai số nguyên a, b (a<b)
B2: S ← 0; i:=a;
B3: Nếu i mod 2 = 0 thì S := S + i; i:= i + 1;
B4: Nếu i<=b thì quay lại B3
B5: Viết ra màn hình tổng S, kết thúc.
Mô phỏng thuật toán với a = 2; b =6
i |
i<=b |
i mod 2 = 0 |
S |
2 |
T |
T |
2 |
3 |
T |
F |
2 |
4 |
T |
T |
6 |
5 |
T |
F |
6 |
6 |
T |
T |
12 |
7 |
F |
|
|
Cách 1: Dùng vòng lặp While
Program TongSoChan;
Uses crt;
Var a,b, S, i: integer;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH TONG CAC SO CHAN GIUA A VA B');
Write('Nhap vao so a: '); readln(a);
Write('Nhap vao so b: '); readln(b);
S:=0;
i:=a;
while i<=b do
Begin
If i mod 2 = 0 then S:=S+i;
i:=i+1;
End;
Writeln('Tong cac so chan giua ',a,' va ',b,' la: ', S);
Readln;
End.
Cách 2: Dùng vòng lặp For
Program TongSoChan;
Uses crt;
Var a,b, S, i: integer;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH TONG CAC SO CHAN GIUA A VA B');
Write('Nhap vao so a: '); readln(a);
Write('Nhap vao so b: '); readln(b);
S:=0;
For i:=a to b do
If i mod 2 = 0 then S:=S+i;
Writeln('Tong cac so chan giua ',a,' va ',b,' la: ', S);
Readln;
End.