cho thuật toán sau
-B1 t :=0;j :=1 -B2 nếu t lớn hơn hoặc bằng 30 thì chuyển qua B 3, ngược lại t>30 thì chuyển qua B 4-B3 :j :=j+2 ; t:t=j; và quay lại B2 -B4 in ra kết quả và kết thúc thuật toán a: Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của t và j là bao nhiêu b: Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên. GIÚP GIÙM ĐI MN
Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc S bằng bao nhiêu? Viết chương trình pascal thể hiện thuật toán đó B1: S
Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc S bằng bao nhiêu? Viết chương trình pascal thể hiện thuật toán đó B1: S
Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi
Hãy viết chương trình tính tổng 50 số nguyên đầu tiên (n số nguyên, nhập từ bàn phím) dựa vào thuật toán sau: THUẬT TOÁN: B1: đặt tổng s
Cho thuật toán sau:
- B1: A :=0;b :=1;
- B2: Nếu A≤ 30 thì chuyển qua B3, ngược lại A > 30 thì chuyển B4;
- B3:i :=b+2 ; A:=A+b; và quay lại B2
- B4: In ra kết quả và kết thúc thuật toán
Program Bai9;
Uses CRT;
Var A,b:integer;
Begin
A:= 0, J:=1;
While A<= 30 do
Begin i := b +2;A := A + b;End;
Writeln(A);
Readln;
End.
a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu (1,0 điểm)
b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi
Cho thuật toán sau đây
B1: S<- 0, n <- 3
B2: nếu S>= 6 chuyển b4
B3 s<- s +n và quay lại b2
B4 thông báo s và kết thúc thuật toán
Viết chương trình bằng pascal
Cho thuật toán sau đây
B1: S<- 0, n <- 3
B2: nếu S>= 6 chuyển b4
B3 s<- s +n và quay lại b2
B4 thông báo s và kết thúc thuật toán
Viết chương trình bằng pascal
Giải giúp em vs sắp thi hk r`
1) Cho 2 thuật toán sau
THUẬT TOÁN 1 : B1 : j <-0 ; T<-20;
B2 : Nếu T<6 thì chuyển qua B4 ;
B3 : j<-j+2 ; T<-T-j ;
B4 : In ra kết quả j và T ;
THUẬT TOÁN 2 : B1 : j<-0 ; T<-10;
B2 : Nếu T>10 thì chuyển qua B4 ;
B3 : j<- j+3 ; T<-T+j
B4 : In ra kết quả T và j
a) Hãy cho biết khi thực hiện 2 thuật toán trên máy tính sẽ thực hiện bao nhiêu vòng lập . Tính giá trị T và j ở mỗi thuật toán
b)Viết 2 chương trình thể hiện 2 thuật toán trên
a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.
Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.
b) Viết chương trình thể hiện thuật toán 1.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Viết chương trình thể hiện thuật toán 2.
Program tính_toán;
Var j,T : real;
begin
j:=0; T:=10;
While T <= 10 do
begin j:=j+3;
T:=T+j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
a) Thuật toán 1 : Máy tính sẽ thực hiện 4 vòng lặp, j=8, T=0.
Thuật toán 2 : Máy tính sẽ thực hiện 1 vòng lặp, j=3, T=13.
b) Viết chương trình thể hiện thuật toán 1.
Program tính_toán;
Var j,T : integer;
begin
j:=0; T:=20;
While T >= 6 do
begin j:=j+2;
T:=T-j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
Viết chương trình thể hiện thuật toán 2.
Program tính_toán;
Var j,T : real;
begin
j:=0; T:=10;
While T <= 10 do
begin j:=j+3;
T:=T+j end;
Writeln ('Kết quả của j là :', j);
Writeln ('Kết quả của T là :', T);
readln
end.
