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

Tình trạng
Không mở trả lời sau này.
đâ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

Mã: 
program dmtuan;
uses crt;
var ss,sd,sc,tien,i,j:longint;
    m,y:integer;
    thgd,ch:char;
begin
 repeat
  clrscr;

  write('Nhap thang, nam:');         readln(m,y);
  write('Nhap ten ho gia dinh:');    readln(thgd);
  write('Nhap chi so cong to dau:'); readln(sd);
  write('Nhap chi so cong to cuoi:'); readln(sc);
  if sd<sc then
   begin
    clrscr;
    ss:=sc-sd;
    gotoxy(2,2);write('Hoa don tien dien':44);
    gotoxy(2,3);write('Thang ',m:2,' nam ',y:5);
    gotoxy(2,4);write('Ten ho gia dinh: ',thgd);
    gotoxy(1,1);
    for i:=1 to 70 do write('-');
    gotoxy(1,20);
    for i:=1 to 70 do write('-');
    gotoxy(1,5);
    for i:=1 to 70 do write('-');
    gotoxy(1,7);
    for i:=1 to 70 do write('-');
    gotoxy(1,9);
    for i:=1 to 22 do write('-');
    gotoxy(23,14);
    for i:=23 to 70 do write('-');
    gotoxy(23,16);
    for i:=23 to 70 do write('-');
    gotoxy(23,18);
    for i:=23 to 70 do write('-');

    for i:=1 to 19 do
     begin
      gotoxy(1,i);write('!');
      gotoxy(70,i);write('!');
      if i>4 then
       begin
      { if i<10 then  gotoxy(12,i);write('!');}
       gotoxy(23,i);write('!');
       gotoxy(50,i);write('!');
       if i<17 then
        begin
        gotoxy(30,i);write('!');
        gotoxy(42,i);write('!');
        end;
       end;
     end;
    for i:=5 to 9 do begin gotoxy(12,i);write('!'); end;
   gotoxy(2,6);write('Chi so dau');
   gotoxy(13,6);write('Chi so sau');
   gotoxy(24,6);write('He so');
   gotoxy(31,6);write('DN tieu thu');
   gotoxy(43,6);write('Don gia');
   gotoxy(51,6);write('Thanh tien':15);
   gotoxy(1,8);
   write('!',sd:10,'!',sc:10,'!','1!':7,ss:11,'!');
   gotoxy(24,9); write('Tr.do:');

   if ss<=100 then tien:=ss*550;
   if (ss>100) and (ss<=150) then tien:=100*550+(ss-100)*900;
   if (ss>150) and (ss<=200) then tien:=100*550+50*900+(ss-150)*1210;
   if (ss>200) and (ss<=300) then tien:=100*550+50*900+50*1210+(ss-200)*1340;
   if (ss>300) and (ss<=400) then tien:=200*1100+100*1340+(ss-300)*1400;
   if (ss>400) then tien:=200*1100+100*1340+100*1400+(ss-400)*1500;

   if ss<= 300 then
    begin
     gotoxy(43,9); write(550:7);
     if ss<=100 then begin gotoxy(31,9); write(ss:11);
                           gotoxy(51,9); write(ss*550:19);
                     end
      else begin gotoxy(31,9); write(100:11);
                 gotoxy(51,9); write(100*550:19);
           end;
     if ss>=150 then  begin gotoxy(31,10); write(50:11); gotoxy(43,10); write(900:7);
                            gotoxy(51,10); write(900*50:19);
                      end
      else begin gotoxy(31,10); write(ss-100:11); gotoxy(43,10); write(900:7);
                 gotoxy(51,10); write((ss-100)*900:19);
            end;
     if ss>=200 then  begin gotoxy(31,11); write(50:11); gotoxy(43,11); write(1210:7);
                            gotoxy(31,12); write(ss-200:11); gotoxy(43,12); write(1340:7);
                            gotoxy(51,11); write(50*1210:19);
                            gotoxy(51,12); write((ss-200)*1340:19);
                      end
      else begin gotoxy(31,11); write(ss-150:11); gotoxy(43,11); write(1210:7);
                 gotoxy(51,11); write((ss-150)*1210:19);
           end;


    end;
   if ss>300 then
    begin
     gotoxy(31,9); write(200:11);
     gotoxy(51,9); write(200*1100:19);
     gotoxy(43,9); write(1100:7);
     gotoxy(31,10); write(100:11);
     gotoxy(51,10); write(100*1340:19);
     gotoxy(43,10); write(1340:7);
         if ss>=400 then begin gotoxy(31,11); write(100:11); gotoxy(43,11); write(1400:7);
                           gotoxy(31,12); write(ss-400:11); gotoxy(43,12); write(1500:7);
                           gotoxy(51,11); write(100*1400:19);
                           gotoxy(51,12); write((ss-300)*1400:19);
                     end
      else begin gotoxy(31,11); write(ss-300:11); gotoxy(43,11); write(1400:7);
                 gotoxy(51,11); write((ss-300)*1400:19);
           end;
    end;

    gotoxy(25,15); write('Cong !',288:11,'!','!':8,tien:19);
    gotoxy(24,17); write('Thue GTGT (10%):');gotoxy(51,17); write(round(tien/10):19);
    gotoxy(24,19); write('Tong cong tien thanh toan');gotoxy(51,19); write(round(tien*11/10):19);
   end
  else writeln('Nhap du lieu sai');
  writeln;
  gotoxy(1,21);
  write('Co tinh tiep khong? (C/K) ');readln(ch);
  until (ch='k') or (ch='K');
