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.
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.
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.
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.
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
Program hoan_doi;
uses crt;
var x,y,temp:Integer;
begin
x:=3;y:=7;
Writeln('Gia tri cua x truoc khi doi: ',x);
Writeln('Gia tri cua y truoc khi doi: ',y);
temp:=x;
x:=y;
y:=temp;
Writeln('Gia tri cua x sau khi hoan doi: ',x);
Writeln('Gia tri cua y sau khi hoan doi: ',y);
Readln();
end.
Mô tả: Khai báo 3 biến kiểu số nguyên
-Ta gán 3 cho biến x, gán 7 cho biến y
-Sau đó gán giá trị của biến x cho biến temp (để lưu trữ giá trị của biến x);
-Ta gán giá trị của biến y cho biến x (lúc này giá trị của biến x đã bị đổi);
-Rồi gán giá trị của biến temp cho biến y (Giá trị không bị thay đổi theo biến x bởi vì trước khi thay đổi giá trị của biến x thành giá trị của biến y ta đã gán giá trị trước đó của biến x cho biến temp)
Câu 1 :
Tham khảo
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;
Câu 2 :
Tham khảo
Ta nhận thấy rằng, bội số chung nhỏ nhất của hai số nguyên dương a, b có thể được tính theo công thức:
ab/d
trong đó d là ước chung lớn nhất của a và b.
Bởi vậy:
Nên viết hàm để tính bội chung nhỏ nhất của hai số nguyên dương vì chương trình con cần trả ra một giá trị;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b cần sử dụng hàm tính ước chung lớn nhất của a và b.
- Hàm tính ước chung lớn nhất của hai số nguyên dương a, b:
function ucln (a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r: = a mod b ,a : = b ; b:= r; end; ucln:= a; and;
- Hàm tính bội chung nhỏ nhất của hai số nguyên dương a, b:
ADVERTISING Video Player is loading.This is a modal window.
The media could not be loaded, either because the server or network failed or because the format is not supported.
lunction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Khi đó, chương trình con tính bội số chung nhỏ nhất của hai số nguyên dương a, b như sau:
program bai4_chuong6;
use crt ;
vai
X y: integer;
function ucln(a, b: integer): integer;
var r: integer;
begin
while b>0 do begin
r:= a mod b; a: = b ,b:= r;
end; ucln:= a;
end;
txnction bcnn(a, b: integer): integer;
begin
bcnn:= a*b div ucln(a, b);
end;
Begin
clrscr;
writeln('Nhap vao hai so can tim BCNN');
write ('x=') , readln(x); write ('y=') , readln(y);
writeln('bcnn cua hai so',x:4,'va',y:4,'la',bcnn(a,b)
readln
End.
Câu 3 : chịu
Thuật toán liệt kê:
- Bước 1: Nhập x và y
- Bước 2: Kiểm tra nếu x>y thì in ra y rồi in ra x
- Bước 3: Kiểm tra nếu x<y thì in ra x rồi in ra y
- Bước 4: Nếu x=y thì in ra x và y
- Bước 5: Kết thúc thuật toán