j:=1; k:=2;
for i:= 2 to 4 do j:=j+2; k:=k+j;
Sau đoạn trên, giá trị của j và k sẽ bằng bao nhiêu
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
26 tháng 1 2021
a) Chương trình bị lỗi
b) Chương trình bị lỗi
c) Chương trình bị lỗi luôn
QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023
Độ phức tạp của thuật toán sắp xếp nổi bọt là O(n2)
T = O(n) + O(n2) = O(n2)
L
1
NH
1
ML
24 tháng 3 2022
B sửa lại đề nhé.
for i:=1 to 6 do
begin j:=j+1; k:=k+j; end;
____________________
j=2; k=3;
Vòng lặp thứ nhất: i=1, j=j+1=2+1=3; k=k+j=3+3=6
Vòng lặp thứ hai: i=2; j=j+1=3+1=4; k:=k+j=6+4=10
Vòng lặp thứ ba: i=3; j=j+1=4+1=5; k=k+j=10+5=15
Vòng lặp thứ 4: i=4; j=j+1=5+1=6; k=k+j=15+6=21
Vòng lặp thứ 5: i=5; j=j+1=6+1=7; k=k+j=21+7=28
Vòng lặp thứ 6: i=6; j=j+1=7+1=8; k=k+j=28+8=36
Vậy j=8; k=36
TA
23 tháng 8 2023
Để chứng minh tính đúng đắn của thuật toán sắp xếp chèn với các lệnh thay đổi trên, ta cần chứng minh hai điều kiện sau đây:
Điều kiện ban đầu (trước khi bắt đầu vòng lặp): Sau khi thực hiện lệnh j = 1, giá trị của j đang là 1, và dãy con A[0] chỉ gồm một phần tử là A[0] (vì j-1 là 0). Do đó, dãy con này đã được sắp xếp đúng.
Điều kiện duy trì (trong quá trình vòng lặp): Trong mỗi vòng lặp của while, nếu A[j] < A[j-1], ta hoán đổi giá trị của A[j] và A[j-1] bằng lệnh Đổi chỗ A[j] và A[j-1]. Sau đó, ta giảm giá trị của j đi 1 đơn vị bằng lệnh j = j - 1. Lúc này, giá trị của A[j] là giá trị của A[j-1] trước khi hoán đổi, và giá trị của A[j-1] là giá trị của A[j] trước khi hoán đổi. Điều này đồng nghĩa với việc dãy con A[0], A[1], ..., A[j-1] đã được sắp xếp đúng sau mỗi vòng lặp.
Vậy nên, dãy con A[0], A[1], ..., A[j-1] luôn được sắp xếp đúng sau mỗi vòng lặp của while, và dãy con này sẽ không bị thay đổi giá trị trong quá trình hoán đổi. Do đó, tính đúng đắn của thuật toán sắp xếp chèn vẫn được duy trì sau khi thay toàn bộ phần chèn A[i] vào vị trí đúng của dãy con A[0], A[1], ..., A[i-1] bằng các lệnh trên.
29 tháng 3 2023
Sửa lại:
program fashkfs;
uses crt;
var n, i,j,m: longint;
a, b: array[1..1000] of integer;
begin
clrscr;
readln(n, m);
for i := 1 to m do
begin
read(a[i]);
end;
b[0] := 1;
for i := 1 to m do
begin
for j := 1 to n do
begin
if (b[j - a[i]] <> 0) and (a[i] <= j) then
begin
b[j] := b[j] + b[j - a[i]];
end;
end;
end;
writeln(b[n]);
readln;
end.
