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

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

hình-)?

Bạn ơi bn có thể cho hình được ko? =-=

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:

This is a modal window.

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

HI

-Đầ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

- Sơ đồ khối mô tả thuật toán tính tổng của hai số a và b.

- Đầu vào: hai số a và b.

   Đầu ra: tổng hai số a và b.

- Mô tả thuật toán theo cách liệt kê là:

+ Nhập giá trị a, giá trị b

+ Tính Tổng ← a + b.

- Sơ đồ khối mô tả thuật toán tính tổng của hai số a và b.

- Đầu vào: hai số a và b.

   Đầu ra: tổng hai số a và b.

- Mô tả thuật toán theo cách liệt kê là:

+ Nhập giá trị a, giá trị b