hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán này, máy tính sẽ thực hiện bao nhiêu vòng lặp. Khi kết thúc giá trị S bằng bao nhiêu , viết pt pascal thể hiện thuật toán đó. B1: S<- 10, n<-10 B2: Nếu S > hoặc = 10, chuyển tới bước 4. B3: n <- n+3, S<-S-n quay lại bước 2. B4: Thông báo S và kết thúc thuật toán. Giúp mình với, mình cần gấp lắm. Cảm ơn các bạn nhiều nha!!!
2 câu trả lời
vòng lặp không thực hiền lần nào
nên giá trị S không thay đổi(s=10)
Chương trình:
program oken;
uses crt;
var n,s: byte;
begin
clrscr;
s:=10; n:=10;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
writeln('Gia tri cua S: ',s);
readln;
end.
- Giá trị ban đầu của S = 10, n = 10
- S = 10 ⇒ Điều kiện ở Bước 2 trả về giá trị đúng
- Điều kiện đúng, chuyển tới bước 4
- Thông báo giá trị S rồi kết thúc
=> Máy tính thực hiện 0 vòng lặp
=> Khi kết thúc giá trị S bằng 10
* Viết chương trình :
uses crt;
var s, n : integer;
begin
clrscr;
s := 10; n := 10;
while s < 10 do
begin
n := n + 3;
s := s - n;
end;
write(s);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
