viết cho mình 1 chương trình thực tế có sử dụng biến mảng mình cần gấp nha lưu ý ko lấy các bài có trong sách nha vd: tính tiền điện,tính thunhaapj t

0 bình luận về “viết cho mình 1 chương trình thực tế có sử dụng biến mảng mình cần gấp nha lưu ý ko lấy các bài có trong sách nha vd: tính tiền điện,tính thunhaapj t”

1. đây, tìm bcnn luôn, rất ư là thực  tế:

   program tim_bcnn;

   uses crt;
   var x, y, i, n, ucln, bcnn: longint;
     a: array[1..100] of integer;
   function h_ucln(x,y:integer):integer;
   begin
    while x<>y do
     if x>y then
      x:=x-y
     else
      y:=y-x;
    h_ucln:=x;
   end;
   begin
    clrscr;
    repeat
     write(‘Nhap N (N>=2): ‘);
     readln(n);
    until(n>=2);
    for i:=1 to n do
    begin
     write(‘Phan tu thu ‘,i,’ = ‘);
     readln(a[i]);
    end;
    ucln:=h_ucln(a[1],a[2]);
    bcnn:=(a[1]*a[2]) div ucln;
    for i:=3 to n do
    begin
     ucln:=h_ucln(bcnn,a[i]);
     bcnn:=(bcnn*a[i]) div ucln;
    end;
    writeln(‘bcnn la: ‘,bcnn);
    readln;
   end.

   Bình luận