Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tuyển thành viên nhóm Reviews diễn đàn

VN-Zoom & ASUS đón siêu phẩm,tăng tốc chuẩn bị ASUS Expo 2014
Trang 81/103 đầuđầu ... 31 71 79 80 81 82 83 91 ... cuốicuối
kết quả từ 1.201 tới 1.215 trên 1533
  1. #1201
    tuvisinh's Avatar
    tuvisinh vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Nov 2012
    Bài
    197
    Cảm ơn
    6
    Điểm
    58/56 bài viết
    VR power
    0

    Default

    CHỖ này là Pascal mà

  2. Có 1 thành viên cảm ơn tuvisinh cho bài viết này:
    it_inyourhand (27-03-2014)

  3. #1202
    Keegan's Avatar
    Keegan vẫn chưa có mặt trong diễn đàn Búa Gỗ Đôi
    Tham gia
    Sep 2008
    Bài
    29
    Cảm ơn
    21
    Điểm
    7/7 bài viết
    VR power
    0

    Default

    Giúp em bài này :
    Cho 2 bình nước có dung tích lần lượt là m và n. Tìm cách để đong được lượng nước k sau ít lần đong nhất.
    Input : 1 dòng 3 số m,n,k cách nhau 1 khoảng trắng
    Output : In ra từng bước đong

    Input :
    3 4 6
    Output :
    Buoc 1 : 3 0
    Buoc 2 : 0 3
    Buoc 3 : 3 3

  4. Có 1 thành viên cảm ơn Keegan cho bài viết này:
    it_inyourhand (27-03-2014)

  5. #1203
    zjkj520's Avatar
    zjkj520 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Aug 2012
    Bài
    166
    Cảm ơn
    86
    Điểm
    39/36 bài viết
    VR power
    0

    Default

    Bài này sai ở đâu vậy, giúp mình với
    uses crt;
    const chu=['A'..'Z'];
    VAR h:integer;
    Ok:boolean;
    b,A:array[0..100] of integer;
    spt, n,len,cong,vt,so,k,dau,cuoi,giua,m,d1,kt1,i,j:inte ger;
    kt,tim_thay:boolean;
    s:string;
    c,d:char;
    st:string;
    p:string;
    min,vti,vta,tg,max, co,dem:integer;
    vt:array[1..30]of integer;
    P:byte;
    Begin
    Clrscr;
    Repeat
    begin
    repeat
    writeln('0:thoat');
    writeln('1:xac dinh cach dat ngoac ');
    writeln('2au doi xung');
    writeln('3:Tim kiem nhi phan');
    writeln('4ac dinh so phan tu co gia tri le o vi tri chan');
    writeln('5:Tim day so gom m phan tu co tong lon nhat trong mang(m<=n)');
    writeln('6:In ra man hinh tam giac pascal');
    writeln('7oi xau chu thuong sang chu in hoa');
    writeln('8:Kiem tra xau co bao nhieu ki tu,ki tu trong va bao nhieu phan tu');
    writeln('9:Nhap ho va ten cua mot nguoi sau do xoa het ki tu trang');
    writeln('10:In ra man hinh phan tu xuat hien nhieu nhat va so lan xuat hien cua no ');
    writeln('11:Chen mot so bat ki vao mang');
    writeln('12oi cho 2 phan tu lon nhat va nho nhat cho nhau');
    writeln('13em xem co bao nhieu so nguyen to trong mang');
    writeln('14:Thay mot ki tu bang mot ki tu khac ');
    writeln('15:So lan xuat hien cua ki tu "A" trong mang ');
    readln(h);
    until (h>=0) and (h<=15);
    Case h of
    0:Ok:=true;
    end;
    Begin
    1:Begin
    writeln('nhap mot xau gom cac ki tu:'); readln(s);
    d1:=0;
    kt1:=1;
    for i:=1 to length(s) do
    begin
    if s[i]='(' then d1:=d1+1;
    if s[i]=')' then d1:=d1-1;
    if d1<0 then
    begin
    kt1:=0;
    break;
    end;
    end;
    if (kt1=1)and(d1=0) then write('dung')else
    write('sai');
    Ok:=false
    end;
    2:Begin
    writeln('nhap xau:'); readln(s);
    n:=length(s);
    p:='';
    for i:=n downto 1 do
    p:=p+s[i];
    if s=p then
    writeln('la xau doi xung')
    else writeln('khong la xau doi xung');
    Ok:=false;
    end;
    3:Begin
    write('nhap so luong phan tu cua day so:'); readln(n);
    writeln('nhap cac phan tu cua day so tang:');
    for i:=1 to n do
    begin
    writeln('phan tu thu[',i,']'); readln(A[i]);
    end;
    writeln('nhap gia tri k:'); readln(k);
    dau:=1; cuoi:=n; tim_thay:=false;
    while(dau<=cuoi)and not (tim_thay) do
    begin
    giua:=(dau+cuoi) div 2;
    if A[giua]=k then tim_thay:=true
    else if A[giua]>k then cuoi:=giua-1
    else dau:=giua+1;
    end;
    if tim_thay then writeln('chi so tim duoc la:',giua)
    else writeln('khong tim thay');
    Ok:=false;
    end;
    4:Begin
    writeln('nhap so phan tu cua mang:'); readln(n);
    writeln('nhap mang A');
    for i:=1 to n do
    begin
    writeln('A[',i,']='); readln(A[i]);
    end;
    dem:=0; m:=n div 2;
    for i:=1 to m do
    if A[i*2] mod 2<>0 then
    dem:=dem+1;
    writeln('so phan tu o vi tri chan co gia tri le:',dem);
    Ok:=false;
    end;
    5:Begin
    writeln('so phan tu cua mang:n='); readln(n);
    for i:=1 to n do
    begin
    writeln('A[',i,']'); readln(A[i]);
    end;
    writeln('nhap so phan tu cua day con:m='); readln(m);
    k:=1;
    max:=0;
    for i:=1 to n do max:=max+A[i];
    for i:=2 to n-m+1 do
    begin
    dem:=0;
    for j:=i to i+m-1 do dem:=dem+A[i];
    if dem>max then
    begin
    max:=dem;
    k:=i;
    end;
    end;
    writeln('day con co tong lon nhat la:');
    for i:=k to k+m-1 do writeln(A[i]:5);
    Ok:=false;
    end;
    6:Begin
    writeln('n:'); readln(n);
    A[0]:=1;
    writeln(A[0]:4);
    for i:=1 to n do A[i]:=0;
    for i:=1 to n do
    begin
    for j:=i downto 1 do
    begin
    A[j]:=A[j-1]+A[j];
    writeln(A[j]:4);
    end;
    writeln(A[i]:4);
    end;
    Ok:=false;
    end;
    7:Begin
    writeln('nhap xau st:'); readln(st);
    for i:=1 to length(st) do
    st[i]:=upcase(st[i]);
    writeln('xau ket qua:',st);
    Ok:=false;
    end;
    8:Begin
    writeln('nhap vao chuoi s:'); readln(s);
    for i:=1 to length(s) do
    if s[i]='' then
    dem:=dem+1;
    writeln('vay co',dem,'khoang trong');
    for i:=1 to length(s) do
    if((s[i]>='A') and (s[i]<='Z')) or ((s[i]>='a') and (s[i]<='z')) then
    cong:=cong+1;
    writeln('vay co',cong,'ki tu');
    writeln('vay co',dem+1,' tu');
    Ok:=false;
    end;
    9:Begin
    writeln('hoten='); readln(s);
    len:=length(s);
    if s[1] in chu then s[1]:= upcase(s[1]);
    for i:=2 to len do
    if (s[i-1]=#32) and (s[i] in chu) then s[i]:=upcase(s[i]);
    writeln('hoten sau khi dieu chinh la:',s);
    Ok:=false;
    end;
    10:Begin
    writeln('nhap so phan tu:'); readln(n);
    for i:=1 to n do
    begin
    writeln('st[',i,']='); readln(st[i]);
    end;
    b[i]:=0;
    for i:=1 to n do
    for j:=1 to n do
    if st[i]=st[j] then inc(b[i]);
    max:=b[1];
    for i:=1 to n do if b[i]> max then max:=b[i];
    writeln('so xuat hien nhieu nhat la:');
    for i:=1 to n do
    if max=b[i] then writeln(st[i],'');
    writeln(' xuat hien ',max,' lan ');
    Ok:=false;
    end;
    11:Begin
    writeln('chen mot so vao mang');
    writeln(' ');
    writeln('co bao nhieu phan tu:');
    readln(spt);
    for i:=1 to spt do
    begin
    writeln('phan tu A[',i,']='); readln(a[i]);
    end;
    writeln;
    writeln('mang truoc khi chen');
    for i:=1 to spt do write(a[i]:4);
    writeln;
    writeln(' can chen so: '); readln(so);
    writeln('Vao vi tri: '); readln(vt);
    for i:=spt+1 downto vt+1 do
    a[i]:=a[i-1];
    a[vt]:=so;
    spt:=spt+1;
    writeln;
    writeln('MANG SAU KHI CHEN');
    for i:=1 to spt do write(a[i]:5);
    Ok:=false;
    end;
    12:Begin
    write('nhap so phan tu cua day so:'); readln(n);
    writeln('nhap cac phan tu cua day so P:'); readln(P);
    for i:=2 to n do
    begin
    writeln('',A[i]); readln(A[i]);
    end;
    for i:=2 to n do
    min:=A[n];
    vti:=n;
    max:=A[n];
    vta:=n;
    for i:=n-1 downto 1 do
    begin
    if A[i]<=min then
    begin
    min:=A[i];
    vti:=i;
    end;
    if A[i]>=max then
    begin
    max:=A[i];
    vta:=i;
    end;
    end;
    begin
    tg:=A[vti];
    a[vti]:=A[vta];
    a[vta]:=tg;
    writeln(',P,');
    end;
    Ok:=false;
    end;
    13:Begin
    writeln('nhap so luong phan tu cua mang:'); readln(n);
    for i:=1 to n do
    begin
    writeln('a[',i,']='); readln(a[i]);
    end;
    writeln('cac so nguyen to trong mang la:');
    for i:=1 to n do
    begin
    kt:=true;
    if a[i]<=1 then kt:=false
    else for j:=2 to trunc (sqrt(a[i])) do
    if a[i] mod j=0 then kt:=false;
    if kt then write(a[i],' ');
    end;
    Ok:=false;
    end;
    14:Begin
    writeln('nhap xau'); readln(s);
    writeln('nhap ki tu can thay the:'); readln(c);
    writeln('nhap ki tu thay the cho ',c,' la'); readln(d);
    for i:=1 to length(s) do
    if s[i]=c then
    begin
    delete(s,i,1);
    insert(d,s,i);
    end;
    writeln('xau sau khi thay the la:',s);
    Ok:=false;
    end;
    15:Begin
    for i:=1 to 30 do dem:=0;
    writeln('nhap xau khong qua 30 ki tu:'); readln(st);
    for i:=1 to length(st) do
    if st[i]='A'then
    begin
    dem:=dem+1;
    vt[i]:=vt[i]+1;
    end;
    if dem<>0 then
    begin
    writeln('co ',dem,' ki tu "A" trong chuoi');
    writeln('khong ton tai vi tri xau trong chuoi');
    for i:=1 to length(st) do
    if vt[i]<>0 then writeln('',i);
    end
    else writeln('khong co ki tu "A" trong xau');
    Ok:=false;
    end;
    end;
    until Ok;
    readln
    End.
    không kí gì hết

  6. Có 1 thành viên cảm ơn zjkj520 cho bài viết này:
    it_inyourhand (27-03-2014)

  7. #1204
    programmer2010's Avatar
    programmer2010 vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    Feb 2010
    Bài
    2.572
    Cảm ơn
    38
    Điểm
    644/581 bài viết
    VR power
    7

    Default

    ^
    Bài tập lớn à?

  8. Có 1 thành viên cảm ơn programmer2010 cho bài viết này:
    it_inyourhand (27-03-2014)

  9. #1205
    acrox84's Avatar
    acrox84 vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Aug 2008
    Bài
    17
    Cảm ơn
    5
    Điểm
    2/2 bài viết
    VR power
    0

    Default

    programmer2010 có thể nhắn tin inbox hoặc cho mình cách liên lạc được không?
    đang soạn tài liệu nên mình online YM: acrox2014 đợi luôn^^

  10. Có 1 thành viên cảm ơn acrox84 cho bài viết này:
    it_inyourhand (27-03-2014)

  11. #1206
    mikelhpdatke's Avatar
    mikelhpdatke vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    Jul 2010
    Đến từ
    Bắc Giang
    Bài
    2.349
    Cảm ơn
    1.699
    Điểm
    1.503/824 bài viết
    VR power
    0

    Default

    Trích Keegan View Post
    Giúp em bài này :
    Cho 2 bình nước có dung tích lần lượt là m và n. Tìm cách để đong được lượng nước k sau ít lần đong nhất.
    Input : 1 dòng 3 số m,n,k cách nhau 1 khoảng trắng
    Output : In ra từng bước đong

    Input :
    3 4 6
    Output :
    Buoc 1 : 3 0
    Buoc 2 : 0 3
    Buoc 3 : 3 3
    Bài này dùng BFS

  12. Có 1 thành viên cảm ơn mikelhpdatke cho bài viết này:
    it_inyourhand (27-03-2014)

  13. #1207
    mikelhpdatke's Avatar
    mikelhpdatke vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    Jul 2010
    Đến từ
    Bắc Giang
    Bài
    2.349
    Cảm ơn
    1.699
    Điểm
    1.503/824 bài viết
    VR power
    0

    Default

    @zjkj520: Bạn nên viết theo chương trình con cho dễ tìm lỗi và sửa

  14. Có 1 thành viên cảm ơn mikelhpdatke cho bài viết này:
    it_inyourhand (27-03-2014)

  15. #1208
    programmer2010's Avatar
    programmer2010 vẫn chưa có mặt trong diễn đàn Rìu Chiến Chấm
    Tham gia
    Feb 2010
    Bài
    2.572
    Cảm ơn
    38
    Điểm
    644/581 bài viết
    VR power
    7

    Default

    @^^ Cái này dùng trick
    BFS gì.

  16. Có 1 thành viên cảm ơn programmer2010 cho bài viết này:
    it_inyourhand (27-03-2014)

  17. #1209
    LenBangLuc's Avatar
    LenBangLuc vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Mar 2014
    Bài
    5
    Cảm ơn
    1
    Điểm
    2/2 bài viết
    VR power
    0

    Default

    đang học cái này, bổ ích quá, tks

  18. Có 1 thành viên cảm ơn LenBangLuc cho bài viết này:
    it_inyourhand (27-03-2014)

  19. #1210
    villa_rose's Avatar
    villa_rose vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Jan 2008
    Bài
    1
    Cảm ơn
    0
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Mọi người có thể giúp tôi bài này được không? Thank.
    Cho số nguyên dương N bất kỳ N<=12. Tạo ma trận sô NxN Phần tử theo quy luật sau:
    1 2 3 4 5 6 7
    2 4 6 8 10 12 4
    3 6 9 12 2 4 6
    4 8 12 2 4 6 8
    5 10 2 4 6 8 10
    6 12 4 6 8 10 12
    7 4 6 8 10 12 2

  20. Có 1 thành viên cảm ơn villa_rose cho bài viết này:
    it_inyourhand (27-03-2014)

  21. #1211
    Long Hoàng's Avatar
    Long Hoàng vẫn chưa có mặt trong diễn đàn Rìu Bạc Đôi
    Tham gia
    Mar 2013
    Đến từ
    No Where
    Bài
    477
    Cảm ơn
    119
    Điểm
    87/83 bài viết
    VR power
    0

    Default

    ^ !
    GAME ON

  22. Có 1 thành viên cảm ơn Long Hoàng cho bài viết này:
    it_inyourhand (27-03-2014)

  23. #1212
    Mario Duy's Avatar
    Mario Duy vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2014
    Bài
    13
    Cảm ơn
    3
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Mọi người giúp em bài này với:
    Viết CT thực hiện công việc sau: +Nhập DS họ tên, môn thi, điểm môn thi thứ nhất(Toán chẳng han), điểm môn thi thứ hai(Văn chẳng hạn)
    +Ghi vào file 'QLHT.out' theo dạng: (Tên thí sinh thứ 1) (môn thi thứ nhất) (điểm) (môn thi thứ 2) (điểm)
    (Tên thí sinh thứ 2) .......................
    +đọc dữ liệu từ file 'QLHT.out'. Tìm những sinh viên phải thi lại (có 1 môn điểm<5)
    +đưa ra màn hình số thứ tự, điểm môn thi mà thí sinh phải thi lại.
    CT viết bằng Pascal. Mọi người giúp em vs.

  24. Có 1 thành viên cảm ơn Mario Duy cho bài viết này:
    it_inyourhand (27-03-2014)

  25. #1213
    songthan9xa1's Avatar
    songthan9xa1 vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Jun 2010
    Bài
    193
    Cảm ơn
    28
    Điểm
    25/23 bài viết
    VR power
    0

    Default

    Giúp em bài tập này với các cao nhân :
    Câu 1:
    Viết chương trình tính tổng :
    S=1+(x2-1)/2 + (x2-2)/3+....+(x2-n)/n+1
    Câu 2:
    Viết chương trình thực hiện:
    Nhập vào màng hai chiều gồm n hàng, m cột (n,m <30)
    1.Nhập các phần tử bất kỳ vào màng từ bàn phím
    2.Hiển thị mảng
    3.Tính trung bình cộng các giá trị của mảng
    Câu 3:
    Cho xâu kí tự Z(Z<=50)
    1.NHập xâu bất kì vào từ bàn phím
    2.Chèn thêm xâu "TIN HOC" vào sau xâu Z
    3.Copy xâu từ xâu Z đi 5 kí tự bắt đầu từ ký tự thứ 2
    Một lần bất tín - Vạn sự bất tin

  26. Có 1 thành viên cảm ơn songthan9xa1 cho bài viết này:
    it_inyourhand (27-03-2014)

  27. #1214
    Mario Duy's Avatar
    Mario Duy vẫn chưa có mặt trong diễn đàn Búa Gỗ
    Tham gia
    Mar 2014
    Bài
    13
    Cảm ơn
    3
    Điểm: 1/1 bài viết
    VR power
    0

    Default

    Trích songthan9xa1 View Post
    Giúp em bài tập này với các cao nhân :
    Câu 1:
    Viết chương trình tính tổng :
    S=1+(x2-1)/2 + (x2-2)/3+....+(x2-n)/n+1
    Câu 2:
    Viết chương trình thực hiện:
    Nhập vào màng hai chiều gồm n hàng, m cột (n,m <30)
    1.Nhập các phần tử bất kỳ vào màng từ bàn phím
    2.Hiển thị mảng
    3.Tính trung bình cộng các giá trị của mảng
    Câu 3:
    Cho xâu kí tự Z(Z<=50)
    1.NHập xâu bất kì vào từ bàn phím
    2.Chèn thêm xâu "TIN HOC" vào sau xâu Z
    3.Copy xâu từ xâu Z đi 5 kí tự bắt đầu từ ký tự thứ 2

    Bài 1:

    Program CT_tinh_tong;
    uses crt;
    var n,i,x2:longint;
    S:real;
    Begin
    write('Nhap x2:');readln(x2);
    write('Nhap n:');readln(n);
    For i:=0 to n do
    S:=S+(x2-i)/(i+1);
    Write('S=',S:1:3);
    readln
    end.

    Bài 2:
    Program Mang_2C;
    uses crt;
    var a:array[1..100,1..100] of longint;
    m,n,i,j:longint;
    tb:real;
    begin
    Write('Nhap so hang:');readln(n);
    Write('Nhap so cot:');readln(m);
    For i:=1 to n do
    For j:=1 to m do
    begin
    writeln('Nhap so o vi tri [',i,',',j,']:');readln(a[i,j]);
    tb:=tb+a[i,j];
    end;
    For i:=1 to n do
    begin
    For j:=1 to m do
    write(a[i,j],#32);
    writeln;
    end;
    tb:=tb/(m*n);
    write('trung binh cong cac gia tri cua mang:',tb:1:3);
    readln
    end.

    Bài 3:
    Program xau;
    uses crt;
    var Z,s:string[50];
    Begin
    write('Nhap xau Z:');readln(Z);
    insert('TIN HOC',Z,length(z)+1);
    s:=copy(Z,2,5);
    writeln('Xau Z sau khi chen:',Z);
    write('Copy 5 ki tu bat dau tu ki tu thu 2 cua xau Z:',s);
    readln
    end.

  28. #1215
    o0olllforeverlllo0o's Avatar
    o0olllforeverlllo0o vẫn chưa có mặt trong diễn đàn Rìu Sắt Đôi
    Tham gia
    Feb 2014
    Đến từ
    Vĩnh Phúc
    Bài
    237
    Cảm ơn
    47
    Điểm
    23/22 bài viết
    VR power
    0

    Default

    có ai không ???????????

 

 
Trang 81/103 đầuđầu ... 31 71 79 80 81 82 83 91 ... 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
  •