Viết chương trình tìm ước chung lớn nhất pascal

Program UCLN;

Uses crt;

Var a,b,r:byte;

Begin

     Clrscr;

     Writeln('CHUONG TRINH TIM UCLN CUA HAI SO');

     Write('Nhap a: ');readln(a);

     Write('Nhap b: ');readln(b);

     r:=a mod b;

     While r<> 0 do

     Begin

         b:=r;

         a:=b;

         r:=a mod b;

     End;

     Write('UCLN cua hai so la: ',b);

     Readln

End.

Answers ( )

1. 

   giangnguyen

   0

   2021-07-22T10:48:44+00:00 22/07/2021 at 10:48

   Reply

   program UCLN;

   uses crt;

   var m,n:integer;

   begin

           clrscr;

           write(‘Nhap m: ‘);   readln(m);

           write(‘Nhap n: ‘);   readln(n);

           while m<>n do

                   if m>n then m:=m-n else n:=n-m;

           write(‘UCLN= ‘,m);

           readln;

   end.

3. 

   tuyetnhung

   0

   2021-07-22T10:49:14+00:00 22/07/2021 at 10:49

   Reply

   Program bai_tap;

   Uses crt;

   Var m ,n: integer;

   Begin

      clrscr;

      write (‘Nhập m, n= ‘);

      readln (m,n);

      While m <> n do

           if m >n then m:= m – n else n:= n – m;

      writeln( ‘ UCLN = : ‘, m);

      readln

   End.

Answers ( )

1. 

   ngochoa

   0

   2021-08-01T12:18:19+00:00 01/08/2021 at 12:18

   Reply

   a. Tìm ƯCLN:

   Uses crt;
   Var x, y: integer;
   Begin
   Clrscr;
   Write(‘Nhap x = ‘); readln(x);
   Write(‘Nhap y = ‘); readln(y);
   While x<>y do
   If x>y then x:=x-y else y:=y-x;
   Writeln(‘UCLN = ‘,x);
   Readln
   End.

   b. Tìm BCNN:

   Uses crt;
   Var a, b, c, d: integer;
   Begin
   Clrscr;
   Write(‘Nhap a = ‘); readln(a);
   Write(‘Nhap b = ‘); readln(b);
   d:=a*b;
   While a<>b do if a>b then a:=a-b else b:=b-a;
   c:=a;
   d:=d div c;
   Writeln(‘BCNN = ‘,d);
   Readln
   End.

3. 

   tonhu

   0

   2021-08-01T12:18:40+00:00 01/08/2021 at 12:18

   Reply

   Viết chương trình tìm ƯỚC CHUNG LỚN NHẤT VÀ BỘI CHUNG NHỎ NHẤT CỦA HAI SỐ bằng pascal:

   var x,y,UCLN,BCNN,t:integer;

   begin

   readln(x,y) ;
   BCNN:=x*y;
   t:= y mod x;
   While t <> 0 do
         Begin
           t:= x MOD y;
           x:= y;
           y:= t;
         End;

   ucln:=x;
   BCNN:=BCNN div UCLN;

   write(UCLN,’ ‘,BCNN);

   end.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

• Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
• Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

• Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
• Hàng 2: lần lượt là số áo, số mũ còn thừa.

23/10/2022 |   0 Trả lời