end.
----------

đây là bảng cửu chương

Mã: 
program bangcuuchuong;
uses crt;
var i,j,x,y:integer;
begin
 clrscr;
 x:=10;
 y:=4;
 for i:=1 to 9 do
  begin
   for j:=1 to 9 do begin gotoxy(x,y+j-1); write(i:2,'x',j:2,'=',i*j:2); end;
   x:=x+24;
   if x>70 then  begin x:=10; y:=y+15 end;
  end;
 readln;
end.
----------

đây là bài tổng 2 cs đầu bằng tổng 2 cs cuối
Mã: 
program cs;
uses crt;
var so,c1,c2,c3,c4,m:integer;
begin
 clrscr;
 for m:=1000 to 9999 do
  begin
   so:=m;
   c1:=so div 1000;
   so:=so mod 1000;
   c2:=so div 100 ;
   so:=so mod 100 ;
   c3:=so div 10  ;
   so:=so mod 10  ;
   c4:=so         ;
   if (c1+c2)=(c3+c4) then write(m:5);
  end;
 readln;
end.
 
Chỉnh sửa lần cuối:
đây là bài số ngày chủ nhật

Mã: 
program mayngaycn;
uses crt;
var m,y,thu,ntt,scn:integer;
begin
 clrscr;
 write('Nhap nam: ');readln(y);
 repeat
  write('Nhap thang: ');readln(m);
  if (m<0) or (m>12) then writeln('Thang Tuan ngu nhap du lieu sai roi');
  until (m>0) and (m<13);
 repeat
  write('Nhap thu cua ngay dau tien(2,3,4,5,6,7,Chu nhat=8): ');readln(thu);
  if (thu<2) or (thu>8) then writeln('Thang Tuan ngu nhap du lieu sai roi');
  until (thu>1) and (thu<9);
 case m of
  1,3,5,7,8,10,12: ntt:=31;
  4,6,9,11       : ntt:=30;
  2              : if ((y mod 100=0) and (y mod 400=0))
                     or ((y mod 100<>0) and (y mod 4=0)) then ntt:=29
                     else ntt:=28;
  end;
 case ntt of
  28: scn:=4;
  29: if thu=8 then scn:=5
        else scn:=4;
  30: if (thu=8) or (thu=7) then scn:=5
        else scn:=4;
  31: if (thu=8) or (thu=7) or (thu=6) then scn:=5
        else scn:=4;
  end;
 writeln('Co ',scn,' ngay chu nhat');
 readln;
end.

với mỗi bài cả lớp trả cho bạn Bình 500VNDD nhé
 
Chỉnh sửa lần cuối:
đây là bài ssos ngày giữa 2 mốc

Mã: 
program ngaygiua2moc;
uses crt;
var ntt,d1,m1,y1,m2,y2,d2:word;
    sn:longint;
    d:boolean;
begin
clrscr;
repeat
 d:=true;
 write('Nhap ngay, thang, nam cua moc 1: ');readln(d1,m1,y1);
 write('Nhap ngay, thang, nam cua moc 2: ');readln(d2,m2,y2);
 if (y1>y2) or ((y1=y2) and (m1>m2)) or ((y1=y2) and (m1=m2) and (d1>=d2)) then
   begin
    writeln('Nhap sai roi do ngu');
    d:=false;
   end;
  until d=true;
 sn:=0;
 repeat
  case m1 of
  1,3,5,7,8,10,12: ntt:=31;
  4,6,9,11       : ntt:=30;
  2              : if ((y1 mod 100=0) and (y1 mod 400=0))
                     or ((y1 mod 100<>0) and (y1 mod 4=0)) then ntt:=29
                     else ntt:=28;
   end;
  d1:=d1+1;
  if d1>ntt then begin d1:=1;
                       m1:=m1+1;
                 end;
  if m1>12 then begin m1:=1;
                      y1:=y1+1;
                 end;
  sn:=sn+1;
  until (y1=y2) and (m1=m2) and (d1=d2);
 writeln('Co ',sn,' ngay giua 2 moc');
 readln;
