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.
1: Bài toán tính tổng tích
Input: a,b
Output: a+b và a-b
Mô tả thuật toán
Bước 1: Nhập a,b
Bước 2: Xuất a+b và a-b
Bước 3: Kết thúc
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
-Đầu vào: Điểm Toán, Văn, Tiếng Anh của hs
-Đầu ra: Điểm TB của 3 môn Toán, Văn, Tiếng Anh.
-Mô tả thuật:
1.Nhập điểm Toán, Văn, Tiếng Anh của hs từ bàn phím.
2.Tính tổng điểm của 3 môn bằng cách cộng điểm Toán, Văn, Tiếng Anh lại với nhau.
3.Tính điểm TB bằng cách chia tổng điểm cho số môn học (trong trường hợp này là 3).
4.Xuất điểm TB ra màn hình.
5.Kết thúc.
Input: 2 số a và b
Output: Tổng 2 số a và b
*Ở đề là bài toán. -> Thuật toán liệt kê:
Bước 1: Nhập 2 số a và b
Bước 2: T←a + b;
Bước 3: In T và kết thúc thuật toán
Sơ đồ này mô tả thuật toán tìm trung bình cộng của hai số a và b
Input: a,b
Output: (a+b)/2
1: Bài toán tính tổng tích
Input: a,b
Output: a+b và a-b
Mô tả thuật toán
Bước 1: Nhập a,b
Bước 2: Xuất a+b và a-b
Bước 3: Kết thúc