-‘๑’- 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○。 -‘๑’- ( ds p1)

  • Bắt đầu Bắt đầu hi3ubq
  • Ngày bắt đầu Ngày bắt đầu
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

thằng nào có bản perfect thì up lên cãi nhau ít thôi
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Các bạn bắn tin cho tớ đề Sử 1 tiết hôm lay phát ;;)

Nhật nhở 8-|
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

1 tuần sau khi up ảnh
bandwidth tăng 4 MB
trong khi 1 cái ảnh ~ 1.3 MB
phí công up :|

anh tao bảo bài tin làm thế này
( a+b>c and abs(a-b)<c ) or (b+c>a and abs (b-c)<a ) or (c+a>b and abs (c-a)<b)
thì ko cần thứ tự a>=b>=c
 
Chỉnh sửa lần cuối:
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

đề nghị up luôn bản full đê. cứ mỗi đứa nói 1 kiểu tao ko hiểu
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Ngô Tuấn Vũ đã viết:
anh tao bảo bài tin làm thế này
( a+b>c and abs(a-b)<c ) or (b+c>a and abs (b-c)<a ) or (c+a>b and abs (c-a)<b)
thì ko cần thứ tự a>=b>=c
Nhấn để mở rộng...

Để như thế thì chỉ cần 1 trong 3 cái ngoặc đúng là nó cho ra tam giác rồi
Trong khi cần cả 3
 
Chỉnh sửa lần cuối:
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

sign của bạn ĐM dương thật là vl :-ss
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

to ông vũ:loằng ngoằng thế
cái đoạn code đấy chắc 9/10 là ô Vũ nghĩ ra
to quang: đoạn code đấy chuẩn đấy :D :D :D
 
Chỉnh sửa lần cuối:
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

thôi để tao nhờ a tao làm full cho
bản hôm qua đâu vứt đây tao lấy làm sample
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Ai lại làm thế bao giờ :(

----------

xong phần code, 19 lines mà locate đến hơn 7MB.
-> có nghĩa là nếu 1 ch trình tầm 1MB sẽ tiêu tốn khoảng 7 gigabyte 8-X:
<:-p

----------

compiled \:d/ \:d/ \:d/
20 line locate 12.5 MB
-> tương đương 1 chương trình 1MB chiếm.......tưng đó trên RAM.. 8-} 8-} 8-} 8-}
Ặc, chiếm resource kinh quá! 8-X:

----------

sau khi tối ưu code, giờ đã là 19 line locate 17.8MB
-> ...... tớ sẽ tung ra một ch tr pascal khoảng 5M có bạn nào nhà có RAM trên 80 gi ga byte cho tớ test nhờ không ? <:-p :D
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Cái này thứ 7 tuần sau mới phải nộp cơ mà :-j

Cứ từ từ bình tĩnh việc gì phải vội vàng thế này :))
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Sau một hồi điều chế set set se x se x, ch tr đã gần hoàn thiện, số bug giảm xuống một nửa (thực ra cũng ko quan trọng, chạy đúng mới quan trọng), nhưng đã locate lên hơn 40 MB, cái freepascal này dở thật, tốn nhiều bộ nhớ quá :(

----------

TriangleSideChecker
Bản Official xem thử nhá!<:-p <:-p <:-p
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

sign của bạn sâu tờ lờ vờ lờ :-ss
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Ch1m lợn hộ bạn " BÔ" là ..

Cái dòng thứ 2 trong sign bạn Sâu thật là tờ lờ vờ lờ ;)) :)) ;)

Bạn Sâu nhờ !
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Giải thuật của tớ :

1 - Không phải là tam giác -> khong phai la tam giac
Nếu sai
2 - 3 cạnh bằng nhau -> tam giác cân
Nếu sai
3 - Điều kiện tam giác vuông -> tam giac vuong
Điều kiện tam giác cân (đã cộng với điều kiện tam giác vuông ở trên) ->thêm chữ can vào sau dòng trên.
Nếu sai
4 - Điều kiện tam giác tù -> tam giac tu
Nếu sai -> tam giac nhon
End if
readln();
End
Có ai có giải thuật hay hơn ko?
tất cả là 21 line, mỗi line là một dòng lệnh, keyword 1 line.
còn source thì coded, compiled ai muốn thì kêu nhá, ném lên đây không tiện. :))
 
Chỉnh sửa lần cuối:
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Sign của thằng D ghi la Phụ Nử kìa :|
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

mẹ :|
sao có mỗi cái bài bọn mày cũng trang luận đi tranh luận lại thế :|
làm đúng rồi thử rồi ok rồi là xong chứ còn j nữa :|
mệt :-s
@ 2 con điên : :)) lại chả tlvl =))
sign bạn hà t2 cũng tlvl đấy =))
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

thì thử ~x(
mẹ
~x(
bàn ở trên này có đc cái lờ j` đâu ~x(
 
Re: 。○ ★♪! ♥ Lý 2 6-9 ♥ ♪ !★ ○ 。

Đ j`, này thì source này, đừng bạn nào chửi ngu nhá:
Mã: 
Program Trianglechecker;
Var a,b,c:real;
Begin
      Writeln('*** Triangle Side Checker ***');
      Writeln('Completed by quantum 12/11/07');
      Writeln('Lan luot nhap vao 3 chieu dai cung don vi can kiem tra!');
      Readln(a,b,c);
      If ((a+b)<=c) or (abs(a-b)>=c) Then
        Writeln('Day khong phai ba canh cua tam giac');
      Else
       Begin {*}
        Write('Tam giac ');
        If (a=b) and (b=c) Then Writeln('deu.');
        Else
          Begin {**}
           If (abs(a*a-b*b)=c*c) or ((a*a+b*b)=c*c) Then Write('vuong ');
             If (a=b) or (b=c) or (a=c) then writeln('can.');
           Else
            Begin {**}
             If (abs(a*a-b*b)>c*c) or (c*c>(a*a+b*b))
             Then Writeln('tu.')
             Else Writeln('nhon.');
            End {***}
          End {**}
       End {*}
       Writeln('Triangle Side Checker Version 1.0 by quantum at 06-09 Hanoi-Amsterdam');
       Readln();
End.
{http://rapidshare.com/files/68903296/triangle.exe.html}
Xem xong rồi thì đừng bình luận nhá. :(
to Thiến đứt: fully newest version đâu?
 
Bạn phải đăng nhập hoặc đăng ký để phản hồi tại đây.
Back
Bên trên