Bài 7. Câu lênh lặp
Các câu hỏi tương tự
Chạy đoạn chương trình
a) S:=1; P:=2;
For i:=1 to 5 do S:=S+i; P:=P*S;
b)S:=1; P:=1;
For i:=1 to 3 do begin S:=S+1; P:=P*S end;
Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :
S:0;
for i:1 to 5 do S :S +i;
writeln(S);
Kết quả in ra màn hình S là bao nhiêu ?
Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:
S:2;
For i:1 to 5 do S:S + i;
Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:
1)X:10; while X:10 to X: X+5;
2) X:10; while X 10 do XX+5
3) S:0; n:0; while S 10 do n:n+1 , S: S+n;
( Giair chi tiết giúp mình với )
Đọc tiếp
Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :
S:=0;
for i:=1 to 5 do S :=S +i;
writeln(S);
Kết quả in ra màn hình S là bao nhiêu ?
Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:
S:=2;
For i:=1 to 5 do S:=S + i;
Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:
1)X:=10; while X:=10 to X: X+5;
2) X:=10; while X = 10 do X=X+5
3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;
( Giair chi tiết giúp mình với )
Viết lại chương trình sau cho đúng: PROGRAM Ten-KTGK-DTNT_Buon Ho VAR i: Real; S: integer; Begin S = 0; For i = 1 To 20 Do S:= S+i; Write (‘Tong S =’ , S) End
Giá trị của S khi thực hiện đoạn chương trình sau là:
S:=0; i:=0;
While i<5 do begin S:=S+i; i:=i+1; end;
A. 15 B. 10
C.0 D. Không xác định
Xem chi tiết
- Cho biết chương trình sau đây làm công việc gì ?
Uses crt;
Var
S,i: integer;
Begin
S:=0;
for i:= 1 to 10 do
begin
S:= S + i*i;
writeln('Buoc thu ', i, ' tong S=', S);
end;
readln;
End.
bài 5 dưới đây là một đoạn chương trình Pascal
S:=0;
For i:=0 to 5 do
Begin
S := S + 2;
End;
Khi thực hiện đoạn chương trình trên giá trị của S là bao nhiêu ?
c1:Kết quả viết ra sau khi thực hiện xong đoạn lệnh sau là bao nhiêu : For i:1 to 10 do begin If i mod 21 then Write (‘i’,i, ’ ’);end ;
c2:Giá trị của S khi thực hiện xong đoạn lệnh sau là bao nhiêu i:1; S:5; While i5 do Begin S:S+i; i:i+2; End;
c3:Mỗi lần lặp giá trị của biến i trong câu lệnh sau thay đổi như thế nào? While i10 do begin i:i+3; end;
giúp với ạ!!!!! cảm ơn mọi người trước nha
Đọc tiếp
c1:Kết quả viết ra sau khi thực hiện xong đoạn lệnh sau là bao nhiêu : For i:=1 to 10 do begin If i mod 2=1 then Write (‘i=’,i, ’ ’);end ;
c2:Giá trị của S khi thực hiện xong đoạn lệnh sau là bao nhiêu i:=1; S:=5; While i<=5 do Begin S:=S+i; i:=i+2; End;
c3:Mỗi lần lặp giá trị của biến i trong câu lệnh sau thay đổi như thế nào? While i<=10 do begin i:=i+3; end;
giúp với ạ!!!!! cảm ơn mọi người trước nha
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
cho biết số lần lặp và giá trị của các biến sau khi thực hiện câu lệnh sau ?
s:0;k:1; s:0;k:1;
For i:1 to 5 do For i:1 to 5 do
s:s+1; Begin
k:k+s; s:s+1i;
k:k+s;
End;
Đọc tiếp
cho biết số lần lặp và giá trị của các biến sau khi thực hiện câu lệnh sau ?
s:=0;k:=1; s:=0;k:=1;
For i:=1 to 5 do For i:=1 to 5 do
s:=s+1; Begin
k:=k+s; s:=s+1=i;
k:=k+s;
End;