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.
tham khảo
*Thuật toán :
B1: nhập 2 biến x,y
B2: Nếu x<y tráo đổi gía trị của x và y, chuyển đến bước 3 . Nếu y < x thì 2 số đã theo thứ tự có giá trị không giảm, chuyển đến bước 3
B3: In ra kết qủa x, y và kết thúc thuật toán .
Thuật toán đổi giá trị theo thứ tự có giá trị không giảm:
Bước 1: Nhập giá trị của x, y.
Bước 2: Nếu x > y thì chuyển tới bước 3. Ngược lại chuyển tới bước 4.
Bước 3: Tráo đổi giá trị của x và y.
Thuật toán tráo đổi giá trị:
Bước 1: Khai báo một biến cùng kiểu dữ liệu với x,y là tg.
Bước 2: Gán giá trị tg:=a;
Bước 3: Gán giá trị a:=b;
Bước 4: Gán giá trị b:=tg;
Bước 4: Kết thúc thuật toán.
Bài 1:
Ta nhớ thực hiện lệnh
<biến đếm>:=<giá trị>;
Bài 2:
d:=d+2;
a: Bước 1: Nhập hai số a và b
Bước 2: Nếu a>b thì xuất a
ngược lại thì xuất b
Bước 3: Kết thúc
1:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: So sánh a và b
Mô tả thuật toán
-Bước 1: Nhập a và b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì a nhỏ hơn b
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(a,' nho hon ',b);
readln;
end.
2:
Xác định bài toán:
-Input: Hai số thực a,b(a≠b)
-Output: Tìm số lớn hơn
Mô tả thuật toán
-Bước 1: Nhập a,b
-Bước 2: Nếu a>b thì viết a lớn hơn b
Ngược lại thì viết b lớn hơn a
-Bước 3: Kết thúc
Viết chương trình:
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>b);
if a>b then writeln(a,' lon hon ',b)
else writeln(b,' lon hon ',a);
readln;
end.
