L1 0508:)>-:)>-....let's go :)):))

Tình trạng
Không mở trả lời sau này.
2 thằng mất dạy b-( !
Xì-pam thế à b-( !

@Noob: nhà mày có mạng à /:) !
Sao thấy online ít thế /:) !

@Wé: lại quên đĩa CS cho mày òi 8-} !
MK 8-} !
Lúc nãy ngồi chơi mới nhớ ra b-( !
 
day la bai tam giac va diem M


Mã: 
program tamgiac;
uses crt;
var x1,x2,x3,x4,y1,y2,y3,y4:longint;
    ab,bc,ca,am,bm,cm:real;
    s1,s2,s3,s4:longint;
    p1,p2,p3,p4:real;
begin
clrscr;
write('Nhap toa do diem A: ');readln(x1,y1);
write('Nhap toa do diem B: ');readln(x2,y2);
write('Nhap toa do diem C: ');readln(x3,y3);
write('Nhap toa do diem M: ');readln(x4,y4);

ab:=sqrt(sqr(x1-x2)+sqr(y1-y2));
bc:=sqrt(sqr(x2-x3)+sqr(y2-y3));
ca:=sqrt(sqr(x3-x1)+sqr(y3-y1));
am:=sqrt(sqr(x1-x4)+sqr(y1-y4));
bm:=sqrt(sqr(x2-x4)+sqr(y2-y4));
cm:=sqrt(sqr(x3-x4)+sqr(y3-y4));

if (ab+bc<=ca) or (ab+ca<=bc) or (bc+ca<=ab) then writeln('Thang nao ngu the nhap du lieu sai roi')
 else begin
       p1:=(ab+bc+ca)/2;
       p2:=(ab+bm+am)/2;
       p3:=(bm+bc+cm)/2;
       p4:=(am+cm+ca)/2;
       s1:=round(sqrt(p1*(p1-ab)*(p1-bc)*(p1-ca)));
       s2:=round(sqrt(p2*(p2-ab)*(p2-bm)*(p2-am)));
       s3:=round(sqrt(p3*(p3-bm)*(p3-bc)*(p3-cm)));
       s4:=round(sqrt(p4*(p4-am)*(p4-cm)*(p4-ca)));
       if s1=s2+s3+s4 then writeln('M thuoc tam giac')
        else writeln('M o ngoai tam giac');
      end;

readln;
end.
 
Chỉnh sửa lần cuối:
Cái gì mà "quẩy" thế "cô em" :)) !
Bội thực + ngộ độc mất :)) !
Cay đắng ngồi chép lại vậy :)) !
 
đây là bai n!!
(chỉ tính được với n<29)

Mã: 
program giaithua;
uses crt;
var n,i:longint;
    kq:real;
begin
clrscr;
write('Nhap n: ');readln(n);
kq:=1;
for i:=1 to 2*n do
 if (i mod 2=n mod 2) then kq:=kq*i;
write('n!!= ',kq:0:0);
readln;
end.

còn bài nào nữa không nhỉ
 
Chỉnh sửa lần cuối:
Hic
Muốn đầu độc anh em hả Bình
tha cả nhà đi
post liên tục thế này
chắc ngất mất
 
lúc tao không pót thì bọn mày cứ giục
đến lúc post rồi thì kêu dài

thằng nào còn nhớ tên quyển sách lão tuấn bắt mua không
 
Chỉnh sửa lần cuối:
Nhưng mà mày phải thông cảm
5 bài
dài ngoằng ngoẵng(trừ bài trên)
chịu sao nổi
mà bọn nó(bọn nó:-/:)):))) cứ kâu thế này thì làm sao biết số trang đấy mà tìm
 
