K
Khách

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.

24 tháng 11 2021

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.partner logo 

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

 

 

 

19 tháng 12 2021

c: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

Xác định bài toán:

Input: a

Output: a*a

Mô tả thuật toán

Bước 1: Nhập a

Bước 2: Xuất a*a;

Bước 3: Kết thúc 

7 tháng 12 2021

Phát biểu đúng mà bạn, câu B sai á.

1. Xác định bài toán

2. Mô tả thuật toán.

3. Viết chương trình

2 tháng 5 2023

HI

 

2 tháng 5 2023

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

Xác định bài toán:

Input: a

Output: a*a

Mô tả thuật toán

Bước 1: Nhập a

Bước 2: Xuất a*a

Bước 3: Kết thúc

6 tháng 1 2022

scratch mà bạn, đâu phải pascal :)