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.

2 tháng 12 2021

free pascal à

 

2 tháng 12 2021

nek

 

InputInput : ba số a,b,c là số thực

OutputOutput : Tìm Min của bà số

*Thuật toán

Bước 1: Nhập ba số thực a,b,ca,b,c

Bước ;2 : Gán a−>Min

Bước 3: dùng câu lệnh điều kiện

Nếu bMin−>b

         Nếu b>c=>Min−>c

         Nếu b=c => Min−>b

Bước 4: in ra kết quả và kết thúc thuật toán

3 tháng 1 2021

B1. Nhập ba số a,b,c;

B2. Max <-- a;

B3. Nếu Max < b thì Max <-- b;

B4. Nếu Max < c thì Max <-- c;

B5. Xuất Max và kết thúc

Bước 1: Nhập a,b,c

Bước 2: ln←a;

Bước 3: Nếu ln<b thì ln←b;

Bước 4: Nếu ln<c thì ln←c;

Bước 5: Xuất ln

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

4 tháng 1 2022

Bước 1: Nhập a,b,c

Bước 2: ln←a;

Bước 3: Nếu ln<b thì ln←b;

Bước 4: Nếu ln<c thì ln←c;

Bước 5: Xuất ln

Bước 6: Kết thúc
cre : Nguyễn Lê Phước Thịnh

19 tháng 4 2023

đúng ko vậy bạn

 

 

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

 

 

 

4 tháng 1 2021

Cho trước ba số dương a, b và c. Hãy mô tả thuật toán cho biết ba số đó có thể là độ dài ba cạnh của một tam giác hay không.Lời giải : B1: nhập 3 số dương a,b,cB2: nếu a+b <= c, chuyển đến b6B3: nếu a+c <= b, chuyển đến b6B4: nếu b+c <= a, chuyển đến b6B5: cho kết quả a,b,c là 3 cạnh của tam giác B6: in ra kết qua và kết thúc thuật toán Đúng thì like nhe

a: Bước 1: Nhập hai số a và b

Bước 2: Nếu a>b thì xuất a

ngược lại thì xuất b

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

24 tháng 12 2020

a) Xác định bài toán

-Input: Dãy A gồm n số nguyên

-Output: Tổng các số hạng lẻ trong A

b) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: s←0; i←1;

-Bước 3: Nếu a[i] không chia hết cho 2 thì s←s+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất s

-Bước 7: Kết thúc

11 tháng 12 2021

Bước 1: Nhập ba số a,b,c

Bước 2: Xuất a+b+c;

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