Follow us on...
Follow us on Facebook

VN-Zoom.com chung tay vì Cộng đồng

Kaka - ứng dụng hát Karaoke trên mobile

Tuyển Mod Mobile diễn dàn Vn-Zoom.com 2014

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Vui thể thao quà ý nghĩa

Toàn cảnh Vn-Zoom tham gia họp báo Asus Zenfone
Trang 20/100 đầuđầu ... 10 18 19 20 21 22 30 70 ... cuốicuối
kết quả từ 286 tới 300 trên 1491
  1. #286
    huynhatnguyen's Avatar
    huynhatnguyen vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Jun 2010
    Đến từ
    Ḡ̶ᴀ̶ʟ̶ᴀ̶✖̶ʏ̶ ̶ℱ̶ᴀ̶ʀ̶ ̶ℱ̶ᴀ̶ʀ̶ ̶₩̶ᴀ̶ʏ̶
    Bài
    238
    Cảm ơn
    99
    Điểm
    55/32 bài viết
    VR power
    0

    Default

    Ai giải giùm bài này với dùng câu lệnh if...then
    ♣Cho chỉ số cũ, chỉ số mới. viết chương trình tính và in ra màn hình, số tiền phải trả là bao nhiêu (1 tháng 1 hộ biết trong 100KW đầu giá 3500đ
    1 kW trong 100kW kế tiếp giá 5000đ
    và tròng 100kw kế tiếp nữa giá 10.000đ ( nghĩa là 1 hộ tối đa sử dụng không được quá 100kW nếu vượt qua mức 100 kw thi phải trả thêm 5000đ VD: sử dụng hết 132 kw thì 100 kw tính giá 3500đ còn 32 kw sau tính giá 5000đ làm tương tự như 10,000đ)
    Giải giúp mình đi
    Mình cũng làm ra 1 cái nhưng nhập vào cứ báo lỗi

  2. #287
    dath1999's Avatar
    dath1999 vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2011
    Bài
    522
    Cảm ơn
    178
    Điểm
    241/151 bài viết
    VR power
    0

    Default

    Em là học sinh THCS, xin các bác chỉ em cach lập chương trình tính chu vi và diện tich hình tam giác với ạ
    Cách download trên mf không cần copy - paste, Hidden Content

  3. #288
    bidux1's Avatar
    bidux1 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2011
    Đến từ
    bình định
    Bài
    179
    Cảm ơn
    9
    Điểm
    43/33 bài viết
    VR power
    0

    Default

    Trích thanhngochoang95 View Post
    Cứ đánh gỉ xong xe này lại đẩy xe khác vào. Nhưng đánh gỉ xong mới đc sơn thế mới đau đầu không tìm ra cách giải. Hix
    Ai đó giúp mình với
    đây là nó bỉu tính thời gian ngắn nhất để hoàn thành tân trang. mà nếu thời gian đánh ghỉ và sơn nó độc lập và xe nào cũng hoàn thành tân trang thì zù sắp xếp ntn nó vẫn tốn 1 lượng thời gian đó. nó là hằng sổ sao thay đổi. bạn cho thêm vài test nữa được k. k hiểu đề
    anh em thử click và đăng ký nhé. 5p nhưng sẻ đc nhìu á.Hidden Content
    có cho mới có nhận. nhấn thank nếu bài có ích. mong sự giúp đỡ của anh em nhìu hơnHidden Content

  4. #289
    mauxanhvnn's Avatar
    mauxanhvnn vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    May 2011
    Đến từ
    Hell
    Bài
    169
    Cảm ơn
    61
    Điểm
    38/30 bài viết
    VR power
    0

    Default

    Xem và sửa lỗi giúp mình cái này với:

    Code:
    program b3;
    uses crt;
    const Bmax=50;
    var B: array [1..Bmax] of integer;
        n,i,s,spt: integer;
        tb: real;
    Begin
    clrscr;
    write( 'Nhap so luong phan tu cua day so: '); readln(n);
    For i:=1 to n do
    begin
    write(' Nhap phan tu thu ',i,': ');
    readln(B[i]);
    end;
    For i:=1 to n do B[i]:=2*B[i]+1;
    s:=0; spt:=0;
    For i:=1 to n do
    If (B[i] mod 3=0) then
    begin
    s:=s+B[i];
    spt:=spt+1;
    end;
    tb:=s/spt;
    write('Gia tri TB cua cac so chia het cho 3 la: ',tb:4:2);
    readln
    end.
    Tks!

  5. #290
    Halloween6290's Avatar
    Halloween6290 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2012
    Bài
    16
    Cảm ơn
    3
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Viết chương trình nhập vào một chuỗi kí tự.
    1. a) Cho biết độ dài của chuỗi.
    b) Cho biết trong chuỗi có nhiêu khoảng trắng, đếm số khoảng trắng của chuỗi, vị trí từng khoảng trắng.
    2. a) Đổi toàn bộ chuỗi ra hoa.
    b) Đổi toàn bộ chuỗi ra thường.
    c) Đổi hoa ra thường và thường ra hoa.
    3. Đổi những chữ đầu của từ ra hoa còn lại là thường. (Vd: Độc lập tự do hạnh phúc -->>> Độc Lập Tự Do Hạnh Phúc)
    4. Đếm bao có bao nhiêu kí hiệu khác (trừ chữ thường, chữ hoa và số).
    5. Xuất ra tổng mã ASCII của tất cả các kí tự của chuỗi.
    6. Bỏ các khoảng trắng thừa (chuỗi chuẩn).
    7. Cho biết chuỗi có bao nhiêu từ.
    8. Nhập vào một kí tự bất kì
    a) Đếm số lần xuất hiện của kí tự đó trong chuỗi(không phân biệt chữ thường và hoa).
    b) Thay thế một kí tự nào đó bằng kí tự vừa nhập vào.

    Giúp em với ạ, em xin cảm ơn ạ.

  6. #291
    Halloween6290's Avatar
    Halloween6290 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2012
    Bài
    16
    Cảm ơn
    3
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Mọi người, các anh chị xem giúp em với ạ.

  7. #292
    walkingdeads8's Avatar
    walkingdeads8 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2012
    Bài
    14
    Cảm ơn
    1
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    Mấy bài trên hơi dài nhưng có vẻ hay.

  8. #293
    bidux1's Avatar
    bidux1 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2011
    Đến từ
    bình định
    Bài
    179
    Cảm ơn
    9
    Điểm
    43/33 bài viết
    VR power
    0

    Default

    Trích Halloween6290 View Post
    Viết chương trình nhập vào một chuỗi kí tự.
    1. a) Cho biết độ dài của chuỗi.
    b) Cho biết trong chuỗi có nhiêu khoảng trắng, đếm số khoảng trắng của chuỗi, vị trí từng khoảng trắng.
    2. a) Đổi toàn bộ chuỗi ra hoa.
    b) Đổi toàn bộ chuỗi ra thường.
    c) Đổi hoa ra thường và thường ra hoa.
    3. Đổi những chữ đầu của từ ra hoa còn lại là thường. (Vd: Độc lập tự do hạnh phúc -->>> Độc Lập Tự Do Hạnh Phúc)
    4. Đếm bao có bao nhiêu kí hiệu khác (trừ chữ thường, chữ hoa và số).
    5. Xuất ra tổng mã ASCII của tất cả các kí tự của chuỗi.
    6. Bỏ các khoảng trắng thừa (chuỗi chuẩn).
    7. Cho biết chuỗi có bao nhiêu từ.
    8. Nhập vào một kí tự bất kì
    a) Đếm số lần xuất hiện của kí tự đó trong chuỗi(không phân biệt chữ thường và hoa).
    b) Thay thế một kí tự nào đó bằng kí tự vừa nhập vào.

    Giúp em với ạ, em xin cảm ơn ạ.
    1a: length(s);
    b: for i:=1 to length(s) do if s[i]=' ' then inc(dem); write(co',dem,' khoang trang vi tri la:');
    for i:=1 to length(s) do if s[i]=' ' then write(i:2);

    2: for i:=1 to length(s) do s[i]:=upcase(s[i]);
    for i:=1 to length(s) do if s[i]=upcase(s[i]) then s[i]:=chr(ord(s[i]+32));
    c: for i:=1 to length(s) do begin if s[i]=upcase(s[i]) then s[i]:=chr(ord(s[i]+32)) else if s[i]<>upcase(s[i]) then s[i]:=upcase(s[i]);
    3:for i:=1 to length(s) do if s[i]=' ' then s[i+1]:=upcase(s[i+1]);
    4: for i:=1 to length(s) do if (ord(s[i])<48) or (ord(s[i])>122) or( ord (s[i])>57 and ord (s[i])<65) or (ord(s[i]) >90 and ord(s[i])<97) then inc(dem);
    5: for i:=1 to length(s) do t:=t+ ord(s[i]);
    6: while s[1]=' ' then delete(s,1,1);
    while s[length(s)] =' ' then delete(s,length(s),1);
    for i:=1 to length(s) do if s[i]=' ' then if s[i+1]=' ' then delete(s,i+1,1));
    7: chuẩn hóa xong đếm số dấu cách rồi cộng 1 là số từ;
    8: if s[i]:=k then inc(dem);
    b: xóa kí tự cần số. rồi chèn kí tự vừa nhập vào vị trí vừa xóa bằng 2 hàm delete là insert;
    p/s: đây là cái sườn. bạn tham khảo rồi xử lí theo cách của chính bạn nhé
    anh em thử click và đăng ký nhé. 5p nhưng sẻ đc nhìu á.Hidden Content
    có cho mới có nhận. nhấn thank nếu bài có ích. mong sự giúp đỡ của anh em nhìu hơnHidden Content

  9. Có 1 thành viên cảm ơn bidux1 cho bài viết này:
    Halloween6290 (11-12-2012)

  10. #294
    Tham gia
    Nov 2011
    Đến từ
    FaceBook
    Bài
    365
    Cảm ơn
    92
    Điểm
    155/137 bài viết
    VR power
    0

    Question






    giúp mình bài nén và giải nén xâu với mình hoàn toàn ko biết gì về phần này các bạn làm hộ mình bài này(bài 2) rùi giảng cho mình nhé
    ??????????????????????????????????????
    thank.
    Thay đổi nội dung bởi đạo_tặc_bóng_đêm; 13-12-2012 lúc 01:10.

  11. Có 1 thành viên cảm ơn đạo_tặc_bóng_đêm cho bài viết này:
    wasd1289 (16-12-2012)

  12. #295
    Kais0ul's Avatar
    Kais0ul vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Dec 2012
    Bài
    4
    Cảm ơn
    0
    Điểm
    0/0 bài viết
    VR power
    0

    Default

    bạn ơi giúp mình giải bt này với:
    viết trương trình nhập vào 1 số nguyên dương vớii n nhỏ hơn hoặc bằng 100 và dãy số nguyên a (từ A1 đến An) đưa ra màng hình số lượng phần tử là ước của k với k nguyên nhập từ bàn phím
    tks bạn nhiều

  13. #296
    bidux1's Avatar
    bidux1 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2011
    Đến từ
    bình định
    Bài
    179
    Cảm ơn
    9
    Điểm
    43/33 bài viết
    VR power
    0

    Default

    Trích đạo_tặc_bóng_đêm View Post





    giúp mình bài nén và giải nén xâu với mình hoàn toàn ko biết gì về phần này các bạn làm hộ mình bài này(bài 2) rùi giảng cho mình nhé
    ??????????????????????????????????????
    thank.
    bài 1 thì xử lí nhiều cách bằng thuật sắp xếp sau đó thêm 1 số xử lí nữa. bài nè chắc bạn tự làm được
    bài 2: cách của mình là như sau:
    nhập xâu đề bài là xâu s. tạo xâu s1 là xâu gồm các phần tử khác nhau và duy nhất của xâu s1. sau đó đếm từng kí tự trong xâu s1 xuất hiện trong xâu s và xuất ra.
    vd: xâu s là aaaabbbcdddddddeef thì s1 là abcdef. sau đó đếm a: xuất hiện 4 lần trong s và in ra 4a tiếp tục đến hết s1 thì thôi
    3: bài nè dùng thuật lừa bò vào chuồn đấy bạn. lên google search. 2 vòng while chồng nhau là ra thôi. bài dãy con tăng liên tiếp dài nhất. bạn cứ cho i:1. kiểm tra tính tăng từ i. while a[i+1]>a[i] do begin
    if a[i+2]<a[i+1] then inc(dem);
    i:i+1;
    end;
    đó là kiểm tra số dãy con tăng. còn dãy dài nhất thì lưu min là vị trí i. max là vị trí mà a[i+2]< a[i+1] sau đó kiểm tra vs lmax. nếu max-min{độ dài dãy con tăng} > lmax then lmax:=max-min; sau đó in ra for i:=min to max do write(a[i]);
    đề nè của thcs hả bạn. hay thpt vậy. mình nghĩ là của thcs
    anh em thử click và đăng ký nhé. 5p nhưng sẻ đc nhìu á.Hidden Content
    có cho mới có nhận. nhấn thank nếu bài có ích. mong sự giúp đỡ của anh em nhìu hơnHidden Content

  14. #297
    bidux1's Avatar
    bidux1 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Apr 2011
    Đến từ
    bình định
    Bài
    179
    Cảm ơn
    9
    Điểm
    43/33 bài viết
    VR power
    0

    Default

    Trích Kais0ul View Post
    bạn ơi giúp mình giải bt này với:
    viết trương trình nhập vào 1 số nguyên dương vớii n nhỏ hơn hoặc bằng 100 và dãy số nguyên a (từ A1 đến An) đưa ra màng hình số lượng phần tử là ước của k với k nguyên nhập từ bàn phím
    tks bạn nhiều
    for i:=1 to n do if k mod a[i]=0 then inc(dem); wirte(dem);
    anh em thử click và đăng ký nhé. 5p nhưng sẻ đc nhìu á.Hidden Content
    có cho mới có nhận. nhấn thank nếu bài có ích. mong sự giúp đỡ của anh em nhìu hơnHidden Content

  15. #298
    Halloween6290's Avatar
    Halloween6290 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Jun 2012
    Bài
    16
    Cảm ơn
    3
    Điểm
    0/0 bài viết
    VR power
    0

    Post

    Viết chương trình nhập vào một mảng gồm N số nguyên

    a) Kiểm tra xem mảng có đối xứng không?

    b) Kiểm tra xem mảng có phải Cấp số cộng không?

    c) Kiểm tra xem mảng tăng hay giảm?

    d) Sắp xếp mảng tăng dần (hoặc giảm dần) tùy đề bài yêu cầu nhưng viết giúp em dạng chung ạ.

    e) Chèn, xóa, thay thế một phần tử nào đó.

    f) Tìm phần tử lớn nhất, nhỏ nhất, ở vị trí nào?

    g) Đếm, tính tổng, trung bình một phần tử thỏa điều kiện nào đó.

    h) Tách riêng một mảng khác toàn theo yêu cầu đề bài (ví dụ: số chẵn, số lẻ, số dương, số âm,...)

  16. #299
    tansonpro9x's Avatar
    tansonpro9x vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Jun 2012
    Đến từ
    Hà Nội, Việt Nam
    Bài
    626
    Cảm ơn
    36
    Điểm
    88/81 bài viết
    VR power
    0

    Default

    Trích Halloween6290 View Post
    Viết chương trình nhập vào một mảng gồm N số nguyên

    a) Kiểm tra xem mảng có đối xứng không?

    b) Kiểm tra xem mảng có phải Cấp số cộng không?

    c) Kiểm tra xem mảng tăng hay giảm?

    d) Sắp xếp mảng tăng dần (hoặc giảm dần) tùy đề bài yêu cầu nhưng viết giúp em dạng chung ạ.

    e) Chèn, xóa, thay thế một phần tử nào đó.

    f) Tìm phần tử lớn nhất, nhỏ nhất, ở vị trí nào?

    g) Đếm, tính tổng, trung bình một phần tử thỏa điều kiện nào đó.

    h) Tách riêng một mảng khác toàn theo yêu cầu đề bài (ví dụ: số chẵn, số lẻ, số dương, số âm,...)
    a. gán biến kt boolean:=true -> duyệt từ 2 đầu của mảng vào rùi so sánh nếu a[i]<>a[j] -> ko đối xứng
    b. gán biến kt boolean:=true -> duyệt hết mảng nếu a[i]<>(a[i-1]+a[i-2]) -> ko phải cấp số cộng
    c. duyệt hết mảng -> nếu a[i]<a[i+1] -> tăng ko thì -> giảm, lưu ý mảng phải cùng tăng hoặc giảm ko thì writeln('mih` chiu');
    d.
    Code:
    for i:=1 to n-1 do
     for j:=i+1 to n do
      if a[i]>a[j] then {đây là sắp xếp tăng, nếu giảm thì đổi dấu '>' thành '<'}
       begin
       tg:=a[i];
       a[i]:=a[j];
       a[j]:=tg;
       end;
    e.chèn: inc(n) -> nhập vị trí muốn thay và số -> for i:=n downto vitri+1 do a[i]:=a[i-1];
    xóa: for i:=vitri to n-1 do a[i]:=a[i+1] -> dec(n)
    thay thế: nhập số thay thế và vị trí -> a[vitri]:=so
    f.max:=a[1]; for i:=1 to n do if a[i]>max then begin max:=a[i]; pos:=i; end;
    min làm tương tự
    g. nhập đk -> for i:=1 to n do
    đếm: inc(dem)
    tổng: tong:=tong+a[i]
    trung bình: tb:=tong/dem
    {trc' đó phải gán dem,tong,trungbinh = 0 nếu đã từng sử dụng hoặc nằm trg ctc}
    h. j:=1; for i:=1 to n do -> dùng if then xét đk -> nếu thỏa mãn -> b[j]:=a[i]; inc(j);
    Phải công nhận rằng bạn rất kiên nhẫn nhấn chuột tới 30 lần để đọc được dòng chữ vô nghĩa này Hidden Content

  17. Có 1 thành viên cảm ơn tansonpro9x cho bài viết này:
    Halloween6290 (15-12-2012)

  18. #300
    mauxanhvnn's Avatar
    mauxanhvnn vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    May 2011
    Đến từ
    Hell
    Bài
    169
    Cảm ơn
    61
    Điểm
    38/30 bài viết
    VR power
    0

    Default

    Giúp mình bài này, chỉ dùng mảng 1 chiều đơn giản thôi nhé!

    Nhập vào 1 dãy số nguyên. Sắp xếp các số chia hết cho 3 và vừa lẻ lên đầu; các số chia hết cho 3 và vừa chẵn ở cuối; các số còn lại ở giữa. In kết quả

 

 
Trang 20/100 đầuđầu ... 10 18 19 20 21 22 30 70 ... cuốicuối

Quyền sử dụng

  • 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ể tự sửa bài viết của mình
  •