Những câu hỏi liên quan
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu?
b/. Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S ! 20, n! 1;
B2: Nếu S ≥ 5, chuyển B4.
B3: n ! N + 1, S ! S - n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán.
a: Thuật toán sẽ thực hiện 5 vòng lặp
Kết thúc thì S=0
b: uses crt;
var i,s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while (s>=5) do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
A. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? B. Viết chương trình bằng pascal để mô tả thuật toán đó. B1: S ! 20, n! 1; B2: nếu S>5 hoặc = 5, chuyển b4 B3: n ! N + 1, S ! S - n và quay lại b2 B4: thông báo S và kết thúc thuật toán.
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>=5 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
a/. Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? b/. Viết chương trình bằng Pascal để mô tả thuật toán đó. B1: S ← 20, n←1; B2: Nếu S ≥ 5, chuyển B4. B3: n ←N + 1, S ← S - n và quay lại B2. B4: Thông báo S và kết thúc thuật toán.
Thuật toán sẽ chạy 5 vòng lặp
Kết thúc thì S=0
Đúng 0
Bình luận (0)
Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của S bằng bao nhiêu? Viết chương trình bằng Pascal để mô tả thuật toán đó.
B1: S ! 20, n! 1;
B2: Nếu S ≥ 5, chuyển B4.
B3: n ! N + 1, S ! S - n và quay lại B2.
B4: Thông báo S và kết thúc thuật toán.
Giúp mình với ;-;
em hãy cho biết thuật toán máy tính thực hiện bn vòng lặp? kết thúc của S bằng bn ? viết chương trình bằng pascal để mô tả thuật toán
B1:S<-20,N<-1,
B2:nếu S<HOẶC =6 CHUYỂN B4,
B3 N<-N+1, S<-S-N VÀ QUAY LẠI B2,
B4 THÔNG BÁO S VÀ KẾT THÚC THUẬT TOÁN
mn chỉ em với e cần gấp ạ
*Chương trình
Program nnn;
Uses crt;
Var S, N:real;
Begin
Write ('Nhap N');
Readln (N);
S:=20;
N:=1
If (S>=6) then N:=N+1 and S:=-S-N else write ('Ket qua S',S);
Readln;
End.
Đúng 0
Bình luận (1)
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>6 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp ? Kết thúc giá trị của S bằng bao nhiêu ? Viết chương trình bằng Pascal để mô tả thuật toán đó B1 : S
hãy mô tả thuật toán tính tổng S=1+2+3+...+100 và tính tích P=1.2.3...100giúp mình với ạ, mình cảm ơn
**Mô tả thuật toán S:
- Bước 1: i←0; s←0;
- Bước 2: i←i+1;
- Bước 3: s←s+i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất s
- Bước 6: Kết thúc thuật toán
**Mô tả thuật toán tính P:
- Bước 1: i←0; p←1;
- Bước 2: i←i+1;
- Bước 3: p←p*i;
- Bước 4: Nếu i <= 100 thì quay lại bước 2
- Bước 5: Xuất p
- Bước 6: Kết thúc thuật toán
Đúng 2
Bình luận (1)
a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
Program HOC24;
var S,n: integer;
begin
s:=1; n:=0;
while s<10 do
begin
n:=n+2;
s:=s+n;
end;
write('S= ' ,s);
readln
end.
Đúng 0
Bình luận (0)
câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*6 +...+ 1/n*(n+3)
b) Sử dụng vòng lặp While... do, hãy viết chương trình tổng trên.
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)