xác định bài toán và xây dựng thuật toán
1. tìm ước chung lớn nhất của hai số a, b
2. tìm bội chung nhỏ nhất của 2 số nguyên dương a,b
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.
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
Câu 1 :
a) Đầu vào : Giá trị chiều cao của các bạ học sinh khối 6 .
Đầu ra : Giá trị chiều cao của bạn học sinh có chiều cao thấp nhất khối 6 .
b) Đầu vào : Giá trị của ba số a,b và c .
Đầu ra : Giá trị trung bình cộng của ba số a,b và c .
c) Đầu vào : Giá trị của hai số tự nhiên a và b .
Đầu ra : Giá trị bội chung nhỏ nhất của hai số tự nhiên a và b .
Câu 2 :
Đầu vào : Giá trị đoạn thẳng 2a,b và c .
Đầu ra : Giá trị hình tam giác ABC .
a) đầu vào : hai số a và b
đầu ra : trung bình cộng của 2 số a và b
b) đầu vào : hai số tự nhiên a và b
đầu ra : ước chung lớn nhất của hai số tự nhiên a và b
a) đầu vào : hai số a và b
đầu ra : trung bình cộng của 2 số a và b
b) đầu vào : hai số tự nhiên a và b
đầu ra : ước chung lớn nhất của hai số tự nhiên a và b
1
*Xác định bài toán
-input: a,b
-output: ucln(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: Xuất ucln
-Bước 7: Kết thúc
2:
*Xác định bài toán
-input: a,b
-output: bcnn(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: bcnn:=(a*b)/ucln;
-Bước 7: xuất bcnn
-Bước 8: Kết thúc