end.
 
Chỉnh sửa lần cuối:
Cảm ơn "cô em" Bình lắm cơ :)) !
Chép cái này ra chắc què ***** tay luôn 8-} !

PS: ngủ đê :)) !
1h ***** òi :)) !
Mai ( hôm nay ) đi học muộn Minh già lại "chốt hạ" giờ :)) !
 
Úi mẹ ơi, bọn trẻ con lớp mình câu khiếp vật. Tao nhớ hum nọ lên mới cóa hơn 180 tí thôi mà.
Bài Tin qué j mà dài thê, làm thế qué nào mà chép xong đc.
Sáng nay lão Minh bị điên ah? Có mỗi cái chuyện thái độ sai mà nói lắm đêk chịu đc. Thừa hơi.
 
ăc thế này ra hàng nét chép bài tin thì chết tiền ah 8-}
Bách viết ra giấy đi 8-} hoặc thằng nào photo ra 8-}
 
Thật là ngu đần. Chả bít lão Tuấn chip sung sướng cái nỗi j mà cứ giao bài lắm thế ko bít nữa.
Chiều nay còn phải chơi với bố Đệ 2 tiết, ặc. Tao sẵn sàng hi sinh sự sung sướng của bản thân để ngồi với thầy Quang 2h chứ ngồi với bố Đệ thì :(:)((. Mà tuần trc làm cái j ý nhở? Tao vẫn chưa làm đc hay sao ý.
 
Lê Thùy Linh đã viết:
Sáng nay lão Minh bị điên ah? Có mỗi cái chuyện thái độ sai mà nói lắm đêk chịu đc. Thừa hơi.
Nhấn để mở rộng...
Ờ, bây giờ sở thích của lão Minh là cứ đến lớp thì hỏi bản kiểm điểm mà, như dở b-(
Tao đến lúc không chịu nổi GV lớp mình nữa rồi.
Bà Hóa CS hôm trước lại còn bảo là các con được học cô là tốt lắm rồi (còn muốn gì nữa), cô dạy rất chi là cẩn thận đấy. Chỉ muốn b-( cho 1 phát.
Lại còn bà Văn nữa. Con Bdéo cẩn thận môn Văn học kỳ này đấy nhá, ** b-(
 
Đi học đê chúng mày /:) !
Hư quá b-( !

PS: nó post cho bài Tin là phúc lắm òi /:) !
Đòi hỏi gì nữa /:) !
 
Chết mất
Bài dài thế thì ai mà làm nổi
muốn giết người à
kình khủng wwa'
 
Chịu khó đê /:) !
Lười thế /:) !
Có gì đâu 8-} !
Nó đã mất công post lên òi /:) !
Đòi hỏi cái gì b-( !
 
Chỉnh sửa lần cuối:
Muốn chịu khó cũng ***** được
bài dài như thế
chép vào mất mẹ 1 tiếng đồng hồ rồi còn làm gì nữa
 
Khà Khà:)) Em Bình khá lắm.
@Phương:ko việc gì phải chép cả, vừa làm vừa lên mạng thì 5 phút xong cả ngay:))
 
***** chúng mày :(( !
Chúng mày ở phòng Multi có mạng :(( !
Tao ở phòng 1 thì làm gì có :(( !
 
*****
có mạng cũng như không
có copi được vào pascal quái đâu mà
làm thế quái nào được
lão tin thâm thế
 
Nhưng phòng 1 ko có :(( !
Phòng 1 máy lởm ko chịu được :(( !
Ko có cả Win :(( !
Chán lắm :(( !
 
Thì máy của tao khác ***** gì máy mày mà nói
Chán kinh khủng
Viết ba bài trên vào thì hết mẹ mấy ngày luôn rồi
 
ĐM ông Minh.
kiểu này là ông ấy định hạ hạnh kiểm của tao thật rồi
Hi vọng bà Văn chưa nói với ông Minh.
Còn hi vọng
 
Tình trạng
Không mở trả lời sau này.
Back
Bên trên