Chỉnh sửa lần cuối:
Khá lém cô em Võ
làm sao để làm cái Chữ như thế??
Tiện thể hỏi Bình
Round để làm j`
lần trước chép bài kia
quên ko dùng lệnh round đấy
thấy cũng chả sao
dùng làm gì??
 
Round là để làm tròn /:) !

Thằng này /:) !
Học ở cấp II roài mà quên hết b-( !
Đáng ăn đòn b-( !
 
Chỉnh sửa lần cuối:
ah ha
hóa ra Võ cũng khá phết
đùa đâu
thế mày giải thik thử thuật toán bài giai thừa đi
chả hiểu gì cả
 
Từ từ 8-} !
Chưa ngâm cứu 8-} !
Để tao học nốt đã 8-} !

***** 8-} !
Lại còn đang rắc rối vs bà già vì tội bùng gsư 1/2 tháng roài 8-} !
 
Phạm Thanh Bình đã viết:
đây là bài tiền điện
đầy đủ những gì lão tuấn yêu cầu
dài vãi chốt

program dmtuan;


Cả đây nữa:
if (ab+bc<=ca) or (ab+ca<=bc) or (bc+ca<=ab) then writeln('Thang nao ngu the nhap du lieu sai roi')
Nhấn để mở rộng...
Cô em Bình khá lém
ko ngờ ko ngờ
 
Chỉnh sửa lần cuối:
Võ ơi.Muốn chơi YugiOnline phải
làm thế nào???Down ở đâu???
CHỉ dạy thằng em đi
 
Vào đây roài tự tìm hiểu tiếp 8-} !

@Wé: "cô em" Bình dạo này máu lửa lắm :)) !
Hết đấm nhau lại đến chửi GV :)) !
Khá lắm =D> :)) !

@Noob: post nốt bài này roài tao nghỉ đây 8-} !
Hết hứng xì-pam òi 8-} !
 
Đồ bạn tồi.
Bạn hỏi mà chỉ bảo vào đây thôi ah.
Ít ra phải chỉ bảo cho bạn một chút chớ.
Thui đi ngủ đi cưng keo mai lại đi học muộn
thì xung kích nó thịt mày!!
 
Mã: 
program giaithua;
uses crt;
var n,i:longint;
    kq:real;
begin
clrscr;
write('Nhap n: ');readln(n);
kq:=1;
for i:=1 to 2*n do
 if (i mod 2=n mod 2) then kq:=kq*i;
write('n!!= ',kq:0:0);
readln;
end.

đây là lão tuấn bát tính n!! chứ không phải n!
n!!=2*4*6*8*...*2n (n chẵn)
n!!=1*3*5*7*...*(2n-1) (n lẻ)
 
Chỉnh sửa lần cuối:
bài tiền điện
đằng sau câu lệnh
gotoxy(24,19); write('Tong cong tien thanh toan:');gotoxy(51,19); write(round(tien*11/10):19);


bổ sung phần này: (để đọc số ra chữ)
Mã: 
gotoxy(2,21);
    write('So tien viet bang chu');
    gotoxy(1,23);
    for i:=1 to 70 do write('-');
    for i:=20 to 23 do
     begin
      gotoxy(1,i); write('!');
      gotoxy(70,i); write('!');
     end;
    tien:=(tien*11) div 10;
    gotoxy(2,22);
    tien1:=tien;
    h:=1000000000;
    repeat
     c3:=tien1 div (h div 1000);
     if c3<>0 then
       begin
        t:=c3 div 100;
        c3:=c3 mod 100;
        c:=c3 div 10;
        d:=c3 mod 10;

        case t of
         0:if (tien1<>tien) and ((c<>0) or (d<>0)) then write('khong tram ');
         1:write('mot tram ');
         2:write('hai tram ');
         3:write('ba tram ');
         4:write('bon tram ');
         5:write('nam tram ');
         6:write('sau tram ');
         7:write('bay tram ');
         8:write('tam tram ');
         9:write('chin tram ');
         end;
        case c of
         0: if (d<>0) and (tien1<>tien) and (c<>0) then write('linh ');
         1:write('muoi ');
         2:write('hai muoi ');
         3:write('ba muoi ');
         4:write('bon muoi ');
         5:write('nam muoi ');
         6:write('sau muoi ');
         7:write('bay muoi ');
         8:write('tam muoi ');
         9:write('chin muoi ');
         end;
        case d of
         1:write('mot ');
         2:write('hai ');
         3:write('ba ');
         4:write('bon ');
         5:if c<>0 then write('lam ')
            else write('nam ');
         6:write('sau ');
         7:write('bay ');
         8:write('tam ');
         9:write('chin ');
         end;

        if h=1000000000 then write('trieu ');
        if h=1000000 then write('nghin ');
        if h=1000 then write('dong ');
       end;
     h:=h div 1000;
     if h<>0 then
     tien1:=tien1 mod h;
     until h=1;
 
Chỉnh sửa lần cuối:
Tình trạng
Không mở trả lời sau này.
Back
Bên trên