Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên
Đúng 0
Bình luận (0)
Bài 10: Cấu trúc lặp
Các câu hỏi tương tự
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write(Nhap gia tri cho N); Readln(N);
write(nhap gia tri cho day so);
For i1 to N do Readln(A[i]);
Tong :0;
For i :1 to N do;
If (A[i] mod 20) then Tong :Tong + A[i];
Write(Tong cac so le trong day so la: ,Dem);
Readln
End.
Đọc tiếp
phat hien va sua loi cu phap cho chuong trinh: in ra man hinh tong cac so le co trong day so
Program tong_so_le;
Var N, i : byte; Tong : integer;
A: Array(1..250) of Integer ;
begin
write('Nhap gia tri cho N='); Readln(N);
write('nhap gia tri cho day so');
For i=1 to N do Readln(A[i]);
Tong :=0;
For i :=1 to N do;
If (A[i] mod 2<>0) then Tong :=Tong + A[i];
Write('Tong cac so le trong day so la: ',Dem);
Readln
End.
cho đoạn chương trình s:=5
for i:=1 to 7 do if i mod 2=0 then s:=s+i else i:=i+1
Yêu cầu:
Viết tiếp câu lệnh để chương trình hoàn thiện
Cho biết kết thúc đoạn chương trình s,i lần lượt nhận giá trị là bao nhiêu?
chuyển đoạn lệnh sau sang while-do và tìm kết quả của S và T?
T:=1 ; S:=0;
For i:=1 to 5 do
begin
S:=S+5;
T:=T*2;
End;
Chương trình sau thực hiện công việc gì ?kết quả vủa trương trình đó?
Var S,i : integer
Begin
A:=0
For i:=3 to 10 đó
S:=S*i;
Write('S=',S:3);
End.
Cho đoạn chương trình S:=0 ; n:=1; While.......do Begin S:= S+n ; n:=n+1 ; End ; Tính tổng S=1+2+3....+100 , điều kiện nào sau đây cần điền vào chỗ 3 chấm giữa câu lệnh while ...do ? A. n>=100 B n> 100 C n<100 D n<=100
Giúp em
Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?
A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động
Câu 10: Cho câu lệnh for i : 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?
A. nhiều lần B. 2 C. 11 D. 10
Câu 2: Trong câu lệnh for i : 10 downto 1 do write(i); Cho biết 10 là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 3: Trong câu lệnh for i : 10 downto 1 do write(i); Cho biết i là...
Đọc tiếp
Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?
A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động
Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?
A. nhiều lần B. 2 C. 11 D. 10
Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 3: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết i là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 4: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết write(i) là gì?
A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh
Câu 5. Cho câu lệnh for i := 1 to 4 do write(i:2); Kết quả là :
A. 4 3 2 1 B. 1 2 3 4 C. 1 D. 4
Câu 6: Chọn câu lệnh lặp để tính T = \(\Sigma^{50}_{n=1}n+a\)
A. T:=0 ; For i := 1 to n do T := T+i+a;
B.T:=0 ; For i := n downto 1 do T := T+i+a;
C. T:=0 ; For n := 1 to 50 do T := T+n+a;
D.T:=0 ; For n := 1 downto 50 do T := T+n+a;
Câu 7: Biến đếm có kiểu số nguyên thì giá trị đầu và giá trị cuối phải có kiểu gì?
A. Số thực B. Số nguyên C. Logic D. kiểu gì cũng được
1d-2d-3c-4d-5b-6c-7b trong đáp án này có 1 câu sai, đó là câu nào ?
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
bài 1 : viết chương trình tìm các số trong khoảng từ 0 >999 bằng tổng lập phương các chữ số của nó
vd: 153=1^3+5^3+3^3
Viết chương trình bằng ngôn ngữ tự nhiên và bằng ngôn ngữ lập trình Pascal ứng cho các bài toán sau. Tính và đưa ra màn hình tổng z=|x|+|y| với điểm (x>y) thuộc đường tròn bán kính r(r>0) tâm (a;b)
b, y=1+2+3+....+100
c, y=1+2+3+...+n cho đến khi y>3200
mk cần trong vòng 1 tiếng nữa . mong mọi người giúp mk , Cảm ơn nhiều ạ