[Tin] Pascan và vấn đề thi HSG Tin học

Trích dẫn:

---

Gửi bởi thanhkhoeo

dùng thuật toán gì ??? vấn đề là dùng ít xu nhất

---

có nhiều thuật toán trong đó sét giá trị tổng số tiền trước.
Rồi xét đến đồng tiền to nhất trước.
rồi lại sét tiền dư
Rồi xét tiền to nhất tương ứng với tiền dư.
Cứ như vậy là ra.http://photobucket.com/images/scared...%20of%20santa/

đây là thuật toán tham lam thì phảihttp://photobucket.com/images/scared...%20of%20santa/

Trích dẫn:

---

Gửi bởi thanhkhoeo

đây là thuật toán tham lam thì phải

---

? Thuật toán gì lạ thế ? c:adore: c:adore:http://photobucket.com/images/scared...%20of%20santa/

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ônhttp://photobucket.com/images/scared...%20of%20santa/

Trích dẫn:

---

Gửi bởi thanhkhoeo

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

---

Chà chà. Trang web này được đấy. Hợp với Gu của mình. c:big_smile:http://photobucket.com/images/scared...%20of%20santa/

http://www.topcoder.com/news/category/alg/

pro vô cùng Thành đọc không hiểu luônhttp://photobucket.com/images/scared...%20of%20santa/

Trích dẫn:

---

Gửi bởi thanhkhoeo

http://www.topcoder.com/news/category/alg/

pro vô cùng Thành đọc không hiểu luôn

---

Đọc chả hiều gì hết ? Trang web gì đây ?c:adore:http://photobucket.com/images/scared...%20of%20santa/

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.http://photobucket.com/images/scared...%20of%20santa/

Trích dẫn:

---

Gửi bởi voimonster

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;{ duong là> 0 vậy = 0 thì sao


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.

---

cái thể loạo này mà Toàn làm vớ vẩn quáhttp://photobucket.com/images/scared...%20of%20santa/

Trích dẫn:

---

Gửi bởi thanhkhoeo

cái thể loạo này mà Toàn làm vớ vẩn quá

---

Ta chỉ cần loại số âm thì số còn lại là số dương !
Không lẻ số 0 ko phải là số dương à ? c:adore:http://photobucket.com/images/scared...%20of%20santa/