Viết Chương Trình Tìm UCLN Và BCNN Của 2 Số A,b 2

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

phamphucthinh
Chưa có nhóm

Trả lời
1204
Điểm
12729
Cảm ơn
1221

Tin Học
Lớp 8
60 điểm
phamphucthinh - 09:43:16 04/04/2020

1/ Viết Chương trình tìm UCLN và BCNN của 2 số a,b 2/ Viết chương trình Tìm max, Min của 4 số a,b,c,d 3/Viết chương trình tìm tất cả các số có 3 chữ số a,b,c sao cho abc=a^3+b^3+c^3 Những chương trình này phải đc tối ưu đến hết mức có thể nhưng ko dùng mảng Ko spam Giải thích chương trình rõ ràng Viết chương trình Pascal

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

keyy
_Interesting_

Trả lời
1742
Điểm
353
Cảm ơn
1315

keyy

Câu trả lời hay nhất!
04/04/2020

Bài 1:

Chương trình:

Program FNG;Uses crt;Var a,b,BCNN: longint;Begin Clrscr; Write('Nhap a, b: '); Readln(a,b); BCNN:=a*b; While a<>b do If a>b then a:=a-b Else If b>a then b:=b-a; Writeln('UCLN: ',a); Write('BCNN: ',BCNN div a); ReadlnEnd.

Ý tưởng: Dùng thuật toán trừ khử nhau. Khi nào a khác b thì lấy số lớn hơn trừ số bé hơn, khi kết thúc câu lệnh, UCLN = a = b

BCNN = a*b div UCLN

Bài 2:

Chương trình:

Program FNG;Uses crt;Var a,b,c,d,min,max: longint;Begin Clrscr; Write('Nhap a, b, c, d: '); Readln(a,b,c,d); max:=a; min:=a; If b>max then max:=b; If c>max then max:=c; If d>max then max:=d; If b<min then min:=b; If c<min then min:=c; If d<min then min:=d; Writeln('Max = ',max); Write('Min = ',min); ReadlnEnd.

Ý tưởng: Gán max = a, so sánh các số còn lại với max. Nếu lớn hơn max thì gán max = số đó

Gán min = a, so sánh các số còn lại với min. Nếu nhỏ hơn min thì gán min = số đó

Bài 3:

Chương trình:

Program FNG;Uses crt;Var a,b,c: 0..9;Begin Clrscr; For a:=1 to 9 do For b:=0 to 9 do For c:=0 to 9 do If sqr(a)*a+sqr(b)*b+sqr(c)=a*100+b*10+c then Writeln(a,b,c); ReadlnEnd.

Ý tưởng: Cho a chạy từ 1 đến 9 (Vì chữ số đầu tiên không thể bằng 0) và b, c chạy từ 0 đến 9.

Nếu a*100+b*10+c (=abc) = a^3 + b^3 + c^3 thì xuất ra

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1221
Anh ơi
- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1221
Em nghĩ ct thứ 1 còn tối ưu đc tới mức này đúng ko ạ
- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1221
program BTH; uses crt; var a,b,d:longint; BEGIN clrscr; Write('Nhap so thu nhat: ');readln(a); Write('Nhap so thu hai: ');readln(b); d:=a*b; While a<>b do Begin If a>b then a:=a-b else b:=... xem thêm
- keyy
- _Interesting_
- Trả lời
  1742
- Điểm
  353
- Cảm ơn
  1315
Thời gian chạy vẫn không thay đổi lắm đâu =))
- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1221
Ý là cô em bảo ct này bắt phải tối ưu ạ dùng ít biến thôi ạ
- keyy
- _Interesting_
- Trả lời
  1742
- Điểm
  353
- Cảm ơn
  1315
Oke :))
- phamphucthinh
- Chưa có nhóm
- Trả lời
  1204
- Điểm
  12729
- Cảm ơn
  1221
Thanks anh 😘😘😘

Đăng nhập để hỏi chi tiết avatar

Li_2k5
Anh Em Siêu Nhân

Trả lời
5767
Điểm
136700
Cảm ơn
6922

Li_2k5

08/04/2020

1/ Program Hotboy ;

Uses crt;

var a,b,Ni,Nh: integer;

begin

Write('nhap so a'); readln(a);

Write('nhap so b'); readln(b);

Nh:=a*b;

While a<>b do If a>b then a:=a-b else b:=b-a;

Ni:=a;

Nh:=Nh div Ni;

write('uoc chung lon nhat la',Ni,'Boi chung nho nhat la',Nh);

Readln

end.

2/Program Hotboy ;

Uses crt;

Var a,max,min: real;

Begin

Clrscr;

Write('Nhap so thu nhat:');readln(a);Max:=a; Min:=a

Write('Nhap so thu hai:');readln(a);

if a>=Max then Max:=a;

if a<=Min then Min:=a;

Write('Nhap so thu ba:');readln(a);

if a>=Max then Max:=a;

if a<=Min then Min:=a;

Write('Nhap so thu tu:');readln(a);

if a>=Max then Max:=a;

if a<=Min then Min:=a;

Write('So lon nhat la:',Max:6:3,'so nho nhat la',Min:6:3);

readln

end.

Program Hotboy ;

Uses crt;

Var a,b,c: 0..9;

Begin

Clrscr;

For a:=1 to 9 do

For b:=0 to 9 do

For c:=0 to 9 do

If sqr(a)*a+sqr(b)*b+sqr(c)=a*100+b*10+c

then Writeln(a,b,c);

Readln

End.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar3 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- Li_2k5
- Anh Em Siêu Nhân
- Trả lời
  5767
- Điểm
  136700
- Cảm ơn
  6922
Chị đi ngủ trước,sai sót em tạm bỏ qua ,có gì ngày mai tính sau nha =="

Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK, SBT LỚP 8 - TẠI ĐÂY