đây là thuật toán tham lam thì phải
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:23 PM.
Tôi muốn làm nên tất cả
cậu Toàn có muốn làm nhiều bài không, nếu có thì vào trang http://vn.spoj.pl để làm bài, và vào trang http://vnoi.info để lấy bài làm, và đó cũng là diễn đàn luôn
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:24 PM.
Tôi muốn làm nên tất cả
http://www.topcoder.com/news/category/alg/
pro vô cùng Thành đọc không hiểu luôn
Lần sửa cuối bởi thanhkhoeo, ngày 17-03-2011 lúc 08:24 PM.
Tôi muốn làm nên tất cả
Bài 2 kiểm tra học kì :
Không biết có đúng ko ?
Program Baitap2;
Uses Crt;
Var
Demchan,demle,demam,demduong,dem3:integer;
I,j,t,n:integer;
Mang:array [1..1000] of integer;
Begin
Clrscr;
Writeln(‘Nhap so nguyen N :’);
Readln(n);
For i:=1 to n do then
Begin
Writeln(‘Nhap so thu ‘,i,’ ‘);
Readln(mang[i]);
End;
Demam:=0;
For i:=1 to n do then
If (mang[i]<0) then demam:=demam+1;
Demduong:=n-demam;
Demchan:=0;
For i:=1 to n do then
If (mang[i] mod 2 =0) then demchan:=demchan+1;
Demle:=n-demchan;
Dem3:=0;
For i:=1 to n do
If (man[i]) mod 3 =0) then dem3:=dem3+1;
For j:=n downto 2 do
For i:=1 to j-1 do
If (mang[i]<mang[i+1] then
Begin
T:=mang[i];
Mang[i]:=mang[i+1];
Mang[i+1]:=t;
End;
Writeln(‘So cac phan tu chan la :’,demchan);
Writeln(‘So cac phan tu le la :’,demle);
Writeln(‘So cac phan tu duong la :’,demduong);
Writeln(‘So cac phan tu am la :’,demam);
Writeln(‘So cac phan tu chia het cho 3 la :’,dem3);
Writeln;
Writeln(‘Day so duoc sap xep la:’);
For i:=1 to n do write(mang[i]);
Readln;
End.
Lần sửa cuối bởi voimonster, ngày 21-01-2011 lúc 07:56 PM.
Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)
Đánh dấu