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.
- Bước 1: Ở bước này giá trị của x sẽ bằng x cộng với y: x= x+y.
- Bước 2: Tiếp đến giá trị của y bằng giá trị của x – y: y= x (bước 1)-y= x+y-y= x.
- Bước 3: Cuối cùng giá trị của x bằng x-y: x=x(bước1)-y(bước 2)= x+y-x=y.
Vậy kết quả của thuật toán là x=y và y=x
- Bước 1: Ở bước này giá trị của x sẽ bằng x cộng với y: x= x+y.
- Bước 2: Tiếp đến giá trị của y bằng giá trị của x – y: y= x (bước 1)-y= x+y-y= x.
- Bước 3: Cuối cùng giá trị của x bằng x-y: x=x(bước1)-y(bước 2)= x+y-x=y.
Vậy kết quả của thuật toán là x=y và y=x
- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên
- Giá trị cuối lớn hơn hoặc bằng giá trị đầu
Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10
-kết thúc,s=10
chương trình:
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a) đúng
b) đúng
c) đúng
d) kết quả phụ thuộc vào biến x
nếu x<=1 thì đúng
ngược lại thì sai
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
Program chiaqua;
Uses crt;
Var n,i,a:Longint;
S:INT64;
Begin
Clrscr;
Write('So em thieu nhi = ');
Readln(n);
S:=1; a:=1;
For i:=2 to n do
Begin
a:=a+3;
S:=S+a;
End;
Write('So goi qua chuan bi = ',S); Readln;