Những câu hỏi liên quan
Thuy Vo
Xem chi tiết
Ngọc Nguyễn Thái Khánh
Xem chi tiết
Kiều Vũ Linh
30 tháng 11 2022 lúc 16:19

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

+ Input: a và b là hai số thực

+ Ouput: số lớn nhất trong 2 số a và b

- Mô tả thuật toán:

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

Bước 2: Nếu a > b thì a là số lớn hơn

Bước 3: Nếu b>a thì b là số lớn hơn

- Viết chương trình:

var a,b: integer;

begin

write('a= '); readln(a);

write('b= '); readln(b);

if a > b then write(a,' la so lon hon');

if a < b then write(b,' la so lon hon');

if a = b then write('Khong so nao lon hon');

readln;

end.

Bình luận (0)
Phạm Như Hiếu
Xem chi tiết
Tạ Thị Vân Anh
4 tháng 1 2022 lúc 11:05
Bài làm:

Input: số lượng hàng N, đơn giá d, phí dịch vụ

Output: Số tiền phải thanh toán

Mô tả thuật toán bằng ngôn ngữ tự nhiên:

Bước 1: Nhập số lượng hàng N và đơn giá d.Bước 2: Tính số tiền mua hàng = số lượng hàng x đơn giá.Bước 3: Nếu số tiền mua hàng >= 500.000 thì số tiền thanh toán = số tiền mua hàng. Nếu ngược lại thì số tiền thanh toán = số tiền mua hàng x 105%Mô tả thuật toán bằng sơ đồ khối:Giải vnen tin 8 bài 1: Giải bài toán bằng máy tính
Bình luận (0)
Nguyễn Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2022 lúc 10:58

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

Bình luận (1)
TLVHieu
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2020 lúc 11:50

1: 

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

-Input: Hai số thực a,b(a≠b)

-Output: So sánh a và b

Mô tả thuật toán

-Bước 1: Nhập a và b

-Bước 2: Nếu a>b thì viết a lớn hơn b

Ngược lại thì a nhỏ hơn b

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

Viết chương trình:

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

until (a<>b);

if a>b then writeln(a,' lon hon ',b)

else writeln(a,' nho hon ',b);

readln;

end.

2: 

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

-Input: Hai số thực a,b(a≠b)

-Output: Tìm số lớn hơn

Mô tả thuật toán

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

-Bước 2: Nếu a>b thì viết a lớn hơn b

Ngược lại thì viết b lớn hơn a

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

Viết chương trình: 

uses crt;

var a,b:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

until (a<>b);

if a>b then writeln(a,' lon hon ',b)

else writeln(b,' lon hon ',a);

readln;

end.

Bình luận (0)
bí mật
Xem chi tiết
Nguyễn Thúy Hằng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 10:03

a: Input: Số a

Output: Kiểm tra xem a là số chẵn hay lẻ

b: 

Bước 1: Nhập a

Bước 2: Nếu a chia hết cho 2 thì xuất a là số chẵn

không thì a là số lẻ

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

c: 

uses crt;

var a:integer;

begin

clrscr;

readln(a);

if a mod 2=0 then write('a la so chan')

else write('a la so le');

readln;

end.

Bình luận (0)
Nguyen Tu
Xem chi tiết
....
Xem chi tiết
Rhider
24 tháng 11 2021 lúc 7:23

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

 

 

 

Bình luận (0)