Kết quả 1 đến 5 của 5
  1. #1
    Phong Vân huyền thoại
    Ngày tham gia
    23 Oct 2010
    Đang ở
    Hanoi, Vietnam, Vietnam
    Tuổi
    30
    Bài viết
    84
    Thanks
    7
    Thanked 3 Times in 3 Posts
    Rep Power
    44

    Mặc định pascal.giúp mình vs.huhu

    ai giải giúp mình.mình cực kỳ cảm ơn.vì phần nay mình rất ngu.tự dưng giờ lại phải hoc.hjx
    b1.lập trình gõ vào 1 số kí tự tùy ý.đếm xem trog số ký tự đã gõ co bao nhiêu ký tự là số.là chữ cái.là các ký tự khác
    Posted via Mobile Device: UA
    -----------------------------------------
    b2.lập chương trình tìm các số có 3 chữ số sao cho số đó bằng tổng lập phương các chữ số tạo nên nó
    Posted via Mobile Device: UA
    b3. giai thừa dc dịnh nghĩa như sau.
    0!=1 , 1!=1 , n!=1*2*3*...*n
    hãy lập 1 chương trình cho phép nhập n nguyên, không âm vào từ bàn phím rồi đưa ra màn hình giá trị n!
    Lần sửa cuối bởi NhocS2b12, ngày 21-10-2011 lúc 08:16 PM. Lý do: Spam bất thành, câu bài thất bại

  2. #2
    Nhập môn đồ đệ ĐDT Member
    Ngày tham gia
    13 Mar 2009
    Bài viết
    12
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    50

    Mặc định Re: pascal.giúp mình vs.huhu

    nếu là hồi lớp 11 thì chắc là t giúp đc cậu đấy n0 bjh t cũng quên hết r hehe
    Dragon + Fly = Dragonfly???

  3. #3
    Phong Vân huyền thoại
    Ngày tham gia
    23 Oct 2010
    Đang ở
    Hanoi, Vietnam, Vietnam
    Tuổi
    30
    Bài viết
    84
    Thanks
    7
    Thanked 3 Times in 3 Posts
    Rep Power
    44

    Mặc định Re: pascal.giúp mình vs.huhu

    nói thế thì nói lm j.ai giúp mình vs k mình phải ở lại trường cả đêm mất
    Posted via Mobile Device: UA

  4. #4
    Hội Vật Lý Đào Duy Từ
    Ngày tham gia
    09 Jul 2009
    Đang ở
    644 quang trung 2, đông vệ
    Tuổi
    30
    Bài viết
    1,368
    Thanks
    2
    Thanked 6 Times in 6 Posts
    Rep Power
    50

    Mặc định Re: pascal.giúp mình vs.huhu

    Để em

    bài 3

    Code:
    uses crt;
    var n:longint ;
        c:char;
    function
    gt(k:integer) :longint;
    begin
    if k=0 then gt:=1 else gt:=gt(k-1)*k;
     end;
     begin
     clrscr;
     writeln(' ban co dong y thuc hien chuong trinh tinh giaai thua y/n');
     c:=readkey;
     writeln;
      if (c='y') or( c='c')  then
         begin
         write('nhap n');
         readln(n);
     write(gt(n));
     end else write('bye bye');
     readln;
     end.
    -----------------------------------------
    bài 1

    Code:
    var ds, dc,dk,i: byte;
        st:string;
    begin
       write(' nhap sau ');
       readln(st);
         for i :=1 to length(st)do
            if st[i] in['0'..'9'] then ds:=ds+1
               else
                  if (st[i]in ['a'..'z']) or  (st[i]in ['A'..'Z']) then dc:=dc+1
                    else dk:=dk+1;
       write (' so ki tu chu', dc,' so kitu so', ds,]' so kitu khac', dk);
       readln end.
    -----------------------------------------
    bài 2

    Code:
     
    
    var i:integer;
    function tlp(x:integer): boolean;
    var o,k,j:integer;
      begin
          k:=x div 100;
          o:=o+k*k*k;
          j:=x mod 100;
          k:=j div 10;
          o:=o+k*k*k;
          j:=j mod 10;
          o:=o+j*j*j;
        if o= x then tlp := true else tlp:=false;
      end;
    begin
      for i:=100 to 999 do
        if tlp(i) then write (i:8);
      readln end.
    Lần sửa cuối bởi thanhkhoeo, ngày 20-10-2011 lúc 07:29 PM. Lý do: Spam bất thành, câu bài thất bại
    Tôi muốn làm nên tất cả

  5. #5
    Phong Vân huyền thoại
    Ngày tham gia
    23 Oct 2010
    Đang ở
    Hanoi, Vietnam, Vietnam
    Tuổi
    30
    Bài viết
    84
    Thanks
    7
    Thanked 3 Times in 3 Posts
    Rep Power
    44

    Mặc định Re: pascal.giúp mình vs.huhu

    eo ơi.cảm ơn bạn nhiều lắm.thế là k phải ở trườg cả đêm rồi.hehe
    Posted via Mobile Device: UA

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)

Đánh dấu

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •