B1: T<-0; i<-1;
B2: nếu i>5 thì chuyển đến bước 4
B3: T<-T+i; i<-i+1 quay lại bước 3
B4: đưa ra T và kết thúc
Viết chương trình Pascal thể hiện thuật toán đó
Quảng cáo
2 câu trả lời 176
var
T, i: integer;
begin
T := 0;
i := 1;
while i <= 5 do
begin
T := T + i;
i := i + 1;
end;
writeln('T = ', T);
end.
Chương trình Pascal thể hiện thuật toán trên như sau:
```
program TinhTong;
var
T, i: integer;
begin
T := 0;
i := 1;
while i <= 5 do
begin
T := T + i;
i := i + 1;
end;
writeln('Tong la: ', T);
end.
```
Giải thích:
- Dòng 2: khai báo biến T và i kiểu integer.
- Dòng 4: gán giá trị 0 cho biến T.
- Dòng 5: gán giá trị 1 cho biến i.
- Dòng 6-9: sử dụng vòng lặp while để tính tổng các số từ 1 đến 5. Nếu i > 5 thì thoát khỏi vòng lặp.
- Dòng 7: cộng giá trị của i vào biến T.
- Dòng 8: tăng giá trị của i lên 1.
- Dòng 10: đưa ra kết quả tổng T.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45509
-
Hỏi từ APP VIETJACK28401
-
۶ৎ
235 điểm
-
$\color{blue}{\mathcal{ NoName}}$
195 điểm
-
★꧁☁︎જ⁀➴✞༺S͜͡øN͜͡G͜͡ ༒︎ N͜͡G͜͡ư༻✞જ⁀➴☁︎꧂★
70 điểm
-
Đắm chìm Moscow. 70 điểm
-
`misu`
60 điểm
-
bi yeuu
50 điểm
-
thỏ 😡🍀🥑💦
45 điểm
-
Sinestrea k12
45 điểm
-
hoàng tuấn khang
30 điểm
-
Thịnh Quốc 25 điểm
-
강아지들
25 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11116
-
4 năm trước10526
-
4 năm trước9185
-
4 năm trước9374
-
4 năm trước8935
