Tin Học - Pascal-Tìm UCLN Của N Số - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họcPascal-Tìm UCLN của n số

• Thread starter namnam06
• Ngày gửi 14 Tháng mười 2018
• Replies 2
• Views 9,051

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

namnam06

Học sinh tiến bộ

Thành viên 12 Tháng chín 2018 1,147 894 151 Gia Lai THCS Lê Quý Đôn [TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

ai sửa giúp mình cái ctrình này để chạy trên FP đi Program UCLN_cua_n_so; Uses crt; Var a,b : array [1..30000] of integer; n,i,f : integer; Begin Write('Nhap so cac so can tim UCLN: '); Readln(n); Write('Nhap cac so: '); For i:=1 to n do readln(a); For i:=1 to n do if a=1 then Writeln('UCLN cua cac so tren la 1.'); If (a[1] = a[2]) or (a[2] mod a[1] = 0) then b[1] := a[1] else If a[1] mod a[2] = 0 then b[1] := a[2] else For i:=1 to a[1] do If (a[1] mod i = 0) and (a[2] mod i = 0) then b[1]:=i; For f:=2 to n do Begin If b[f-1] mod a[f] = 0 then b[f] := a[f] else If a[f] mod b[f-1] = 0 then b[f] := b[f-1] else For i:=1 to b[f-1] do If (b[f-1] mod i = 0) and (a[f] mod i = 0) then b[f-1]:=i; End; Writeln('UCLN cua cac so tren la ',b[n]); Readln; End. N

Null_Character

Học sinh mới

Thành viên 2 Tháng sáu 2019 1 0 1 56 TP Hồ Chí Minh Null_String uses crt; var a: array [1..30000] of int64; n, temp: integer;temp2, min: int64; function UCLN(x, y: int64): int64; begin if x mod y = 0 then UCLN := y else UCLN := UCLN(y, x mod y); end; begin Write('Nhap so cac so can tim UCLN: '); Readln(n); Write('Nhap cac so: '); repeat inc(temp); readln(a[temp]) until temp = n; min := 2147483648 * 2147483648*2-1; repeat repeat dec(temp); temp2 := ucln(a[temp], a[n]); if temp2 < min then min := temp2 until temp = 1; dec(n); temp := n until n = 1; Writeln('UCLN cua cac so tren la ', min); Readln end.

Deathheart

Cựu TMod Vật Lí

Thành viên 18 Tháng năm 2018 1,535 2,868 411 Quảng Trị THPT Đông Hà Mình thấy các bạn làm dài quá. Bài này hãy xây dựng một hàm nha Function ucln(x,y:longint):Longint; Var Begin While x<>y do If x>y then y:=x-y Else x:=y-x; Ucln:=x; End; Xong rồi, trong ct chính mình gọi lại hàm này theo cách For i:=1 to n do Ucln(i, i+1); P/s: truyền tham số ở hàm trên mình quên k bít có nên là (var x, y:longint) hay (x, y:longint) @@ để mình xem lại

• 

Reactions: Trâm Nguyễn Thị Ngọc You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Học lập trình
• Thảo luận chung

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.