Nơi thông báo các hoạt động của lớp. Chia sẻ học tập, kinh nghiệm giúp nhau lập nghiệp !
Thông điệp [Trang 1 trong tổng số 1 trang]
Thuật toán Fri Oct 15, 2010 9:35 pm
Re: Thuật toán Fri Oct 15, 2010 9:48 pm
Re: Thuật toán Fri Oct 15, 2010 9:54 pm
Re: Thuật toán Fri Oct 15, 2010 10:15 pm Re: Thuật toán Fri Oct 15, 2010 10:41 pm
Re: Thuật toán Fri Oct 15, 2010 10:56 pm Re: Thuật toán Fri Oct 15, 2010 11:01 pm Re: Thuật toán Fri Oct 15, 2010 11:23 pm Re: Thuật toán Fri Oct 15, 2010 11:40 pm
Trang Chính
Tìm kiếm
Latest images
Đăng ký
Đăng Nhập
type kieu=array[1..100] of longint;
var i,dchan,dle,tong,d30,tong30,x: longint;
kt:boolean;
a,b:kieu;
procedure sort(d,c:integer ;var a:kieu); {sắp xếp mảng a từ phần tử d đến phần tử c}
var i,j:integer;
tg:longint;
begin
for i:=d to c do
for j:=d to c-i do
if a[j]>a[j+1] then
begin
tg:=a[j];
a[j]:=a[j+1];
a[j+1]:=tg;
end;
end;
begin
tong:=0; kt:=true;
dchan:=0; dle:=0;
d30:=0; tong30:=0;
while kt do
begin
write('nhap x'); readln(x);
tong:=tong+x;
if (x=6789) or (tong=56789) or (x mod 13=0) then kt:=false;
if x mod 2 =0 then
begin
dchan:=dchan+1; {đếm số các số chẵn}
a[dchan]:=x; {lưu các số chẵn vào mảng a}
end
else
begin
dle:=dle+1; {đếm các số lẻ}
b[dle]:=x; {lưu các số lẻ vào mảng b}
end;
if x mod 30 = 0 then
begin
d30:=d30+1; {các số chia hết cho 2,3,5 thì là số chia hết cho 30, đếm các số chia hết cho 30}
tong30:=tong30+x; {tổng các số chia hết cho 30}
end;
end;
sort(1,dchan,a);
sort(1,dle,b);
for i:=1 to dle do write(b[i],' ');
for i:=1 to dchan do write(a[i],' ');
writeln;
if d30<>0 then {đề phòng không có số nào chia hết cho 30 thì không thể tìm TBC}
writeln('TBC cac so vua chia het cho 3 vua chia het cho 5 vua chia het cho 2 la: ', tong30/d30);
end.
Re: Thuật toán Sat Oct 16, 2010 9:16 pm Re: Thuật toán Sat Oct 16, 2010 9:18 pm
Re: Thuật toán Sun Oct 17, 2010 4:35 pm
Re: Thuật toán Sun Oct 17, 2010 8:39 pm
Re: Thuật toán Sun Oct 17, 2010 8:52 pm
Thông điệp [Trang 1 trong tổng số 1 trang]
-‘๑’-Đại bản doanh KTMT&TT2-K54 BKHN-‘๑’- » ๑۩۞۩๑ Thảo luận CNTT/EBOOK ๑۩۞۩๑ » -‘๑’-Lập trình-‘๑’- » Thuật toán
Similar topics
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
|
